18 |
C-- Constants that can be set in data.shelfice |
C-- Constants that can be set in data.shelfice |
19 |
C SHELFICEtopoFile :: File containing the topography of the |
C SHELFICEtopoFile :: File containing the topography of the |
20 |
C shelfice draught (unit=m) |
C shelfice draught (unit=m) |
|
C SHELFICEGroundTopoFile :: File containing the topography of "grounded" |
|
|
c ice (unit=m) |
|
21 |
C SHELFICEmassFile :: name of shelfice Mass file |
C SHELFICEmassFile :: name of shelfice Mass file |
|
C SHELFICEGroundInitFile :: name of GroundingMass file, equivalent to justC float ice at GroundTopo level |
|
22 |
C SHELFICEloadAnomalyFile :: name of shelfice load anomaly file |
C SHELFICEloadAnomalyFile :: name of shelfice load anomaly file |
23 |
C SHELFICEMassDynTendFile :: file name for other mass tendency |
C SHELFICEMassDynTendFile :: file name for other mass tendency |
24 |
C (e.g. dynamics) |
C (e.g. dynamics) |
102 |
CEOP |
CEOP |
103 |
|
|
104 |
COMMON /SHELFICE_PARMS_I/ kTopC, |
COMMON /SHELFICE_PARMS_I/ kTopC, |
105 |
& SHELFICEselectDragQuadr |
& SHELFICEselectDragQuadr, |
106 |
|
& shelfice_etarestore_spongewidth |
107 |
INTEGER kTopC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
INTEGER kTopC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
108 |
INTEGER SHELFICEselectDragQuadr |
INTEGER SHELFICEselectDragQuadr |
109 |
|
INTEGER shelfice_etarestore_spongewidth |
110 |
|
|
111 |
COMMON /SHELFICE_PARMS_R/ |
COMMON /SHELFICE_PARMS_R/ |
112 |
& SHELFICE_dumpFreq, SHELFICE_taveFreq, |
& SHELFICE_dumpFreq, SHELFICE_taveFreq, |
120 |
& shiPrandtl, shiSchmidt, shiKinVisc, |
& shiPrandtl, shiSchmidt, shiKinVisc, |
121 |
& SHELFICERemeshFrequency, |
& SHELFICERemeshFrequency, |
122 |
& SHELFICESplitThreshold, |
& SHELFICESplitThreshold, |
123 |
& SHELFICEMergeThreshold |
& SHELFICEMergeThreshold, |
124 |
|
& shelficeEtaRelax |
125 |
_RL SHELFICE_dumpFreq, SHELFICE_taveFreq |
_RL SHELFICE_dumpFreq, SHELFICE_taveFreq |
126 |
_RL SHELFICEheatTransCoeff |
_RL SHELFICEheatTransCoeff |
127 |
_RL SHELFICEsaltTransCoeff |
_RL SHELFICEsaltTransCoeff |
134 |
_RL SHELFICEthetaSurface, SHELFICESplitThreshold |
_RL SHELFICEthetaSurface, SHELFICESplitThreshold |
135 |
_RL shiCdrag, shiZetaN, shiRc, SHELFICERemeshFrequency |
_RL shiCdrag, shiZetaN, shiRc, SHELFICERemeshFrequency |
136 |
_RL shiPrandtl, shiSchmidt, shiKinVisc |
_RL shiPrandtl, shiSchmidt, shiKinVisc |
137 |
_RL SHELFICEGroundW, SHELFICEGroundC |
_RL SHELFICEGroundW, SHELFICEGroundC, shelficeEtaRelax |
138 |
COMMON /SHELFICE_FIELDS_RL/ |
COMMON /SHELFICE_FIELDS_RL/ |
139 |
& shelficeMass, shelficeMassInit, shelficeGroundInit, |
& shelficeMass, shelficeMassInit, |
140 |
& shelficeLoadAnomaly, |
& shelficeLoadAnomaly, |
141 |
& shelficeForcingT, shelficeForcingS, |
& shelficeForcingT, shelficeForcingS, |
142 |
& shiTransCoeffT, shiTransCoeffS, EFFMASS |
& shiTransCoeffT, shiTransCoeffS, EFFMASS |
143 |
_RL shelficeMass (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL shelficeMass (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
144 |
_RL shelficeMassInit (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL shelficeMassInit (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
_RL shelficeGroundInit (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
145 |
_RL shelficeLoadAnomaly (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL shelficeLoadAnomaly (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
146 |
_RL shelficeForcingT (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL shelficeForcingT (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
147 |
_RL shelficeForcingS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL shelficeForcingS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
152 |
|
|
153 |
COMMON /SHELFICE_FIELDS_RS/ |
COMMON /SHELFICE_FIELDS_RS/ |
154 |
& R_shelfIce, |
& R_shelfIce, |
|
& R_Grounding, |
|
155 |
& shelficeHeatFlux, |
& shelficeHeatFlux, |
156 |
& shelfIceFreshWaterFlux, |
& shelfIceFreshWaterFlux, |
157 |
& shelfIceMassDynTendency |
& shelfIceMassDynTendency |
158 |
_RS R_shelfIce (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS R_shelfIce (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
_RS R_Grounding (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
159 |
_RS shelficeHeatFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS shelficeHeatFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
160 |
_RS shelficeFreshWaterFlux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS shelficeFreshWaterFlux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
161 |
_RS |
_RS |
182 |
LOGICAL SHELFICEuseGammaFrict |
LOGICAL SHELFICEuseGammaFrict |
183 |
LOGICAL SHELFICEMassStepping |
LOGICAL SHELFICEMassStepping |
184 |
LOGICAL SHELFICEDynMassOnly |
LOGICAL SHELFICEDynMassOnly |
185 |
|
LOGICAL SHELFICEEtaSponge |
186 |
COMMON /SHELFICE_PARMS_L/ |
COMMON /SHELFICE_PARMS_L/ |
187 |
& SHELFICEisOn, |
& SHELFICEisOn, |
188 |
& useISOMIPTD, |
& useISOMIPTD, |
199 |
& SHELFICEadvDiffHeatFlux, |
& SHELFICEadvDiffHeatFlux, |
200 |
& SHELFICEuseGammaFrict, |
& SHELFICEuseGammaFrict, |
201 |
& SHELFICEMassStepping, |
& SHELFICEMassStepping, |
202 |
& SHELFICEDynMassOnly |
& SHELFICEDynMassOnly, |
203 |
|
& SHELFICEEtaSponge |
204 |
|
|
205 |
CHARACTER*(MAX_LEN_FNAM) SHELFICEloadAnomalyFile |
CHARACTER*(MAX_LEN_FNAM) SHELFICEloadAnomalyFile |
206 |
CHARACTER*(MAX_LEN_FNAM) SHELFICEmassFile |
CHARACTER*(MAX_LEN_FNAM) SHELFICEmassFile |