File indexing completed on 2024-05-25 05:11:12 UTC
view on githubraw file Latest commit 00f81e67 on 2024-05-24 21:00:12 UTC
00f81e6785 Ou W*0001
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018
0019
0020
0021
0022
0023
0024
0025
0026
0027
0028
0029 COMMON /STIC_PARMS_R/
0030 & icfThetaHorizDiffusionLength,
0031 & icfThetaInterior
0032 _RL icfThetaHorizDiffusionLength
0033 _RL icfThetaInterior
0034
0035 CHARACTER*(MAX_LEN_FNAM) STIClengthFile
0036 CHARACTER*(MAX_LEN_FNAM) STICdepthFile
0037 COMMON /STIC_PARM_C/
0038 & STIClengthFile,
0039 & STICdepthFile
0040
0041
0042
0043
0044
0045
0046
0047
0048
0049
0050
0051
0052
0053 COMMON /STIC_MASKS/ mask2dSHIICF, mask3dSHIICF,
0054 & mask2dSHI, mask3dSHI, mask2dICF, mask3dICF
0055 _RS mask2dSHIICF(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0056 _RS mask3dSHIICF(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0057 _RS mask2dSHI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0058 _RS mask3dSHI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0059 _RS mask2dICF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0060 _RS mask3dICF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0061
0062
0063
0064
0065
0066
0067 COMMON /STIC_ICEFRONT_I/ kIcf, CURI_ARR, CURJ_ARR
0068 INTEGER kIcf (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0069 INTEGER CURI_ARR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,4)
0070 INTEGER CURJ_ARR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,4)
0071
0072 COMMON /STIC_FIELDS_RL/
0073 & stic_gT, stic_gS,
0074 & sticfWidth_arr
0075 _RL stic_gT (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0076 _RL stic_gS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0077 _RL sticfWidth_arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,4)
0078
0079 #ifdef ALLOW_SHITRANSCOEFF_3D
0080 COMMON /SHELFICE_GAMMA3D_RL/
0081 & shiTransCoeffT3D, shiTransCoeffS3D
0082 _RL shiTransCoeffT3D(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0083 _RL shiTransCoeffS3D(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0084 #endif
0085
0086 COMMON /STIC_FIELDS_RS/
0087 & R_stic, sticfLength,
0088 & icfHeatFlux, icfFreshWaterFlux,
0089 & sticfHeatFlux, sticfFreshWaterFlux
0090 _RS R_stic (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0091 _RS sticfLength (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0092 _RL icfHeatFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0093 _RL icfFreshWaterFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0094 _RL sticfHeatFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0095 _RL sticfFreshWaterFlux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)