/[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.21 by molod, Tue Jun 14 22:30:02 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 .or. (myIter.eq.nIter0+nTimeSteps) ) THEN            IF ( dump2fileNow .or. ((myIter.eq.nIter0+nTimeSteps).and.
104         .                                                dumpatlast) ) THEN
105              CALL DIAGNOSTICS_OUT(n,wrIter,myTime,myThid)              CALL DIAGNOSTICS_OUT(n,wrIter,myTime,myThid)
106            ENDIF            ENDIF
107          ENDDO          ENDDO
# Line 133  C       state-variable time-step: Line 134  C       state-variable time-step:
134           endif           endif
135  #endif  #endif
136    
137            IF ( dump2fileNow .or. (myIter.eq.nIter0+nTimeSteps) ) 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 175  C-    Yearly  freqSec: Line 177  C-    Yearly  freqSec:
177            ENDIF            ENDIF
178  #endif  #endif
179    
180            IF ( dump2fileNow .or. (myIter.eq.nIter0+nTimeSteps) )            IF ( dump2fileNow .or. ((myIter.eq.nIter0+nTimeSteps).and.
181         .                                                dumpatlast) )
182       .                             CALL CLRINDX(n,myThid)       .                             CALL CLRINDX(n,myThid)
183          ENDDO          ENDDO
184    
# Line 192  C-    Yearly  freqSec: Line 195  C-    Yearly  freqSec:
195            dump2fileNow = alarm2(tagname)            dump2fileNow = alarm2(tagname)
196           endif           endif
197  #endif  #endif
198            IF ( dump2fileNow .or. (myIter.eq.nIter0+nTimeSteps) )            IF ( dump2fileNow .or. ((myIter.eq.nIter0+nTimeSteps).and.
199         .                                                dumpatlast) )
200       .                             CALL DIAGSTATS_CLEAR(n,myThid)       .                             CALL DIAGSTATS_CLEAR(n,myThid)
201          ENDDO          ENDDO
202    
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22