/[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.36 by jmc, Thu Jun 7 17:12:01 2012 UTC revision 1.37 by jmc, Fri Jun 8 15:01:19 2012 UTC
# Line 85  C       state-variable time-step: Line 85  C       state-variable time-step:
85            IF ( useCAL ) THEN            IF ( useCAL ) THEN
86              CALL CAL_TIME2DUMP( phiSec, freqSec, deltaTClock,              CALL CAL_TIME2DUMP( phiSec, freqSec, deltaTClock,
87       U                          dump2fileNow,       U                          dump2fileNow,
88       I                          wrTime, wrIter, myThid )       I                          wrTime, myIter, myThid )
89            ENDIF            ENDIF
90  #endif /* ALLOW_CAL */  #endif /* ALLOW_CAL */
91            IF ( dumpAtLast .AND. modelEnd            IF ( dumpAtLast .AND. modelEnd
# Line 127  C       state-variable time-step: Line 127  C       state-variable time-step:
127            IF ( useCAL ) THEN            IF ( useCAL ) THEN
128              CALL CAL_TIME2DUMP( phiSec, freqSec, deltaTClock,              CALL CAL_TIME2DUMP( phiSec, freqSec, deltaTClock,
129       U                          dump2fileNow,       U                          dump2fileNow,
130       I                          wrTime, wrIter, myThid )       I                          wrTime, myIter, myThid )
131            ENDIF            ENDIF
132  #endif /* ALLOW_CAL */  #endif /* ALLOW_CAL */
133            IF ( dumpAtLast .AND. modelEnd            IF ( dumpAtLast .AND. modelEnd
# Line 170  C--     Clear storage space: Line 170  C--     Clear storage space:
170  #endif  #endif
171  #ifdef ALLOW_CAL  #ifdef ALLOW_CAL
172            IF ( useCAL ) THEN            IF ( useCAL ) THEN
             wrIter = myIter  
             IF ( freqSec.LT.0. ) wrIter = myItM1  
173              CALL CAL_TIME2DUMP( phiSec, freqSec, deltaTClock,              CALL CAL_TIME2DUMP( phiSec, freqSec, deltaTClock,
174       U                          dump2fileNow,       U                          dump2fileNow,
175       I                          wrTime, wrIter, myThid )       I                          wrTime, myIter, myThid )
176            ENDIF            ENDIF
177  #endif /* ALLOW_CAL */  #endif /* ALLOW_CAL */
178            IF ( dumpAtLast .AND. modelEnd            IF ( dumpAtLast .AND. modelEnd
# Line 197  C--     Clear storage space: Line 195  C--     Clear storage space:
195  #endif  #endif
196  #ifdef ALLOW_CAL  #ifdef ALLOW_CAL
197            IF ( useCAL ) THEN            IF ( useCAL ) THEN
             wrIter = myIter  
             IF ( freqSec.LT.0. ) wrIter = myItM1  
198              CALL CAL_TIME2DUMP( phiSec, freqSec, deltaTClock,              CALL CAL_TIME2DUMP( phiSec, freqSec, deltaTClock,
199       U                          dump2fileNow,       U                          dump2fileNow,
200       I                          wrTime, wrIter, myThid )       I                          wrTime, myIter, myThid )
201            ENDIF            ENDIF
202  #endif /* ALLOW_CAL */  #endif /* ALLOW_CAL */
203            IF ( dumpAtLast .AND. modelEnd            IF ( dumpAtLast .AND. modelEnd
Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37
  ViewVC Help
Powered by ViewVC 1.1.22