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

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

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

revision 1.21 by jmc, Thu Apr 17 13:40:06 2003 UTC revision 1.22 by stephd, Wed Jun 25 21:06:35 2003 UTC
# Line 192  C--     for vertical velocity and "etaN" Line 192  C--     for vertical velocity and "etaN"
192          IF (taveFreq.GT.0.) THEN          IF (taveFreq.GT.0.) THEN
193            CALL TIMEAVE_STATVARS(myTime, myIter, bi, bj, myThid)            CALL TIMEAVE_STATVARS(myTime, myIter, bi, bj, myThid)
194          ENDIF          ENDIF
195    cswdptr -- add ---
196    #ifdef ALLOW_PTRACERS
197              CALL PTRACERS_STATVARS(myTime, myIter, bi, bj, myThid)
198    #endif
199    cswdptr -- end add ---
200  #endif /* ALLOW_TIMEAVE */  #endif /* ALLOW_TIMEAVE */
201    
202  C--    End of 2nd bi,bj loop  C--    End of 2nd bi,bj loop
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22