/[MITgcm]/MITgcm/pkg/diagnostics/diagnostics_write.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagnostics_write.F

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

revision 1.25 by jmc, Thu Jul 7 13:14:56 2005 UTC revision 1.26 by edhill, Tue Sep 6 17:45:19 2005 UTC
# Line 104  C-    Yearly  freqSec: Line 104  C-    Yearly  freqSec:
104            IF ( dump2fileNow .OR.            IF ( dump2fileNow .OR.
105       &        (myTime.EQ.endTime .AND. dumpatlast) ) THEN       &        (myTime.EQ.endTime .AND. dumpatlast) ) THEN
106              write2file = .TRUE.              write2file = .TRUE.
107              CALL DIAGNOSTICS_OUT(n,wrIter,myTime,myThid)              CALL DIAGNOSTICS_OUT(n,wrIter,wrTime,myThid)
108            ENDIF            ENDIF
109          ENDDO          ENDDO
110    
# Line 139  C       state-variable time-step: Line 139  C       state-variable time-step:
139            IF ( dump2fileNow .OR.            IF ( dump2fileNow .OR.
140       &        (myTime.EQ.endTime .AND. dumpatlast) ) THEN       &        (myTime.EQ.endTime .AND. dumpatlast) ) THEN
141              write2file = .TRUE.              write2file = .TRUE.
142              CALL DIAGSTATS_OUTPUT(n,myTime,wrIter,myThid)              CALL DIAGSTATS_OUTPUT(n,wrTime,wrIter,myThid)
143            ENDIF            ENDIF
144          ENDDO          ENDDO
145    
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26
  ViewVC Help
Powered by ViewVC 1.1.22