20 |
C shelfice draught (unit=m) |
C shelfice draught (unit=m) |
21 |
C SHELFICEmassFile :: name of shelfice Mass file |
C SHELFICEmassFile :: name of shelfice Mass file |
22 |
C SHELFICEloadAnomalyFile :: name of shelfice load anomaly file |
C SHELFICEloadAnomalyFile :: name of shelfice load anomaly file |
23 |
|
C SHELFICEDynamicsFile :: file to read for ice mass dynamics |
24 |
C SHELFICEDragLinear :: linear drag at bottom shelfice (1/s) |
C SHELFICEDragLinear :: linear drag at bottom shelfice (1/s) |
25 |
C SHELFICEDragQuadratic :: quadratic drag at bottom shelfice (1/m) |
C SHELFICEDragQuadratic :: quadratic drag at bottom shelfice (1/m) |
26 |
C SHELFICEheatTransCoeff :: heat transfer coefficient that determines |
C SHELFICEheatTransCoeff :: heat transfer coefficient that determines |
31 |
C useISOMIPTD :: use simple ISOMIP thermodynamics |
C useISOMIPTD :: use simple ISOMIP thermodynamics |
32 |
C SHELFICEconserve :: use conservative form of H&O-thermodynamics |
C SHELFICEconserve :: use conservative form of H&O-thermodynamics |
33 |
C following Jenkins et al. (2001, JPO) |
C following Jenkins et al. (2001, JPO) |
34 |
|
C SHELFICEallowThinIceMass :: flag to allow thinning/thickening of ice shelf by melt/freeze/ice dynamics |
35 |
C SHELFICEboundaryLayer :: turn on vertical merging of cells to for a |
C SHELFICEboundaryLayer :: turn on vertical merging of cells to for a |
36 |
C boundary layer of drF thickness |
C boundary layer of drF thickness |
37 |
C SHELFICEadvDiffHeatFlux :: use advective-diffusive heat flux into the ice shelf |
C SHELFICEadvDiffHeatFlux :: use advective-diffusive heat flux into the ice shelf |
50 |
C-- Fields |
C-- Fields |
51 |
C ktopC :: index of the top "wet cell" (2D) |
C ktopC :: index of the top "wet cell" (2D) |
52 |
C R_shelfIce :: shelfice topography [m] |
C R_shelfIce :: shelfice topography [m] |
53 |
|
C shelficeMassInit :: ice-shelf mass (per unit area) [kg/m^2] |
54 |
C shelficeMass :: ice-shelf mass (per unit area) [kg/m^2] |
C shelficeMass :: ice-shelf mass (per unit area) [kg/m^2] |
55 |
|
C shelficeMassDynamics :: artificial divergence of ice shelf transport to simulate dynamic thinning |
56 |
C shelficeLoadAnomaly :: pressure load anomaly of shelfice [Pa] |
C shelficeLoadAnomaly :: pressure load anomaly of shelfice [Pa] |
57 |
C shelficeHeatFlux :: upward heat flux [W/m^2] |
C shelficeHeatFlux :: upward heat flux [W/m^2] |
58 |
C shelficeFreshWaterFlux :: upward fresh water flux (virt. salt flux) [kg/m^2/s] |
C shelficeFreshWaterFlux :: upward fresh water flux (virt. salt flux) [kg/m^2/s] |
102 |
|
|
103 |
COMMON /SHELFICE_FIELDS_RS/ |
COMMON /SHELFICE_FIELDS_RS/ |
104 |
& R_shelfIce, |
& R_shelfIce, |
105 |
|
& shelficeMassInit, |
106 |
& shelficeMass, |
& shelficeMass, |
107 |
& shelficeLoadAnomaly, |
& shelficeLoadAnomaly, |
108 |
& shelficeHeatFlux, |
& shelficeHeatFlux, |
109 |
& shelfIceFreshWaterFlux |
& shelfIceFreshWaterFlux, |
110 |
|
& shelficeMassDynamics |
111 |
_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) |
112 |
_RS shelficeMass (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS shelficeMass (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
113 |
|
_RS shelficeMassInit (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
114 |
_RS shelficeLoadAnomaly (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS shelficeLoadAnomaly (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
115 |
_RS shelficeHeatFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS shelficeHeatFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
116 |
_RS shelficeFreshWaterFlux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS shelficeFreshWaterFlux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
117 |
|
_RS shelficeMassDynamics (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
118 |
|
|
119 |
#ifdef ALLOW_SHIFWFLX_CONTROL |
#ifdef ALLOW_SHIFWFLX_CONTROL |
120 |
COMMON /SHELFICE_MASKS_CTRL/ maskSHI |
COMMON /SHELFICE_MASKS_CTRL/ maskSHI |
133 |
LOGICAL SHELFICE_tave_mnc |
LOGICAL SHELFICE_tave_mnc |
134 |
LOGICAL SHELFICEadvDiffHeatFlux |
LOGICAL SHELFICEadvDiffHeatFlux |
135 |
LOGICAL SHELFICEuseGammaFrict |
LOGICAL SHELFICEuseGammaFrict |
136 |
|
LOGICAL SHELFICEallowThinIceMass |
137 |
COMMON /SHELFICE_PARMS_L/ |
COMMON /SHELFICE_PARMS_L/ |
138 |
& SHELFICEisOn, |
& SHELFICEisOn, |
139 |
& useISOMIPTD, |
& useISOMIPTD, |
146 |
& SHELFICE_dump_mnc, |
& SHELFICE_dump_mnc, |
147 |
& SHELFICE_tave_mnc, |
& SHELFICE_tave_mnc, |
148 |
& SHELFICEadvDiffHeatFlux, |
& SHELFICEadvDiffHeatFlux, |
149 |
& SHELFICEuseGammaFrict |
& SHELFICEuseGammaFrict, |
150 |
|
& SHELFICEallowThinIceMass |
151 |
|
|
152 |
CHARACTER*(MAX_LEN_FNAM) SHELFICEloadAnomalyFile |
CHARACTER*(MAX_LEN_FNAM) SHELFICEloadAnomalyFile |
153 |
CHARACTER*(MAX_LEN_FNAM) SHELFICEmassFile |
CHARACTER*(MAX_LEN_FNAM) SHELFICEmassFile |
154 |
CHARACTER*(MAX_LEN_FNAM) SHELFICEtopoFile |
CHARACTER*(MAX_LEN_FNAM) SHELFICEtopoFile |
155 |
|
CHARACTER*(MAX_LEN_FNAM) SHELFICEDynamicsFile |
156 |
COMMON /SHELFICE_PARM_C/ |
COMMON /SHELFICE_PARM_C/ |
157 |
& SHELFICEloadAnomalyFile, |
& SHELFICEloadAnomalyFile, |
158 |
& SHELFICEmassFile, |
& SHELFICEmassFile, |
159 |
& SHELFICEtopoFile |
& SHELFICEtopoFile, |
160 |
|
& SHELFICEDynamicsFile |
161 |
|
|
162 |
#endif /* ALLOW_SHELFICE */ |
#endif /* ALLOW_SHELFICE */ |