/[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.18 by jmc, Sat May 21 22:33:40 2005 UTC revision 1.19 by dimitri, Sun May 22 22:53:36 2005 UTC
# Line 158  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    
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22