/[MITgcm]/MITgcm/pkg/ptracers/ptracers_output.F
ViewVC logotype

Diff of /MITgcm/pkg/ptracers/ptracers_output.F

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

revision 1.1 by mlosch, Wed Dec 1 22:54:02 2004 UTC revision 1.2 by mlosch, Mon Jul 9 10:06:48 2007 UTC
# Line 38  C     Write snapshot output Line 38  C     Write snapshot output
38        CALL PTRACERS_WRITE_STATE( myIter, myTime, myThid )        CALL PTRACERS_WRITE_STATE( myIter, myTime, myThid )
39  #ifdef ALLOW_TIMEAVE  #ifdef ALLOW_TIMEAVE
40  C     Write time average output  C     Write time average output
41        IF (taveFreq.GT.0. .AND. myIter.NE.nIter0 ) THEN        IF ( PTRACERS_taveFreq.GT.0. .AND. myIter.NE.nIter0 ) THEN
42         CALL PTRACERS_WRITE_TIMEAVE( myTime, myIter, myThid )         CALL PTRACERS_WRITE_TIMEAVE( myTime, myIter, myThid )
43        ENDIF        ENDIF
44  #endif /* ALLOW_TIMEAVE */  #endif /* ALLOW_TIMEAVE */
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22