| 16 |
C----------------------------------------------------------------------- |
C----------------------------------------------------------------------- |
| 17 |
C |
C |
| 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 |
| 20 |
|
C shelfice draught (unit=m) |
| 21 |
C SHELFICEloadAnomalyFile - name of shelfice load anomaly file |
C SHELFICEloadAnomalyFile - name of shelfice load anomaly file |
| 22 |
C SHELFICEDragLinear - linear drag at bottom shelfice (1/s) |
C SHELFICEDragLinear - linear drag at bottom shelfice (1/s) |
| 23 |
C SHELFICEDragQuadratic - quadratic drag at bottom shelfice (1/m) |
C SHELFICEDragQuadratic - quadratic drag at bottom shelfice (1/m) |
| 27 |
C salt flux into shelfice (m/s) |
C salt flux into shelfice (m/s) |
| 28 |
C SHELFICElatentHeat - latent heat of fusion (J/kg) |
C SHELFICElatentHeat - latent heat of fusion (J/kg) |
| 29 |
C useISOMIPTD - use simple ISOMIP thermodynamics |
C useISOMIPTD - use simple ISOMIP thermodynamics |
| 30 |
|
C SHELFICEconserve - use conservative form of H&O-thermodynamics |
| 31 |
|
C following Jenkins et al. (2001, JPO) |
| 32 |
C SHELFICEboundaryLayer - turn on vertical merging of cells to for a |
C SHELFICEboundaryLayer - turn on vertical merging of cells to for a |
| 33 |
C boundary layer of drF thickness |
C boundary layer of drF thickness |
| 34 |
C no_slip_shelfice - set slip conditions for shelfice separately, |
C no_slip_shelfice - set slip conditions for shelfice separately, |
| 46 |
C shelficeHeatFlux - upward heat flux [W/m^2] |
C shelficeHeatFlux - upward heat flux [W/m^2] |
| 47 |
C shelficeFreshWaterFlux - upward fresh water flux (virt. salt flux) [m/s] |
C shelficeFreshWaterFlux - upward fresh water flux (virt. salt flux) [m/s] |
| 48 |
C shelficeForcingT - analogue of surfaceForcingT |
C shelficeForcingT - analogue of surfaceForcingT |
| 49 |
|
C units are r_unit.Kelvin/s (=Kelvin.m/s if r=z) |
| 50 |
C shelficeForcingS - analogue of surfaceForcingS |
C shelficeForcingS - analogue of surfaceForcingS |
| 51 |
|
C units are r_unit.psu/s (=psu.m/s if r=z) |
| 52 |
C----------------------------------------------------------------------- |
C----------------------------------------------------------------------- |
| 53 |
C \ev |
C \ev |
| 54 |
CEOP |
CEOP |
| 91 |
_RS shelficeLoadAnomaly (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS shelficeLoadAnomaly (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
| 92 |
_RS shelficeHeatFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS shelficeHeatFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
| 93 |
_RS shelficeFreshWaterFlux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS shelficeFreshWaterFlux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
| 94 |
|
|
| 95 |
|
#ifdef ALLOW_SHIFWFLX_CONTROL |
| 96 |
|
COMMON /SHELFICE_MASKS_CTRL/ maskSHI |
| 97 |
|
_RS maskSHI (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
| 98 |
|
#endif /* ALLOW_SHIFWFLX_CONTROL */ |
| 99 |
|
|
| 100 |
LOGICAL SHELFICEisOn |
LOGICAL SHELFICEisOn |
| 101 |
LOGICAL useISOMIPTD |
LOGICAL useISOMIPTD |
| 102 |
|
LOGICAL SHELFICEconserve |
| 103 |
LOGICAL SHELFICEboundaryLayer |
LOGICAL SHELFICEboundaryLayer |
| 104 |
LOGICAL no_slip_shelfice |
LOGICAL no_slip_shelfice |
| 105 |
LOGICAL SHELFICEwriteState |
LOGICAL SHELFICEwriteState |
| 110 |
COMMON /SHELFICE_PARMS_L/ |
COMMON /SHELFICE_PARMS_L/ |
| 111 |
& SHELFICEisOn, |
& SHELFICEisOn, |
| 112 |
& useISOMIPTD, |
& useISOMIPTD, |
| 113 |
|
& SHELFICEconserve, |
| 114 |
& SHELFICEboundaryLayer, |
& SHELFICEboundaryLayer, |
| 115 |
& no_slip_shelfice, |
& no_slip_shelfice, |
| 116 |
& SHELFICEwriteState, |
& SHELFICEwriteState, |
| 120 |
& SHELFICE_tave_mnc |
& SHELFICE_tave_mnc |
| 121 |
|
|
| 122 |
CHARACTER*(MAX_LEN_FNAM) SHELFICEloadAnomalyFile |
CHARACTER*(MAX_LEN_FNAM) SHELFICEloadAnomalyFile |
| 123 |
|
CHARACTER*(MAX_LEN_FNAM) SHELFICEtopoFile |
| 124 |
COMMON /SHELFICE_PARM_C/ |
COMMON /SHELFICE_PARM_C/ |
| 125 |
& SHELFICEloadAnomalyFile |
& SHELFICEloadAnomalyFile, |
| 126 |
|
& SHELFICEtopoFile |
| 127 |
|
|
| 128 |
#endif /* ALLOW_SHELFICE */ |
#endif /* ALLOW_SHELFICE */ |