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 */ |