/[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.22 by molod, Tue Jun 14 23:06:15 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).and.
104              CALL DIAGNOSTICS_OUT(n,wrIter,myThid)       .                                                dumpatlast) ) THEN
105                CALL DIAGNOSTICS_OUT(n,wrIter,myTime,myThid)
106            ENDIF            ENDIF
107          ENDDO          ENDDO
108    
# Line 133  C       state-variable time-step: Line 134  C       state-variable time-step:
134           endif           endif
135  #endif  #endif
136    
137            IF ( dump2fileNow ) THEN            IF ( dump2fileNow .or. ((myIter.eq.nIter0+nTimeSteps).and.
138         .                                                dumpatlast) ) THEN
139              CALL DIAGSTATS_OUTPUT(n,wrIter,myThid)              CALL DIAGSTATS_OUTPUT(n,wrIter,myThid)
140            ENDIF            ENDIF
141          ENDDO          ENDDO
# Line 158  C--     Clear storage space: Line 160  C--     Clear storage space:
160             dump2fileNow = alarm2(tagname)             dump2fileNow = alarm2(tagname)
161            endif            endif
162  #endif  #endif
163            IF ( dump2fileNow ) CALL CLRINDX(n,myThid)  
164    #ifdef ALLOW_CAL
165              IF ( calendarDumps .AND. (
166         &     ( freqSec.GE. 2592000 .AND. freqSec.LE. 2678400 ) .OR.
167         &     ( freqSec.GE.31104000 .AND. freqSec.LE.31968000 ))) THEN
168    C--   Convert approximate months (30-31 days) and years (360-372 days)
169    C     to exact calendar months and years.
170               dump2fileNow = .FALSE.
171    C-    Monthly freqSec:
172               IF( freqSec.GE. 2592000 .AND. freqSec.LE. 2678400 .AND.
173         &        (thisdate(1)-prevdate(1)).GT.50   ) dump2fileNow = .TRUE.
174    C-    Yearly  freqSec:
175               IF( freqSec.GE.31104000 .AND. freqSec.LE.31968000 .AND.
176         &        (thisdate(1)-prevdate(1)).GT.5000 ) dump2fileNow = .TRUE.
177              ENDIF
178    #endif
179    
180              IF ( dump2fileNow .or. ((myIter.eq.nIter0+nTimeSteps).and.
181         .                                                dumpatlast) )
182         .                             CALL CLRINDX(n,myThid)
183          ENDDO          ENDDO
184    
185          DO n = 1,diagSt_nbLists          DO n = 1,diagSt_nbLists
# Line 174  C--     Clear storage space: Line 195  C--     Clear storage space:
195            dump2fileNow = alarm2(tagname)            dump2fileNow = alarm2(tagname)
196           endif           endif
197  #endif  #endif
198            IF ( dump2fileNow ) CALL DIAGSTATS_CLEAR(n,myThid)            IF ( dump2fileNow .or. ((myIter.eq.nIter0+nTimeSteps).and.
199         .                                                dumpatlast) )
200         .                             CALL DIAGSTATS_CLEAR(n,myThid)
201          ENDDO          ENDDO
202    
203  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.22
  ViewVC Help
Powered by ViewVC 1.1.22