File indexing completed on 2024-01-13 06:10:44 UTC
view on githubraw file Latest commit 005af54e on 2024-01-12 20:10:27 UTC
ffe464dc7d Mart*0001 #ifdef ALLOW_SHELFICE
0002
0003
0004
0005
0006
9c84481760 Jean*0007
0008
0009
0010
0011
ffe464dc7d Mart*0012
0013
0014
0015
9c84481760 Jean*0016
0017
0018
0019
d1e8335be4 Jean*0020
30e1f46062 Mart*0021
0022
9c84481760 Jean*0023
30e1f46062 Mart*0024
a0178c5a01 Jean*0025
30e1f46062 Mart*0026
0027
542be861d2 Dani*0028
0029
9c84481760 Jean*0030
30e1f46062 Mart*0031
9952f046d7 dngo*0032
0033
0034
0035
0036
0037
d1e8335be4 Jean*0038
0a8794f5ee Mart*0039
30e1f46062 Mart*0040
0041
7b8b86ab99 Timo*0042
0043
0044
30e1f46062 Mart*0045
d1e8335be4 Jean*0046
30e1f46062 Mart*0047
d1e8335be4 Jean*0048
30e1f46062 Mart*0049
7b8b86ab99 Timo*0050
30e1f46062 Mart*0051
9c84481760 Jean*0052
30e1f46062 Mart*0053
0054
b06dffee6b Jean*0055
30e1f46062 Mart*0056
0057
0058
0059
d1e8335be4 Jean*0060
30e1f46062 Mart*0061
0062
0063
005af54e38 Jean*0064
0065
0066
9952f046d7 dngo*0067
0068
0069
0070
0071
0072
30e1f46062 Mart*0073
0074
0075
0076
9c84481760 Jean*0077
30e1f46062 Mart*0078
0079
0080
0081
9c84481760 Jean*0082
30e1f46062 Mart*0083
0084
0085
9c84481760 Jean*0086
0087
0088
0089
ffe464dc7d Mart*0090
0091
9952f046d7 dngo*0092
9c84481760 Jean*0093
30e1f46062 Mart*0094
0095
0096
4d294a5719 Jean*0097
30e1f46062 Mart*0098
0099
d1e8335be4 Jean*0100
30e1f46062 Mart*0101
9c84481760 Jean*0102
0103
0104
ba0b047096 Mart*0105
470f7fc263 Jean*0106 #ifdef ALLOW_DIAGNOSTICS
0107
0108
0109
0110
0111 #endif /* ALLOW_DIAGNOSTICS */
7b8b86ab99 Timo*0112 #ifdef ALLOW_CTRL
0113
0114
0115
0116
0117
0118 #endif
ffe464dc7d Mart*0119
0120
0121
0122
005af54e38 Jean*0123 COMMON /SHELFICE_PARMS_L/
0124 & SHELFICEisOn,
0125 & useISOMIPTD,
0126 & SHELFICEconserve,
0127 & SHELFICEboundaryLayer,
0128 & SHI_withBL_realFWflux,
0129 & SHI_withBL_uStarTopDz,
0130 & no_slip_shelfice,
0131 & SHELFICEwriteState,
0132 & SHELFICE_dump_mdsio,
0133 & SHELFICE_tave_mdsio,
0134 & SHELFICE_dump_mnc,
0135 & SHELFICE_tave_mnc,
0136 & SHELFICEadvDiffHeatFlux,
0137 & SHELFICEuseGammaFrict,
0138 & SHELFICE_oldCalcUStar,
0139 & SHELFICEMassStepping,
0140 & SHELFICEDynMassOnly,
0141 & SHI_update_kTopC
0142 LOGICAL SHELFICEisOn
0143 LOGICAL useISOMIPTD
0144 LOGICAL SHELFICEconserve
0145 LOGICAL SHELFICEboundaryLayer
0146 LOGICAL SHI_withBL_realFWflux
0147 LOGICAL SHI_withBL_uStarTopDz
0148 LOGICAL no_slip_shelfice
0149 LOGICAL SHELFICEwriteState
0150 LOGICAL SHELFICE_dump_mdsio
0151 LOGICAL SHELFICE_tave_mdsio
0152 LOGICAL SHELFICE_dump_mnc
0153 LOGICAL SHELFICE_tave_mnc
0154 LOGICAL SHELFICEadvDiffHeatFlux
0155 LOGICAL SHELFICEuseGammaFrict
0156 LOGICAL SHELFICE_oldCalcUStar
0157 LOGICAL SHELFICEMassStepping
0158 LOGICAL SHELFICEDynMassOnly
0159 LOGICAL SHI_update_kTopC
0160
0161 COMMON /SHELFICE_PARMS_I/
d1e8335be4 Jean*0162 & SHELFICEselectDragQuadr
0163 INTEGER SHELFICEselectDragQuadr
ffe464dc7d Mart*0164
9c84481760 Jean*0165 COMMON /SHELFICE_PARMS_R/
ffe464dc7d Mart*0166 & SHELFICE_dumpFreq, SHELFICE_taveFreq,
7b8b86ab99 Timo*0167 & SHELFICEsaltToHeatRatio,
17292dde13 Mart*0168 & SHELFICEheatTransCoeff, SHELFICEsaltTransCoeff,
0169 & rhoShelfice, SHELFICEkappa,
b06dffee6b Jean*0170 & SHELFICElatentHeat,
17292dde13 Mart*0171 & SHELFICEheatCapacity_Cp,
0172 & SHELFICEthetaSurface,
e4305b0f18 Patr*0173 & SHELFICEDragLinear, SHELFICEDragQuadratic,
99068806b1 Patr*0174 & shiCdrag, shiZetaN, shiRc,
9952f046d7 dngo*0175 & shiPrandtl, shiSchmidt, shiKinVisc,
0176 & SHELFICEremeshFrequency,
0177 & SHELFICEsplitThreshold, SHELFICEmergeThreshold
99068806b1 Patr*0178
ffe464dc7d Mart*0179 _RL SHELFICE_dumpFreq, SHELFICE_taveFreq
7b8b86ab99 Timo*0180 _RL SHELFICEsaltToHeatRatio
17292dde13 Mart*0181 _RL SHELFICEheatTransCoeff
0182 _RL SHELFICEsaltTransCoeff
ffe464dc7d Mart*0183 _RL SHELFICElatentHeat
17292dde13 Mart*0184 _RL SHELFICEheatCapacity_Cp
0185 _RL rhoShelfice
0186 _RL SHELFICEkappa
ffe464dc7d Mart*0187 _RL SHELFICEDragLinear
0188 _RL SHELFICEDragQuadratic
17292dde13 Mart*0189 _RL SHELFICEthetaSurface
e4305b0f18 Patr*0190 _RL shiCdrag, shiZetaN, shiRc
99068806b1 Patr*0191 _RL shiPrandtl, shiSchmidt, shiKinVisc
9952f046d7 dngo*0192 _RL SHELFICEremeshFrequency
0193 _RL SHELFICEsplitThreshold
0194 _RL SHELFICEmergeThreshold
e4305b0f18 Patr*0195
005af54e38 Jean*0196 COMMON /SHELFICE_PARM_C/
0197 & SHELFICEloadAnomalyFile,
0198 & SHELFICEmassFile,
0199 & SHELFICEtopoFile,
0200 & SHELFICEMassDynTendFile,
0201 & SHELFICETransCoeffTFile
0202 CHARACTER*(MAX_LEN_FNAM) SHELFICEloadAnomalyFile
0203 CHARACTER*(MAX_LEN_FNAM) SHELFICEmassFile
0204 CHARACTER*(MAX_LEN_FNAM) SHELFICEtopoFile
0205 CHARACTER*(MAX_LEN_FNAM) SHELFICEMassDynTendFile
0206 CHARACTER*(MAX_LEN_FNAM) SHELFICETransCoeffTFile
0207
0208
0209
0210 COMMON /SHELFICE_FIELDS_I/ kTopC
0211 INTEGER kTopC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0212
9c84481760 Jean*0213 COMMON /SHELFICE_FIELDS_RL/
4d294a5719 Jean*0214 & shelficeMass, shelficeMassInit,
0215 & shelficeLoadAnomaly,
e4305b0f18 Patr*0216 & shelficeForcingT, shelficeForcingS,
7b8b86ab99 Timo*0217 & shiTransCoeffT, shiTransCoeffS,
0218 & shiCDragFld, shiDragQuadFld
0219
4d294a5719 Jean*0220 _RL shelficeMass (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0221 _RL shelficeMassInit (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0222 _RL shelficeLoadAnomaly (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
ffe464dc7d Mart*0223 _RL shelficeForcingT (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0224 _RL shelficeForcingS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
e4305b0f18 Patr*0225 _RL shiTransCoeffT (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0226 _RL shiTransCoeffS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
7b8b86ab99 Timo*0227 _RL shiCDragFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0228 _RL shiDragQuadFld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
ffe464dc7d Mart*0229
9c84481760 Jean*0230 COMMON /SHELFICE_FIELDS_RS/
ffe464dc7d Mart*0231 & R_shelfIce,
0232 & shelficeHeatFlux,
3d2f509a67 Dani*0233 & shelfIceFreshWaterFlux,
a0178c5a01 Jean*0234 & shelfIceMassDynTendency
ffe464dc7d Mart*0235 _RS R_shelfIce (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0236 _RS shelficeHeatFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0237 _RS shelficeFreshWaterFlux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
a0178c5a01 Jean*0238 _RS
0239 & shelfIceMassDynTendency(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
c9f9df479e Mart*0240
6b47d550f4 Mart*0241 #ifdef ALLOW_CTRL
c9f9df479e Mart*0242 COMMON /SHELFICE_MASKS_CTRL/ maskSHI
0243 _RS maskSHI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
6b47d550f4 Mart*0244 #endif /* ALLOW_CTRL */
9c84481760 Jean*0245
470f7fc263 Jean*0246 #ifdef ALLOW_DIAGNOSTICS
0247 COMMON /SHELFICE_DIAG_DRAG/ shelficeDragU, shelficeDragV
0248 _RS shelficeDragU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0249 _RS shelficeDragV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0250 #endif /* ALLOW_DIAGNOSTICS */
0251
ffe464dc7d Mart*0252 #endif /* ALLOW_SHELFICE */