/[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.10 by dimitri, Sun Feb 20 11:46:25 2005 UTC revision 1.11 by dimitri, Sun Feb 20 19:41:11 2005 UTC
# Line 66  C       state-variable time-step: Line 66  C       state-variable time-step:
66            freqSec = freq(n) * deltaTClock            freqSec = freq(n) * deltaTClock
67            IF ( calendarDumps .AND. (            IF ( calendarDumps .AND. (
68       &     ( freqSec.GE. 2592000 .AND. freqSec.LE. 2678400 ) .OR.       &     ( freqSec.GE. 2592000 .AND. freqSec.LE. 2678400 ) .OR.
69       &     ( freqSec.GE.31104000 .AND. freqSec.LE.31968000 )) THEN       &     ( freqSec.GE.31104000 .AND. freqSec.LE.31968000 ))) THEN
70  C--   Convert approximate months (30-31 days) and years (360-372 days)  C--   Convert approximate months (30-31 days) and years (360-372 days)
71  C     to exact calendar months and years.  C     to exact calendar months and years.
72             dump2fileNow = .FALSE             dump2fileNow = .FALSE.
73  C-    Monthly freqSec:  C-    Monthly freqSec:
74             IF( freqSec.GE. 2592000 .AND. freqSec.LE. 2678400 .AND.             IF( freqSec.GE. 2592000 .AND. freqSec.LE. 2678400 .AND.
75       &        thisdate-prevdate.GT.50   ) dump2fileNow = .TRUE.       &        (thisdate(1)-prevdate(1)).GT.50   ) dump2fileNow = .TRUE.
76  C-    Yearly  freqSec:  C-    Yearly  freqSec:
77             IF( freqSec.GE.31104000 .AND. freqSec.LE.31968000 .AND.             IF( freqSec.GE.31104000 .AND. freqSec.LE.31968000 .AND.
78       &        thisdate-prevdate.GT.5000 ) dump2fileNow = .TRUE.       &        (thisdate(1)-prevdate(1)).GT.5000 ) dump2fileNow = .TRUE.
79            ENDIF            ENDIF
80  #endif  #endif
81    
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22