/[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.20 by edhill, Wed May 25 04:03:09 2005 UTC
# Line 101  C-    Yearly  freqSec: Line 101  C-    Yearly  freqSec:
101  #endif  #endif
102    
103            IF ( dump2fileNow ) THEN            IF ( dump2fileNow ) THEN
104              CALL DIAGNOSTICS_OUT(n,wrIter,myThid)              CALL DIAGNOSTICS_OUT(n,wrIter,myTime,myThid)
105            ENDIF            ENDIF
106          ENDDO          ENDDO
107    
# 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 151  C--     Clear storage space: Line 158  C--     Clear storage space:
158             dump2fileNow = alarm2(tagname)             dump2fileNow = alarm2(tagname)
159            endif            endif
160  #endif  #endif
161    
162    #ifdef ALLOW_CAL
163              IF ( calendarDumps .AND. (
164         &     ( freqSec.GE. 2592000 .AND. freqSec.LE. 2678400 ) .OR.
165         &     ( freqSec.GE.31104000 .AND. freqSec.LE.31968000 ))) THEN
166    C--   Convert approximate months (30-31 days) and years (360-372 days)
167    C     to exact calendar months and years.
168               dump2fileNow = .FALSE.
169    C-    Monthly freqSec:
170               IF( freqSec.GE. 2592000 .AND. freqSec.LE. 2678400 .AND.
171         &        (thisdate(1)-prevdate(1)).GT.50   ) dump2fileNow = .TRUE.
172    C-    Yearly  freqSec:
173               IF( freqSec.GE.31104000 .AND. freqSec.LE.31968000 .AND.
174         &        (thisdate(1)-prevdate(1)).GT.5000 ) dump2fileNow = .TRUE.
175              ENDIF
176    #endif
177    
178            IF ( dump2fileNow ) CALL CLRINDX(n,myThid)            IF ( dump2fileNow ) CALL CLRINDX(n,myThid)
179          ENDDO          ENDDO
180    
# Line 161  C--     Clear storage space: Line 185  C--     Clear storage space:
185            IF ( freqSec.LT.0. ) wrTime = myTime - deltaTclock            IF ( freqSec.LT.0. ) wrTime = myTime - deltaTclock
186            dump2fileNow = DIFF_PHASE_MULTIPLE( phiSec, freqSec,            dump2fileNow = DIFF_PHASE_MULTIPLE( phiSec, freqSec,
187       &                                        wrTime, deltaTclock )       &                                        wrTime, deltaTclock )
188    #ifdef ALLOW_FIZHI
189             if( useFIZHI) then
190              write(tagname,'(A,I2.2)')'diagStg',n
191              dump2fileNow = alarm2(tagname)
192             endif
193    #endif
194            IF ( dump2fileNow ) CALL DIAGSTATS_CLEAR(n,myThid)            IF ( dump2fileNow ) CALL DIAGSTATS_CLEAR(n,myThid)
195          ENDDO          ENDDO
196    
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22