/[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.20 by edhill, Wed May 25 04:03:09 2005 UTC revision 1.21 by molod, Tue Jun 14 22:30:02 2005 UTC
# Line 100  C-    Yearly  freqSec: Line 100  C-    Yearly  freqSec:
100            ENDIF            ENDIF
101  #endif  #endif
102    
103            IF ( dump2fileNow ) THEN            IF ( dump2fileNow .or. (myIter.eq.nIter0+nTimeSteps) ) THEN
104              CALL DIAGNOSTICS_OUT(n,wrIter,myTime,myThid)              CALL DIAGNOSTICS_OUT(n,wrIter,myTime,myThid)
105            ENDIF            ENDIF
106          ENDDO          ENDDO
# Line 133  C       state-variable time-step: Line 133  C       state-variable time-step:
133           endif           endif
134  #endif  #endif
135    
136            IF ( dump2fileNow ) THEN            IF ( dump2fileNow .or. (myIter.eq.nIter0+nTimeSteps) ) THEN
137              CALL DIAGSTATS_OUTPUT(n,wrIter,myThid)              CALL DIAGSTATS_OUTPUT(n,wrIter,myThid)
138            ENDIF            ENDIF
139          ENDDO          ENDDO
# Line 175  C-    Yearly  freqSec: Line 175  C-    Yearly  freqSec:
175            ENDIF            ENDIF
176  #endif  #endif
177    
178            IF ( dump2fileNow ) CALL CLRINDX(n,myThid)            IF ( dump2fileNow .or. (myIter.eq.nIter0+nTimeSteps) )
179         .                             CALL CLRINDX(n,myThid)
180          ENDDO          ENDDO
181    
182          DO n = 1,diagSt_nbLists          DO n = 1,diagSt_nbLists
# Line 191  C-    Yearly  freqSec: Line 192  C-    Yearly  freqSec:
192            dump2fileNow = alarm2(tagname)            dump2fileNow = alarm2(tagname)
193           endif           endif
194  #endif  #endif
195            IF ( dump2fileNow ) CALL DIAGSTATS_CLEAR(n,myThid)            IF ( dump2fileNow .or. (myIter.eq.nIter0+nTimeSteps) )
196         .                             CALL DIAGSTATS_CLEAR(n,myThid)
197          ENDDO          ENDDO
198    
199  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22