/[MITgcm]/MITgcm/pkg/thsice/thsice_ave.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_ave.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by jmc, Wed Apr 7 23:40:34 2004 UTC revision 1.3 by jmc, Thu Apr 8 18:54:26 2004 UTC
# Line 52  C     == Local variables == Line 52  C     == Local variables ==
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,
# Line 87  c    &                       1, thSIce_d Line 87  c    &                       1, thSIce_d
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 :
# Line 113  C-- average of Ocean Mixed-Layer temp. & Line 115  C-- average of Ocean Mixed-Layer temp. &
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)
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22