28 |
C ICEFRONTsaltTransCoeff - salinity transfer coefficient that determines |
C ICEFRONTsaltTransCoeff - salinity transfer coefficient that determines |
29 |
C salt flux into icefront (m/s) |
C salt flux into icefront (m/s) |
30 |
C ICEFRONTlatentHeat - latent heat of fusion (J/kg) |
C ICEFRONTlatentHeat - latent heat of fusion (J/kg) |
|
C ICEFRONTconserve - use conservative form of H&O-thermodynamics |
|
|
C following Jenkins et al. (2001, JPO) |
|
31 |
C applyIcefrontTendT/S - |
C applyIcefrontTendT/S - |
32 |
C |
C |
33 |
C-- Fields |
C-- Fields |
63 |
COMMON /ICEFRONT_FIELDS_RL/ |
COMMON /ICEFRONT_FIELDS_RL/ |
64 |
& icefront_TendT, |
& icefront_TendT, |
65 |
& icefront_TendS |
& icefront_TendS |
66 |
_RL icefront_TendT (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RL icefront_TendT (1:sNx,1:sNy,Nr,nSx,nSy) |
67 |
_RL icefront_TendS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RL icefront_TendS (1:sNx,1:sNy,Nr,nSx,nSy) |
68 |
|
|
69 |
COMMON /ICEFRONT_FIELDS_RS/ |
COMMON /ICEFRONT_FIELDS_RS/ |
70 |
& R_icefront, |
& R_icefront, |
71 |
& icefrontlength |
& icefrontlength |
72 |
_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) |
73 |
_RS icefrontlength (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
_RS icefrontlength (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
74 |
|
|
75 |
LOGICAL ICEFRONTisOn |
LOGICAL ICEFRONTisOn |
|
LOGICAL ICEFRONTconserve |
|
76 |
LOGICAL applyIcefrontTendT |
LOGICAL applyIcefrontTendT |
77 |
LOGICAL applyIcefrontTendS |
LOGICAL applyIcefrontTendS |
78 |
COMMON /ICEFRONT_PARMS_L/ |
COMMON /ICEFRONT_PARMS_L/ |
79 |
& ICEFRONTisOn, |
& ICEFRONTisOn, |
|
& ICEFRONTconserve, |
|
80 |
& applyIcefrontTendT, |
& applyIcefrontTendT, |
81 |
& applyIcefrontTendS |
& applyIcefrontTendS |
82 |
|
|