/[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.17 by jmc, Fri May 20 07:28:50 2005 UTC revision 1.18 by jmc, Sat May 21 22:33:40 2005 UTC
# Line 126  C       state-variable time-step: Line 126  C       state-variable time-step:
126            ENDIF            ENDIF
127            dump2fileNow = DIFF_PHASE_MULTIPLE( phiSec, freqSec,            dump2fileNow = DIFF_PHASE_MULTIPLE( phiSec, freqSec,
128       &                                        wrTime, deltaTclock )       &                                        wrTime, deltaTclock )
129    #ifdef ALLOW_FIZHI
130             if( useFIZHI) then
131              write(tagname,'(A,I2.2)')'diagStg',n
132              dump2fileNow = alarm2(tagname)
133             endif
134    #endif
135    
136            IF ( dump2fileNow ) THEN            IF ( dump2fileNow ) THEN
137              CALL DIAGSTATS_OUTPUT(n,wrIter,myThid)              CALL DIAGSTATS_OUTPUT(n,wrIter,myThid)
138            ENDIF            ENDIF
# Line 161  C--     Clear storage space: Line 168  C--     Clear storage space:
168            IF ( freqSec.LT.0. ) wrTime = myTime - deltaTclock            IF ( freqSec.LT.0. ) wrTime = myTime - deltaTclock
169            dump2fileNow = DIFF_PHASE_MULTIPLE( phiSec, freqSec,            dump2fileNow = DIFF_PHASE_MULTIPLE( phiSec, freqSec,
170       &                                        wrTime, deltaTclock )       &                                        wrTime, deltaTclock )
171    #ifdef ALLOW_FIZHI
172             if( useFIZHI) then
173              write(tagname,'(A,I2.2)')'diagStg',n
174              dump2fileNow = alarm2(tagname)
175             endif
176    #endif
177            IF ( dump2fileNow ) CALL DIAGSTATS_CLEAR(n,myThid)            IF ( dump2fileNow ) CALL DIAGSTATS_CLEAR(n,myThid)
178          ENDDO          ENDDO
179    
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22