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

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

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

revision 1.1 by jmc, Tue Jul 6 21:12:51 2004 UTC revision 1.2 by mlosch, Tue Nov 23 20:20:19 2004 UTC
# Line 56  C--   Fill-in TimeAve pkg diagnostics (f Line 56  C--   Fill-in TimeAve pkg diagnostics (f
56    
57          IF ( taveFreq.GT.0. ) THEN          IF ( taveFreq.GT.0. ) THEN
58            CALL TIMEAVE_STATVARS(myTime, myIter, bi, bj, myThid)            CALL TIMEAVE_STATVARS(myTime, myIter, bi, bj, myThid)
59    # ifdef ALLOW_PTRACERS
60              IF ( usePTRACERS ) THEN      
61               CALL PTRACERS_STATVARS(myTime, myIter, bi, bj, myThid)
62              ENDIF
63    # endif /* ALLOW_PTRACERS */
64          ENDIF          ENDIF
65    
 #ifdef ALLOW_PTRACERS  
 #ifndef PTRACERS_SEPARATE_FORCING  
           CALL PTRACERS_STATVARS(myTime, myIter, bi, bj, myThid)  
 #endif  
 #endif  
   
66  C--    End of bi,bj loop  C--    End of bi,bj loop
67         ENDDO         ENDDO
68        ENDDO        ENDDO
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22