/[MITgcm]/MITgcm/pkg/ptracers/ptracers_write_state.F
ViewVC logotype

Diff of /MITgcm/pkg/ptracers/ptracers_write_state.F

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

revision 1.18 by jmc, Mon Nov 5 18:48:04 2007 UTC revision 1.19 by jmc, Sat Nov 10 22:09:32 2007 UTC
# Line 41  C     === Functions ==== Line 41  C     === Functions ====
41    
42  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
43  C     iTracer   :: loop indices  C     iTracer   :: loop indices
44  C     suff      :: character buffer for creating suffix in filename  C     pref      :: character buffer for creating prefix in filename
45  C     iRec      :: record number  C     iRec      :: record number
46        INTEGER iTracer        INTEGER iTracer
47        CHARACTER*(MAX_LEN_MBUF) suff        CHARACTER*(MAX_LEN_FNAM) pref
48        INTEGER iRec        INTEGER iRec
49  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
50        CHARACTER*(1) pf        CHARACTER*(1) pf
# Line 86  C       Loop over tracers Line 86  C       Loop over tracers
86  C     Write each snap-shot as a record in a time-history file  C     Write each snap-shot as a record in a time-history file
87           IF (PTRACERS_useRecords) THEN           IF (PTRACERS_useRecords) THEN
88  C     Write each passive tracer as a record  C     Write each passive tracer as a record
89            WRITE(suff,'(A)') 'PTRACERS'            WRITE(pref,'(A)') 'PTRACERS'
90            iRec = 1 + NINT( (myTime-startTime) / PTRACERS_dumpFreq )            iRec = 1 + NINT( (myTime-startTime) / PTRACERS_dumpFreq )
91            iRec = (iRec-1)*PTRACERS_num + iTracer + 1            iRec = (iRec-1)*PTRACERS_num + iTracer + 1
92           ELSE           ELSE
93  C     Write each passive tracer in its own file  C     Write each passive tracer in its own file
94            WRITE(pref,'(A7,I2.2)') 'PTRACER',iTracer            WRITE(pref,'(2A)') 'PTRACER',PTRACERS_ioLabel(iTracer)
95            iRec = 1 + NINT( (myTime-startTime) / PTRACERS_dumpFreq )            iRec = 1 + NINT( (myTime-startTime) / PTRACERS_dumpFreq )
96           ENDIF           ENDIF
97  #else  #else
98  C         Write each snap-shot as a new file with a 10-digit suffix to  C     Write each snap-shot as a new file with a 10-digit suffix to
99  C     indicate time-step number  C     indicate time-step number
100           IF (PTRACERS_useRecords) THEN           IF (PTRACERS_useRecords) THEN
101  C     Write each passive tracer as a record  C     Write each passive tracer as a record
102            WRITE(suff,'(A,I10.10)') 'PTRACERS',myIter            WRITE(pref,'(A,I10.10)') 'PTRACERS.',myIter
103            iRec=iTracer            iRec=iTracer
104           ELSE           ELSE
105  C     Write each passive tracer in its own file  C     Write each passive tracer in its own file
106            WRITE(suff,'(A7,I2.2,A1,I10.10)')            WRITE(pref,'(3A,I10.10)')
107       &         'PTRACER',iTracer,'.',myIter       &         'PTRACER',PTRACERS_ioLabel(iTracer),'.',myIter
108            iRec=1            iRec=1
109           ENDIF           ENDIF
110  #endif /* MULTIPLE_RECORD_STATE_FILES */  #endif /* MULTIPLE_RECORD_STATE_FILES */
111    
112           CALL WRITE_REC_XYZ_RL(suff,           CALL WRITE_REC_XYZ_RL(pref,
113       &        pTracer(1-Olx,1-Oly,1,1,1,iTracer),iRec,myIter,myThid)       &        pTracer(1-Olx,1-Oly,1,1,1,iTracer),iRec,myIter,myThid)
114    
115  C     End of tracer loop  C     End of tracer loop
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22