/[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.12 by molod, Fri May 13 18:22:53 2005 UTC revision 1.13 by molod, Fri May 13 18:32:46 2005 UTC
# Line 57  C-    Determine calendar dates for this Line 57  C-    Determine calendar dates for this
57  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
58           if( useFIZHI) then           if( useFIZHI) then
59            yymmdd = int(freq(n))            yymmdd = int(freq(n))
60            realfreq = nsecf2(0,yymmdd,nymd) / deltaTclock            hhmmss = int((freq(n) - int(freq(n)))*1.e6)
61              realfreq = nsecf2(hhmmss,yymmdd,nymd) / deltaTclock
62           endif           endif
63  #endif  #endif
64    
# Line 103  C-      wait for everyone before setting Line 104  C-      wait for everyone before setting
104  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
105           if( useFIZHI) then           if( useFIZHI) then
106            yymmdd = int(freq(n))            yymmdd = int(freq(n))
107            realfreq = nsecf2(0,yymmdd,nymd) / deltaTclock            hhmmss = int((freq(n) - int(freq(n)))*1.e6)
108              realfreq = nsecf2(hhmmss,yymmdd,nymd) / deltaTclock
109           endif           endif
110  #endif  #endif
111            IF ( realfreq.LT.0 ) THEN            IF ( realfreq.LT.0 ) THEN
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22