18 |
C-- Constants that can be set in data.icefront |
C-- Constants that can be set in data.icefront |
19 |
C ICEFRONTtopoFile - File containing the topography of the |
C ICEFRONTtopoFile - File containing the topography of the |
20 |
C icefront draught (unit=m) |
C icefront draught (unit=m) |
|
C ICEFRONTloadAnomalyFile - name of icefront load anomaly file |
|
|
C ICEFRONTDragLinear - linear drag at bottom icefront (1/s) |
|
|
C ICEFRONTDragQuadratic - quadratic drag at bottom icefront (1/m) |
|
21 |
C ICEFRONTheatTransCoeff - heat transfer coefficient that determines |
C ICEFRONTheatTransCoeff - heat transfer coefficient that determines |
22 |
C heat flux into icefront (m/s) |
C heat flux into icefront (m/s) |
23 |
C ICEFRONTsaltTransCoeff - salinity transfer coefficient that determines |
C ICEFRONTsaltTransCoeff - salinity transfer coefficient that determines |
26 |
C useISOMIPTD - use simple ISOMIP thermodynamics |
C useISOMIPTD - use simple ISOMIP thermodynamics |
27 |
C ICEFRONTconserve - use conservative form of H&O-thermodynamics |
C ICEFRONTconserve - use conservative form of H&O-thermodynamics |
28 |
C following Jenkins et al. (2001, JPO) |
C following Jenkins et al. (2001, JPO) |
|
C ICEFRONTboundaryLayer - turn on vertical merging of cells to for a |
|
|
C boundary layer of drF thickness |
|
|
C no_slip_icefront - set slip conditions for icefront separately, |
|
|
C (by default the same as no_slip_bottom) |
|
|
C ICEFRONTwriteState - enable output |
|
|
C ICEFRONT_dump_mnc - use netcdf for snapshot output |
|
|
C ICEFRONT_tave_mnc - use netcdf for time-averaged output |
|
|
C ICEFRONT_dumpFreq - analoguous to dumpFreq (= default) |
|
|
C ICEFRONT_taveFreq - analoguous to taveFreq (= default) |
|
29 |
C |
C |
30 |
C-- Fields |
C-- Fields |
|
C ktopC - index of the top "wet cell" (2D) |
|
31 |
C R_icefront - icefront topography [m] |
C R_icefront - icefront topography [m] |
|
C icefrontLoadAnomaly - pressure load anomaly of icefront [Pa] |
|
32 |
C icefrontHeatFlux - upward heat flux [W/m^2] |
C icefrontHeatFlux - upward heat flux [W/m^2] |
33 |
C icefrontFreshWaterFlux - upward fresh water flux (virt. salt flux) [m/s] |
C icefrontFreshWaterFlux - upward fresh water flux (virt. salt flux) [m/s] |
34 |
C icefrontForcingT - analogue of surfaceForcingT |
C icefrontForcingT - analogue of surfaceForcingT |
37 |
C \ev |
C \ev |
38 |
CEOP |
CEOP |
39 |
|
|
|
COMMON /ICEFRONT_PARMS_I/ kTopC |
|
|
INTEGER kTopC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
|
|
|
40 |
COMMON /ICEFRONT_PARMS_R/ |
COMMON /ICEFRONT_PARMS_R/ |
|
& ICEFRONT_dumpFreq, ICEFRONT_taveFreq, |
|
41 |
& ICEFRONTheatTransCoeff, ICEFRONTsaltTransCoeff, |
& ICEFRONTheatTransCoeff, ICEFRONTsaltTransCoeff, |
42 |
& rhoIcefront, ICEFRONTkappa, |
& rhoIcefront, ICEFRONTkappa, |
43 |
& ICEFRONTlatentHeat, recip_ICEFRONTlatentHeat, |
& ICEFRONTlatentHeat, recip_ICEFRONTlatentHeat, |
44 |
& ICEFRONTheatCapacity_Cp, |
& ICEFRONTheatCapacity_Cp, |
45 |
& ICEFRONTthetaSurface, |
& ICEFRONTthetaSurface |
|
& ICEFRONTDragLinear, ICEFRONTDragQuadratic |
|
|
_RL ICEFRONT_dumpFreq, ICEFRONT_taveFreq |
|
46 |
_RL ICEFRONTheatTransCoeff |
_RL ICEFRONTheatTransCoeff |
47 |
_RL ICEFRONTsaltTransCoeff |
_RL ICEFRONTsaltTransCoeff |
48 |
_RL ICEFRONTlatentHeat |
_RL ICEFRONTlatentHeat |
50 |
_RL rhoIcefront |
_RL rhoIcefront |
51 |
_RL ICEFRONTkappa |
_RL ICEFRONTkappa |
52 |
_RL recip_ICEFRONTlatentHeat |
_RL recip_ICEFRONTlatentHeat |
|
_RL ICEFRONTDragLinear |
|
|
_RL ICEFRONTDragQuadratic |
|
53 |
_RL ICEFRONTthetaSurface |
_RL ICEFRONTthetaSurface |
54 |
|
|
55 |
COMMON /ICEFRONT_FIELDS_RL/ |
COMMON /ICEFRONT_FIELDS_RL/ |
60 |
|
|
61 |
COMMON /ICEFRONT_FIELDS_RS/ |
COMMON /ICEFRONT_FIELDS_RS/ |
62 |
& R_icefront, |
& R_icefront, |
|
& icefrontLoadAnomaly, |
|
63 |
& icefrontHeatFlux, |
& icefrontHeatFlux, |
64 |
& icefrontFreshWaterFlux |
& icefrontFreshWaterFlux |
65 |
_RS R_icefront (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS R_icefront (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
_RS icefrontLoadAnomaly (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
66 |
_RS icefrontHeatFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS icefrontHeatFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
67 |
_RS icefrontFreshWaterFlux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS icefrontFreshWaterFlux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
68 |
|
|
69 |
LOGICAL ICEFRONTisOn |
LOGICAL ICEFRONTisOn |
70 |
LOGICAL useISOMIPTD |
LOGICAL useISOMIPTD |
71 |
LOGICAL ICEFRONTconserve |
LOGICAL ICEFRONTconserve |
|
LOGICAL ICEFRONTboundaryLayer |
|
|
LOGICAL no_slip_icefront |
|
|
LOGICAL ICEFRONTwriteState |
|
|
LOGICAL ICEFRONT_dump_mdsio |
|
|
LOGICAL ICEFRONT_tave_mdsio |
|
|
LOGICAL ICEFRONT_dump_mnc |
|
|
LOGICAL ICEFRONT_tave_mnc |
|
72 |
COMMON /ICEFRONT_PARMS_L/ |
COMMON /ICEFRONT_PARMS_L/ |
73 |
& ICEFRONTisOn, |
& ICEFRONTisOn, |
74 |
& useISOMIPTD, |
& useISOMIPTD, |
75 |
& ICEFRONTconserve, |
& ICEFRONTconserve |
|
& ICEFRONTboundaryLayer, |
|
|
& no_slip_icefront, |
|
|
& ICEFRONTwriteState, |
|
|
& ICEFRONT_dump_mdsio, |
|
|
& ICEFRONT_tave_mdsio, |
|
|
& ICEFRONT_dump_mnc, |
|
|
& ICEFRONT_tave_mnc |
|
76 |
|
|
|
CHARACTER*(MAX_LEN_FNAM) ICEFRONTloadAnomalyFile |
|
77 |
CHARACTER*(MAX_LEN_FNAM) ICEFRONTtopoFile |
CHARACTER*(MAX_LEN_FNAM) ICEFRONTtopoFile |
78 |
COMMON /ICEFRONT_PARM_C/ |
COMMON /ICEFRONT_PARM_C/ |
|
& ICEFRONTloadAnomalyFile, |
|
79 |
& ICEFRONTtopoFile |
& ICEFRONTtopoFile |
80 |
|
|
81 |
#endif /* ALLOW_ICEFRONT */ |
#endif /* ALLOW_ICEFRONT */ |