9 |
#ifdef ALLOW_TIMEAVE |
#ifdef ALLOW_TIMEAVE |
10 |
|
|
11 |
C Keep track of time |
C Keep track of time |
12 |
_RL SHELFICE_TimeAve(Nr,nSx,nSy) |
_RL SHELFICE_timeAve(nSx,nSy) |
13 |
COMMON /SHELFICE_TAVE/ SHELFICE_TimeAve |
COMMON /SHELFICE_TAVE_COUNT/ SHELFICE_timeAve |
14 |
|
|
15 |
C Storage arrays for time-averages |
C Storage arrays for time-averages |
16 |
_RL shelfice_heatFluxtave |
_RL shelfice_heatFluxtave |
17 |
& (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy) |
& (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy) |
18 |
_RL shelfice_frshFluxtave |
_RL shelfice_frshFluxtave |
19 |
& (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy) |
& (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy) |
20 |
COMMON /SHELFICE_TAVE_DIAGS/ |
COMMON /SHELFICE_TAVE_VARS/ |
21 |
& shelfice_heatFluxtave, |
& shelfice_heatFluxtave, |
22 |
& shelfice_frshFluxtave |
& shelfice_frshFluxtave |
23 |
|
|