/[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.18 by jmc, Sat May 21 22:33:40 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,myThid)              CALL DIAGNOSTICS_OUT(n,wrIter,myTime,myThid)
105            ENDIF            ENDIF
106          ENDDO          ENDDO
107    
# 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 158  C--     Clear storage space: Line 158  C--     Clear storage space:
158             dump2fileNow = alarm2(tagname)             dump2fileNow = alarm2(tagname)
159            endif            endif
160  #endif  #endif
161            IF ( dump2fileNow ) CALL CLRINDX(n,myThid)  
162    #ifdef ALLOW_CAL
163              IF ( calendarDumps .AND. (
164         &     ( freqSec.GE. 2592000 .AND. freqSec.LE. 2678400 ) .OR.
165         &     ( freqSec.GE.31104000 .AND. freqSec.LE.31968000 ))) THEN
166    C--   Convert approximate months (30-31 days) and years (360-372 days)
167    C     to exact calendar months and years.
168               dump2fileNow = .FALSE.
169    C-    Monthly freqSec:
170               IF( freqSec.GE. 2592000 .AND. freqSec.LE. 2678400 .AND.
171         &        (thisdate(1)-prevdate(1)).GT.50   ) dump2fileNow = .TRUE.
172    C-    Yearly  freqSec:
173               IF( freqSec.GE.31104000 .AND. freqSec.LE.31968000 .AND.
174         &        (thisdate(1)-prevdate(1)).GT.5000 ) dump2fileNow = .TRUE.
175              ENDIF
176    #endif
177    
178              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 174  C--     Clear storage space: Line 192  C--     Clear storage space:
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.18  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22