/[MITgcm]/MITgcm/pkg/fizhi/fizhi_write_state.F
ViewVC logotype

Diff of /MITgcm/pkg/fizhi/fizhi_write_state.F

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

revision 1.5 by molod, Mon Jul 26 18:45:17 2004 UTC revision 1.8 by jmc, Sun May 15 03:04:56 2005 UTC
# Line 48  C     fn      :: character buffer for cr Line 48  C     fn      :: character buffer for cr
48        EXTERNAL DIFFERENT_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
49    
50        IF (        IF (
51       &     DIFFERENT_MULTIPLE(dumpFreq,myTime,       &     DIFFERENT_MULTIPLE(dumpFreq,myTime,deltaTClock).OR.
      &     myTime-deltaTClock) .OR.  
52       &     myTime.EQ.endTime .OR.       &     myTime.EQ.endTime .OR.
53       &     myTime.EQ.startTime       &     myTime.EQ.startTime
54       &     ) THEN       &     ) THEN
# Line 69  C--   Write fields as consecutive record Line 68  C--   Write fields as consecutive record
68         pref = 'fizhi_T.'         pref = 'fizhi_T.'
69         WRITE( fn, '(A,A)' ) pref(1:8),suff(1:10)         WRITE( fn, '(A,A)' ) pref(1:8),suff(1:10)
70         call mdswritefield(fn,64,glf,'RL',Nrphys,thphy,1,myIter,myThid)         call mdswritefield(fn,64,glf,'RL',Nrphys,thphy,1,myIter,myThid)
71           pref = 'fizhi_S.'
72           WRITE( fn, '(A,A)' ) pref(1:8),suff(1:10)
73           call mdswritefield(fn,64,glf,'RL',Nrphys,sphy,1,myIter,myThid)
74    
75        ENDIF        ENDIF
76    
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22