/[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.1 by molod, Mon Feb 23 20:36:49 2004 UTC revision 1.2 by molod, Tue Mar 30 18:28:44 2004 UTC
# Line 41  C     fn      :: character buffer for cr Line 41  C     fn      :: character buffer for cr
41        CHARACTER*(MAX_LEN_MBUF) suff        CHARACTER*(MAX_LEN_MBUF) suff
42        CHARACTER*(80) fn        CHARACTER*(80) fn
43        logical glf        logical glf
44          LOGICAL  DIFFERENT_MULTIPLE
45          EXTERNAL DIFFERENT_MULTIPLE
46    
47          IF (
48         &     DIFFERENT_MULTIPLE(dumpFreq,myTime,
49         &     myTime-deltaTClock) .OR.
50         &     myTime.EQ.endTime .OR.
51         &     myTime.EQ.startTime
52         &     ) THEN
53    
54    
55  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
56    
57  C--   Write fields as consecutive records  C--   Write fields as consecutive records
58        glf = .FALSE.         glf = .FALSE.
59        WRITE(suff,'(I10.10)') myIter         WRITE(suff,'(I10.10)') myIter
60        pref = 'fizhi_U.'         pref = 'fizhi_U.'
61        WRITE( fn, '(A,A)' ) pref(1:8),suff(1:10)         WRITE( fn, '(A,A)' ) pref(1:8),suff(1:10)
62        call mdswritefield(fn,64,glf,'RL',Nrphys,uphy,1,myIter,myThid)         call mdswritefield(fn,64,glf,'RL',Nrphys,uphy,1,myIter,myThid)
63        pref = 'fizhi_V.'         pref = 'fizhi_V.'
64        WRITE( fn, '(A,A)' ) pref(1:8),suff(1:10)         WRITE( fn, '(A,A)' ) pref(1:8),suff(1:10)
65        call mdswritefield(fn,64,glf,'RL',Nrphys,vphy,1,myIter,myThid)         call mdswritefield(fn,64,glf,'RL',Nrphys,vphy,1,myIter,myThid)
66        pref = 'fizhi_T.'         pref = 'fizhi_T.'
67        WRITE( fn, '(A,A)' ) pref(1:8),suff(1:10)         WRITE( fn, '(A,A)' ) pref(1:8),suff(1:10)
68        call mdswritefield(fn,64,glf,'RL',Nrphys,thphy,1,myIter,myThid)         call mdswritefield(fn,64,glf,'RL',Nrphys,thphy,1,myIter,myThid)
69    
70          ENDIF
71    
72        RETURN        RETURN
73        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22