52 |
|
|
53 |
#ifdef ALLOW_TIMEAVE |
#ifdef ALLOW_TIMEAVE |
54 |
|
|
55 |
IF ( thSIce_taveFreq .LE. 0. _d 0 ) RETURN |
IF ( thSIce_taveFreq .GT. 0. _d 0 ) THEN |
56 |
|
|
57 |
C-- Time-average |
C-- Time-average |
58 |
CALL TIMEAVE_CUMULATE(ice_fract_Ave, iceMask, |
CALL TIMEAVE_CUMULATE(ice_fract_Ave, iceMask, |
87 |
|
|
88 |
C-- average of atmospheric fluxes : |
C-- average of atmospheric fluxes : |
89 |
#ifdef ALLOW_TIMEAVE |
#ifdef ALLOW_TIMEAVE |
90 |
|
IF ( buoyancyRelation(1:7) .EQ. 'OCEANIC' ) THEN |
91 |
CALL TIMEAVE_CUMUL_1T(ice_flxAtm_Ave, flxAtm, |
CALL TIMEAVE_CUMUL_1T(ice_flxAtm_Ave, flxAtm, |
92 |
& 1, thSIce_deltaT, bi, bj, myThid ) |
& 1, thSIce_deltaT, bi, bj, myThid ) |
93 |
CALL TIMEAVE_CUMUL_1T(ice_frwAtm_Ave, frwAtm, |
CALL TIMEAVE_CUMUL_1T(ice_frwAtm_Ave, frwAtm, |
94 |
& 1, thSIce_deltaT, bi, bj, myThid ) |
& 1, thSIce_deltaT, bi, bj, myThid ) |
95 |
|
ENDIF |
96 |
#endif /*ALLOW_TIMEAVE*/ |
#endif /*ALLOW_TIMEAVE*/ |
97 |
|
|
98 |
C-- average of oceanic fluxes : |
C-- average of oceanic fluxes : |
115 |
|
|
116 |
ice_timeAve(1,bi,bj)=ice_timeAve(1,bi,bj)+thSIce_deltaT |
ice_timeAve(1,bi,bj)=ice_timeAve(1,bi,bj)+thSIce_deltaT |
117 |
|
|
118 |
|
ENDIF |
119 |
#endif /* ALLOW_TIMEAVE */ |
#endif /* ALLOW_TIMEAVE */ |
120 |
|
|
121 |
IF ( DIFFERENT_MULTIPLE(thSIce_diagFreq,myTime+deltaTClock,myTime) |
IF ( DIFFERENT_MULTIPLE(thSIce_diagFreq,myTime+deltaTClock,myTime) |
122 |
& ) THEN |
& .AND. buoyancyRelation(1:7) .EQ. 'OCEANIC' ) THEN |
123 |
wrtIter = myIter+1 |
wrtIter = myIter+1 |
124 |
CALL WRITE_LOCAL_RL('ice_flxAtm','I10',1,flxAtm, |
CALL WRITE_LOCAL_RL('ice_flxAtm','I10',1,flxAtm, |
125 |
& bi,bj,1,wrtIter,myThid) |
& bi,bj,1,wrtIter,myThid) |