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, |
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 |
#endif /* ALLOW_THSICE */ |
#endif /* ALLOW_THSICE */ |
81 |
|
|
82 |
|
CEH3 ;;; Local Variables: *** |
83 |
|
CEH3 ;;; mode:fortran *** |
84 |
|
CEH3 ;;; End: *** |