/[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.35 by jmc, Wed Jun 6 17:55:44 2012 UTC revision 1.36 by jmc, Thu Jun 7 17:12:01 2012 UTC
# Line 83  C       state-variable time-step: Line 83  C       state-variable time-step:
83  #endif  #endif
84  #ifdef ALLOW_CAL  #ifdef ALLOW_CAL
85            IF ( useCAL ) THEN            IF ( useCAL ) THEN
86              CALL CAL_TIME2DUMP( freqSec, deltaTClock,              CALL CAL_TIME2DUMP( phiSec, freqSec, deltaTClock,
87       U                          dump2fileNow,       U                          dump2fileNow,
88       I                          myTime, myIter, myThid )       I                          wrTime, wrIter, myThid )
89            ENDIF            ENDIF
90  #endif /* ALLOW_CAL */  #endif /* ALLOW_CAL */
91            IF ( dumpAtLast .AND. modelEnd            IF ( dumpAtLast .AND. modelEnd
# Line 125  C       state-variable time-step: Line 125  C       state-variable time-step:
125  #endif  #endif
126  #ifdef ALLOW_CAL  #ifdef ALLOW_CAL
127            IF ( useCAL ) THEN            IF ( useCAL ) THEN
128              CALL CAL_TIME2DUMP( freqSec, deltaTClock,              CALL CAL_TIME2DUMP( phiSec, freqSec, deltaTClock,
129       U                          dump2fileNow,       U                          dump2fileNow,
130       I                          myTime, myIter, myThid )       I                          wrTime, wrIter, 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
173              CALL CAL_TIME2DUMP( freqSec, deltaTClock,              wrIter = myIter
174                IF ( freqSec.LT.0. ) wrIter = myItM1
175                CALL CAL_TIME2DUMP( phiSec, freqSec, deltaTClock,
176       U                          dump2fileNow,       U                          dump2fileNow,
177       I                          myTime, myIter, myThid )       I                          wrTime, wrIter, myThid )
178            ENDIF            ENDIF
179  #endif /* ALLOW_CAL */  #endif /* ALLOW_CAL */
180            IF ( dumpAtLast .AND. modelEnd            IF ( dumpAtLast .AND. modelEnd
# Line 195  C--     Clear storage space: Line 197  C--     Clear storage space:
197  #endif  #endif
198  #ifdef ALLOW_CAL  #ifdef ALLOW_CAL
199            IF ( useCAL ) THEN            IF ( useCAL ) THEN
200              CALL CAL_TIME2DUMP( freqSec, deltaTClock,              wrIter = myIter
201                IF ( freqSec.LT.0. ) wrIter = myItM1
202                CALL CAL_TIME2DUMP( phiSec, freqSec, deltaTClock,
203       U                          dump2fileNow,       U                          dump2fileNow,
204       I                          myTime, myIter, myThid )       I                          wrTime, wrIter, myThid )
205            ENDIF            ENDIF
206  #endif /* ALLOW_CAL */  #endif /* ALLOW_CAL */
207            IF ( dumpAtLast .AND. modelEnd            IF ( dumpAtLast .AND. modelEnd
Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36
  ViewVC Help
Powered by ViewVC 1.1.22