/[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.29 by jmc, Mon Jun 5 18:17:23 2006 UTC revision 1.30 by jmc, Wed Jan 3 00:29:59 2007 UTC
# Line 44  c =============== Line 44  c ===============
44          myItM1 = myIter - 1          myItM1 = myIter - 1
45    
46  C***********************************************************************  C***********************************************************************
47  C***   Check to see IF its time for Diagnostic Output                ***  C***   Check to see if its time for Diagnostic Output                ***
48  C***********************************************************************  C***********************************************************************
49    
50          write2file = .FALSE.          write2file = .FALSE.
# Line 80  C       state-variable time-step: Line 80  C       state-variable time-step:
80       I                          myTime, myIter, myThid )       I                          myTime, myIter, myThid )
81            ENDIF            ENDIF
82  #endif /* ALLOW_CAL */  #endif /* ALLOW_CAL */
83            IF ( dump2fileNow .OR.            IF ( dumpAtLast .AND. myTime.EQ.endTime
84       &        (myTime.EQ.endTime .AND. dumpAtLast) ) THEN       &                    .AND. freqSec.GE.0. ) dump2fileNow = .TRUE.
85              IF ( dump2fileNow ) THEN
86              write2file = .TRUE.              write2file = .TRUE.
87              CALL DIAGNOSTICS_OUT(n,wrIter,wrTime,myThid)              CALL DIAGNOSTICS_OUT(n,wrIter,wrTime,myThid)
88            ENDIF            ENDIF
89          ENDDO          ENDDO
90    
91  C---   Check to see IF its time for Statistics Diag. Output  C---   Check to see if its time for Statistics Diag. Output
92    
93          DO n = 1,diagSt_nbLists          DO n = 1,diagSt_nbLists
94            freqSec = diagSt_freq(n)            freqSec = diagSt_freq(n)
# Line 114  C       state-variable time-step: Line 115  C       state-variable time-step:
115             dump2fileNow = alarm2(tagname)             dump2fileNow = alarm2(tagname)
116            ENDIF            ENDIF
117  #endif  #endif
118            IF ( dump2fileNow .OR.            IF ( dumpAtLast .AND. myTime.EQ.endTime
119       &        (myTime.EQ.endTime .AND. dumpAtLast) ) THEN       &                    .AND. freqSec.GE.0. ) dump2fileNow = .TRUE.
120              IF ( dump2fileNow ) THEN
121              write2file = .TRUE.              write2file = .TRUE.
122              CALL DIAGSTATS_OUTPUT(n,wrTime,wrIter,myThid)              CALL DIAGSTATS_OUTPUT(n,wrTime,wrIter,myThid)
123            ENDIF            ENDIF
# Line 154  C--     Clear storage space: Line 156  C--     Clear storage space:
156       I                          myTime, myIter, myThid )       I                          myTime, myIter, myThid )
157            ENDIF            ENDIF
158  #endif /* ALLOW_CAL */  #endif /* ALLOW_CAL */
159            IF ( dump2fileNow .OR.            IF ( dumpAtLast .AND. myTime.EQ.endTime
160       &        (myTime.EQ.endTime .AND. dumpAtLast)       &                    .AND. freqSec.GE.0. ) dump2fileNow = .TRUE.
161       &       ) CALL DIAGNOSTICS_CLEAR(n,myThid)            IF ( dump2fileNow ) CALL DIAGNOSTICS_CLEAR(n,myThid)
162          ENDDO          ENDDO
163    
164          DO n = 1,diagSt_nbLists          DO n = 1,diagSt_nbLists
# Line 172  C--     Clear storage space: Line 174  C--     Clear storage space:
174             dump2fileNow = alarm2(tagname)             dump2fileNow = alarm2(tagname)
175            ENDIF            ENDIF
176  #endif  #endif
177            IF ( dump2fileNow .OR.            IF ( dumpAtLast .AND. myTime.EQ.endTime
178       &        (myTime.EQ.endTime .AND. dumpAtLast)       &                    .AND. freqSec.GE.0. ) dump2fileNow = .TRUE.
179       &       ) CALL DIAGSTATS_CLEAR( n, myThid )            IF ( dump2fileNow ) CALL DIAGSTATS_CLEAR( n, myThid )
180          ENDDO          ENDDO
181    
182  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30
  ViewVC Help
Powered by ViewVC 1.1.22