/[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.37 by jmc, Fri Jun 8 15:01:19 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, myIter, 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, 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
173              CALL CAL_TIME2DUMP( freqSec, deltaTClock,              CALL CAL_TIME2DUMP( phiSec, freqSec, deltaTClock,
174       U                          dump2fileNow,       U                          dump2fileNow,
175       I                          myTime, myIter, 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 195  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
198              CALL CAL_TIME2DUMP( freqSec, deltaTClock,              CALL CAL_TIME2DUMP( phiSec, freqSec, deltaTClock,
199       U                          dump2fileNow,       U                          dump2fileNow,
200       I                          myTime, myIter, 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.35  
changed lines
  Added in v.1.37
  ViewVC Help
Powered by ViewVC 1.1.22