/[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.28 by jmc, Mon Mar 20 15:15:39 2006 UTC revision 1.29 by jmc, Mon Jun 5 18:17:23 2006 UTC
# Line 33  c =============== Line 33  c ===============
33        LOGICAL   dump2fileNow, write2file        LOGICAL   dump2fileNow, write2file
34        _RL       phiSec, freqSec, wrTime        _RL       phiSec, freqSec, wrTime
35  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
36        logical alarm2        LOGICAL alarm2
37        character *9 tagname        CHARACTER *9 tagname
38  #endif  #endif
39    
40        LOGICAL  DIFF_PHASE_MULTIPLE        LOGICAL  DIFF_PHASE_MULTIPLE
# Line 68  C       state-variable time-step: Line 68  C       state-variable time-step:
68            dump2fileNow = DIFF_PHASE_MULTIPLE( phiSec, freqSec,            dump2fileNow = DIFF_PHASE_MULTIPLE( phiSec, freqSec,
69       &                                        wrTime, deltaTclock )       &                                        wrTime, deltaTclock )
70  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
71            IF( useFIZHI) THEN            IF ( useFIZHI ) THEN
72             write(tagname,'(A,I2.2)')'diagtag',n             WRITE(tagname,'(A,I2.2)')'diagtag',n
73             dump2fileNow = alarm2(tagname)             dump2fileNow = alarm2(tagname)
74            ENDIF            ENDIF
75  #endif  #endif
# Line 81  C       state-variable time-step: Line 81  C       state-variable time-step:
81            ENDIF            ENDIF
82  #endif /* ALLOW_CAL */  #endif /* ALLOW_CAL */
83            IF ( dump2fileNow .OR.            IF ( dump2fileNow .OR.
84       &        (myTime.EQ.endTime .AND. dumpatlast) ) THEN       &        (myTime.EQ.endTime .AND. dumpAtLast) ) THEN
85              write2file = .TRUE.              write2file = .TRUE.
86              CALL DIAGNOSTICS_OUT(n,wrIter,wrTime,myThid)              CALL DIAGNOSTICS_OUT(n,wrIter,wrTime,myThid)
87            ENDIF            ENDIF
# Line 109  C       state-variable time-step: Line 109  C       state-variable time-step:
109            dump2fileNow = DIFF_PHASE_MULTIPLE( phiSec, freqSec,            dump2fileNow = DIFF_PHASE_MULTIPLE( phiSec, freqSec,
110       &                                        wrTime, deltaTclock )       &                                        wrTime, deltaTclock )
111  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
112            IF( useFIZHI) THEN            IF ( useFIZHI ) THEN
113             write(tagname,'(A,I2.2)')'diagStg',n             WRITE(tagname,'(A,I2.2)')'diagStg',n
114             dump2fileNow = alarm2(tagname)             dump2fileNow = alarm2(tagname)
115            ENDIF            ENDIF
116  #endif  #endif
117            IF ( dump2fileNow .OR.            IF ( dump2fileNow .OR.
118       &        (myTime.EQ.endTime .AND. dumpatlast) ) THEN       &        (myTime.EQ.endTime .AND. dumpAtLast) ) THEN
119              write2file = .TRUE.              write2file = .TRUE.
120              CALL DIAGSTATS_OUTPUT(n,wrTime,wrIter,myThid)              CALL DIAGSTATS_OUTPUT(n,wrTime,wrIter,myThid)
121            ENDIF            ENDIF
# Line 142  C--     Clear storage space: Line 142  C--     Clear storage space:
142            dump2fileNow = DIFF_PHASE_MULTIPLE( phiSec, freqSec,            dump2fileNow = DIFF_PHASE_MULTIPLE( phiSec, freqSec,
143       &                                        wrTime, deltaTclock )       &                                        wrTime, deltaTclock )
144  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
145            IF( useFIZHI) THEN            IF ( useFIZHI ) THEN
146             write(tagname,'(A,I2.2)')'diagtag',n             WRITE(tagname,'(A,I2.2)')'diagtag',n
147             dump2fileNow = alarm2(tagname)             dump2fileNow = alarm2(tagname)
148            ENDIF            ENDIF
149  #endif  #endif
# Line 155  C--     Clear storage space: Line 155  C--     Clear storage space:
155            ENDIF            ENDIF
156  #endif /* ALLOW_CAL */  #endif /* ALLOW_CAL */
157            IF ( dump2fileNow .OR.            IF ( dump2fileNow .OR.
158       &        (myTime.EQ.endTime .AND. dumpatlast)       &        (myTime.EQ.endTime .AND. dumpAtLast)
159       &       ) CALL DIAGNOSTICS_CLEAR(n,myThid)       &       ) CALL DIAGNOSTICS_CLEAR(n,myThid)
160          ENDDO          ENDDO
161    
# Line 167  C--     Clear storage space: Line 167  C--     Clear storage space:
167            dump2fileNow = DIFF_PHASE_MULTIPLE( phiSec, freqSec,            dump2fileNow = DIFF_PHASE_MULTIPLE( phiSec, freqSec,
168       &                                        wrTime, deltaTclock )       &                                        wrTime, deltaTclock )
169  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
170            IF( useFIZHI) THEN            IF ( useFIZHI ) THEN
171             write(tagname,'(A,I2.2)')'diagStg',n             WRITE(tagname,'(A,I2.2)')'diagStg',n
172             dump2fileNow = alarm2(tagname)             dump2fileNow = alarm2(tagname)
173            ENDIF            ENDIF
174  #endif  #endif
175            IF ( dump2fileNow .OR.            IF ( dump2fileNow .OR.
176       &        (myTime.EQ.endTime .AND. dumpatlast)       &        (myTime.EQ.endTime .AND. dumpAtLast)
177       &       ) CALL DIAGSTATS_CLEAR( n, myThid )       &       ) CALL DIAGSTATS_CLEAR( n, myThid )
178          ENDDO          ENDDO
179    
Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29
  ViewVC Help
Powered by ViewVC 1.1.22