/[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.14 by jmc, Sat May 14 20:45:27 2005 UTC revision 1.15 by molod, Mon May 16 23:41:32 2005 UTC
# Line 39  c =============== Line 39  c ===============
39        INTEGER thisdate(4), prevdate(4)        INTEGER thisdate(4), prevdate(4)
40  #endif  #endif
41  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
42        integer nsecf2,yymmdd,hhmmss        integer nsecf2,mmdd,hhmmss,alarm2
43          character *9 tagname
44  #endif  #endif
45    
46        LOGICAL  DIFF_PHASE_MULTIPLE        LOGICAL  DIFF_PHASE_MULTIPLE
# Line 65  C-    Determine calendar dates for this Line 66  C-    Determine calendar dates for this
66            phiSec = phase(n)            phiSec = phase(n)
67  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
68           if( useFIZHI) then           if( useFIZHI) then
69            yymmdd = int(freq(n))            mmdd = int(freq(n))
70            hhmmss = int((freq(n) - int(freq(n)))*1.e6)            hhmmss = int((freq(n) - int(freq(n)))*1.e6)
71            freqSec = nsecf2(hhmmss,yymmdd,nymd)            freqSec = nsecf2(hhmmss,mmdd,nymd)
           yymmdd = int(phase(n))  
           hhmmss = int((phase(n) - int(phase(n)))*1.e6)  
           phiSec = nsecf2(hhmmss,yymmdd,nymd)  
72           endif           endif
73  #endif  #endif
74    
# Line 89  C       state-variable time-step: Line 87  C       state-variable time-step:
87            ENDIF            ENDIF
88            dump2fileNow = DIFF_PHASE_MULTIPLE( phiSec, freqSec,            dump2fileNow = DIFF_PHASE_MULTIPLE( phiSec, freqSec,
89       &                                        wrTime, deltaTclock )       &                                        wrTime, deltaTclock )
90    #ifdef ALLOW_FIZHI
91             if( useFIZHI) then
92              write(tagname,'(A,I2.2)')'diagtag',n
93              dump2fileNow = alarm2(tagname)
94             endif
95    #endif
96    
97  #ifdef ALLOW_CAL  #ifdef ALLOW_CAL
98            IF ( calendarDumps .AND. (            IF ( calendarDumps .AND. (
# Line 118  C-      wait for everyone before setting Line 122  C-      wait for everyone before setting
122            phiSec = phase(n)            phiSec = phase(n)
123  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
124           if( useFIZHI) then           if( useFIZHI) then
125            yymmdd = int(freq(n))            mmdd = int(freq(n))
126            hhmmss = int((freq(n) - int(freq(n)))*1.e6)            hhmmss = int((freq(n) - int(freq(n)))*1.e6)
127            freqSec = nsecf2(hhmmss,yymmdd,nymd)            freqSec = nsecf2(hhmmss,mmdd,nymd)
           yymmdd = int(phase(n))  
           hhmmss = int((phase(n) - int(phase(n)))*1.e6)  
           phiSec = nsecf2(hhmmss,yymmdd,nymd)  
128           endif           endif
129  #endif  #endif
130            wrTime = myTime            wrTime = myTime
131            IF ( freqSec.LT.0. ) wrTime = myTime - deltaTclock            IF ( freqSec.LT.0. ) wrTime = myTime - deltaTclock
132            dump2fileNow = DIFF_PHASE_MULTIPLE( phiSec, freqSec,            dump2fileNow = DIFF_PHASE_MULTIPLE( phiSec, freqSec,
133       &                                        wrTime, deltaTclock )       &                                        wrTime, deltaTclock )
134    #ifdef ALLOW_FIZHI
135              if( useFIZHI) then
136               write(tagname,'(A,I2.2)')'diagtag',n
137               dump2fileNow = alarm2(tagname)
138              endif
139    #endif
140            IF ( dump2fileNow ) CALL CLRINDX(n,myThid)            IF ( dump2fileNow ) CALL CLRINDX(n,myThid)
141          ENDDO          ENDDO
142    
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22