/[MITgcm]/MITgcm/pkg/diagnostics/diagnostics_switch_onoff.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagnostics_switch_onoff.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.5 by jmc, Sat May 14 20:45:27 2005 UTC revision 1.8 by molod, Tue May 17 00:22:00 2005 UTC
# Line 36  C     !INPUT PARAMETERS: Line 36  C     !INPUT PARAMETERS:
36  C     myTime     :: current Time of simulation ( s )  C     myTime     :: current Time of simulation ( s )
37  C     myIter     :: current Iteration number  C     myIter     :: current Iteration number
38  C     myThid     :: my Thread Id number  C     myThid     :: my Thread Id number
39        INTEGER myTime        _RL     myTime
40        INTEGER myIter        INTEGER myIter
41        INTEGER myThid        INTEGER myThid
42  CEOP  CEOP
# Line 50  c     INTEGER newIter Line 50  c     INTEGER newIter
50        LOGICAL time4SnapShot        LOGICAL time4SnapShot
51        _RL     phiSec, freqSec        _RL     phiSec, freqSec
52  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
53        integer yymmdd,hhmmss,nsecf2        integer mmdd,hhmmss,nsecf2
54          logical alarm2
55          character *9 tagname
56  #endif  #endif
57    
58        LOGICAL  DIFF_PHASE_MULTIPLE        LOGICAL  DIFF_PHASE_MULTIPLE
# Line 68  C--    Select diagnostics list that uses Line 70  C--    Select diagnostics list that uses
70    
71          freqSec = freq(n)          freqSec = freq(n)
72          phiSec = phase(n)          phiSec = phase(n)
73            time4SnapShot = DIFF_PHASE_MULTIPLE( phiSec, freqSec,
74         &                                       myTime, deltaTclock )
75  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
76          if( useFIZHI) then          if( useFIZHI) then
77           yymmdd = int(freq(n))           mmdd = int(freq(n))
78           hhmmss = int((freq(n) - int(freq(n)))*1.e6)           hhmmss = int((freq(n) - int(freq(n)))*1.e6)
79           freqSec = nsecf2(hhmmss,yymmdd,nymd)           freqSec = nsecf2(hhmmss,mmdd,nymd)
80           yymmdd = int(phase(n))           write(tagname,'(A,I2.2)')'diagtag',n
81           hhmmss = int((phase(n) - int(phase(n)))*1.e6)           time4SnapShot = alarm2(tagname)
          phiSec = nsecf2(hhmmss,yymmdd,nymd)  
82          endif          endif
83  #endif  #endif
84    
         time4SnapShot = DIFF_PHASE_MULTIPLE( phiSec, freqSec,  
      &                                       myTime, deltaTclock )  
   
85          IF ( time4SnapShot ) THEN          IF ( time4SnapShot ) THEN
86  C--     switch ON diagnostics of output-stream # n  C--     switch ON diagnostics of output-stream # n
87            DO m=1,nActive(n)            DO m=1,nActive(n)
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22