/[MITgcm]/MITgcm/model/src/convective_adjustment.F
ViewVC logotype

Diff of /MITgcm/model/src/convective_adjustment.F

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

revision 1.17 by heimbach, Fri Nov 15 03:01:21 2002 UTC revision 1.18 by jmc, Thu May 1 22:30:33 2003 UTC
# Line 194  C--       End DO K=1,Nr Line 194  C--       End DO K=1,Nr
194                
195  #ifdef ALLOW_TIMEAVE  #ifdef ALLOW_TIMEAVE
196            IF (myIter.ne.nIter0 .AND. taveFreq.GT.0.) THEN            IF (myIter.ne.nIter0 .AND. taveFreq.GT.0.) THEN
197              CALL TIMEAVE_CUMULATE(ConvectCountTave, ConvectCount, Nr,              CALL TIMEAVE_CUMUL_1T(ConvectCountTave, ConvectCount,
198       I                               deltaTclock, bi, bj, myThid)       I                            Nr, deltaTclock, bi, bj, myThid)
199            ENDIF            ENDIF
200  #endif /* ALLOW_TIMEAVE */  #endif /* ALLOW_TIMEAVE */
201    
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22