63 |
#endif /* SEAICE_CGRID */ |
#endif /* SEAICE_CGRID */ |
64 |
|
|
65 |
C-- Dynamical variables |
C-- Dynamical variables |
|
CToM<<< |
|
66 |
#ifdef SEAICE_ITD |
#ifdef SEAICE_ITD |
67 |
COMMON/SEAICE_DYNVARS_1/AREA,HEFF,HSNOW,UICE,VICE, |
COMMON/SEAICE_DYNVARS_1/AREA,HEFF,HSNOW,UICE,VICE, |
68 |
& AREAITD,HEFFITD,HSNOWITD |
& AREAITD,HEFFITD,HSNOWITD |
69 |
#else |
#else |
70 |
COMMON/SEAICE_DYNVARS_1/AREA,HEFF,HSNOW,UICE,VICE |
COMMON/SEAICE_DYNVARS_1/AREA,HEFF,HSNOW,UICE,VICE |
71 |
#endif |
#endif |
|
C>>>ToM |
|
72 |
_RL AREA (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL AREA (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
73 |
_RL HEFF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL HEFF (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
74 |
_RL HSNOW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL HSNOW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
75 |
_RL UICE (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL UICE (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
76 |
_RL VICE (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL VICE (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
CToM<<< |
|
77 |
#ifdef SEAICE_ITD |
#ifdef SEAICE_ITD |
78 |
_RL AREAITD (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nITD,nSx,nSy) |
_RL AREAITD (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nITD,nSx,nSy) |
79 |
_RL HEFFITD (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nITD,nSx,nSy) |
_RL HEFFITD (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nITD,nSx,nSy) |
80 |
_RL HSNOWITD (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nITD,nSx,nSy) |
_RL HSNOWITD (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nITD,nSx,nSy) |
81 |
#endif |
#endif |
|
C>>>ToM |
|
82 |
|
|
83 |
C uIceC :: average of UICE between last two time steps |
C uIceC :: average of UICE between last two time steps |
84 |
C vIceC :: average of VICE between last two time steps |
C vIceC :: average of VICE between last two time steps |