31 |
C following Jenkins et al. (2001, JPO) |
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 SHELFICEadvDiffHeatFlux - use advective-diffusive heat flux into the ice shelf |
35 |
|
C instead of diffusive heat flux (default), see Holland |
36 |
|
C and Jenkins (1999), eq.21,22,26,31 |
37 |
|
C SHELFICEuseGammaFrict - use velocity dependent exchange coefficients, see Holland a |
38 |
|
C and Jenkins (1999), eq.11-18 |
39 |
C no_slip_shelfice - set slip conditions for shelfice separately, |
C no_slip_shelfice - set slip conditions for shelfice separately, |
40 |
C (by default the same as no_slip_bottom) |
C (by default the same as no_slip_bottom) |
41 |
C SHELFICEwriteState - enable output |
C SHELFICEwriteState - enable output |
120 |
LOGICAL SHELFICE_tave_mdsio |
LOGICAL SHELFICE_tave_mdsio |
121 |
LOGICAL SHELFICE_dump_mnc |
LOGICAL SHELFICE_dump_mnc |
122 |
LOGICAL SHELFICE_tave_mnc |
LOGICAL SHELFICE_tave_mnc |
123 |
|
LOGICAL SHELFICEadvDiffHeatFlux |
124 |
LOGICAL SHELFICEuseGammaFrict |
LOGICAL SHELFICEuseGammaFrict |
125 |
COMMON /SHELFICE_PARMS_L/ |
COMMON /SHELFICE_PARMS_L/ |
126 |
& SHELFICEisOn, |
& SHELFICEisOn, |
133 |
& SHELFICE_tave_mdsio, |
& SHELFICE_tave_mdsio, |
134 |
& SHELFICE_dump_mnc, |
& SHELFICE_dump_mnc, |
135 |
& SHELFICE_tave_mnc, |
& SHELFICE_tave_mnc, |
136 |
|
& SHELFICEadvDiffHeatFlux, |
137 |
& SHELFICEuseGammaFrict |
& SHELFICEuseGammaFrict |
138 |
|
|
139 |
CHARACTER*(MAX_LEN_FNAM) SHELFICEloadAnomalyFile |
CHARACTER*(MAX_LEN_FNAM) SHELFICEloadAnomalyFile |