16 |
C Tsrf :: temperature at surface [oC] |
C Tsrf :: temperature at surface [oC] |
17 |
C Tice1 :: temperature of ice layer 1 [oC] |
C Tice1 :: temperature of ice layer 1 [oC] |
18 |
C Tice2 :: temperature of ice layer 2 [oC] |
C Tice2 :: temperature of ice layer 2 [oC] |
19 |
C Qice1 :: enthalphy of ice layer 1 [J/m3] |
C Qice1 :: enthalpy of ice layer 1 [J/kg] |
20 |
C Qice2 :: enthalphy of ice layer 2 [J/m3] |
C Qice2 :: enthalpy of ice layer 2 [J/kg] |
21 |
C snowAge :: snow age [s] |
C snowAge :: snow age [s] |
22 |
COMMON /THSICE_VARS/ |
COMMON /THSICE_VARS/ |
23 |
& iceMask, iceHeight, snowHeight, |
& iceMask, iceHeight, snowHeight, |
77 |
_RL sOceMxL(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL sOceMxL(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
78 |
_RL v2ocMxL(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL v2ocMxL(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
79 |
|
|
80 |
|
#ifdef ALLOW_AUTODIFF_TAMC |
81 |
|
INTEGER iicekey |
82 |
|
#endif |
83 |
|
|
84 |
#endif /* ALLOW_THSICE */ |
#endif /* ALLOW_THSICE */ |
85 |
|
|
86 |
CEH3 ;;; Local Variables: *** |
CEH3 ;;; Local Variables: *** |