/[MITgcm]/MITgcm/model/src/read_write_rec.F
ViewVC logotype

Diff of /MITgcm/model/src/read_write_rec.F

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

revision 1.3 by cnh, Sun Feb 4 14:38:48 2001 UTC revision 1.4 by heimbach, Mon May 14 21:40:49 2001 UTC
# Line 9  C--   o READ_REC_XY_RS Line 9  C--   o READ_REC_XY_RS
9  C--   o READ_REC_XY_RL  C--   o READ_REC_XY_RL
10  C--   o READ_REC_XYZ_RS  C--   o READ_REC_XYZ_RS
11  C--   o READ_REC_XYZ_RL  C--   o READ_REC_XYZ_RL
12    C--   o READ_REC_XZ_RS
13    C--   o READ_REC_XZ_RL
14    C--   o READ_REC_YZ_RS
15    C--   o READ_REC_YZ_RL
16  C--   o WRITE_REC_XY_RS  C--   o WRITE_REC_XY_RS
17  C--   o WRITE_REC_XY_RL  C--   o WRITE_REC_XY_RL
18  C--   o WRITE_REC_XYZ_RS  C--   o WRITE_REC_XYZ_RS
# Line 179  C Line 183  C
183       &     nNz, field, irec, myThid )       &     nNz, field, irec, myThid )
184  C  C
185        RETURN        RETURN
186          END
187    
188          SUBROUTINE READ_REC_XZ_RS( fName,field,iRec,myIter,myThid)
189    C READ_REC_XZ_RS is a "front-end" interface to the low-level I/O
190    C routines. It assumes single record files.
191          IMPLICIT NONE
192    C Global
193    #include "SIZE.h"
194    #include "EEPARAMS.h"
195    #include "PARAMS.h"
196    C Arguments
197          CHARACTER*(*) fName
198          _RS field(1-Olx:sNx+Olx,Nr,nSx,nSy)
199          INTEGER iRec
200          INTEGER myIter
201          INTEGER myThid
202    C Functions
203    C     INTEGER ILNBLNK
204    C Local
205          CHARACTER*(2) fType
206          INTEGER nNz
207    C     INTEGER IL
208          CHARACTER*(80) fullName
209    C
210    C     IF (myIter.GE.0) THEN
211    C      IL=ILNBLNK( fName )
212    C      WRITE(fullName(1:80),'(2a,i10.10)') fName(1:IL),'.',myIter
213    C     ELSE
214           fullName=fName
215    C     ENDIF
216    C
217          fType='RS'
218          nNz=Nr
219          CALL MDSREADFIELDXZ( fullName, readBinaryPrec, fType,
220         &     nNz, field, irec, myThid )
221    C
222          RETURN
223          END
224    
225          SUBROUTINE READ_REC_XZ_RL( fName,field,iRec,myIter,myThid)
226    C READ_REC_XZ_RL is a "front-end" interface to the low-level I/O
227    C routines. It assumes single record files.
228          IMPLICIT NONE
229    C Global
230    #include "SIZE.h"
231    #include "EEPARAMS.h"
232    #include "PARAMS.h"
233    C Arguments
234          CHARACTER*(*) fName
235          _RL field(1-Olx:sNx+Olx,Nr,nSx,nSy)
236          INTEGER iRec
237          INTEGER myIter
238          INTEGER myThid
239    C Functions
240    C     INTEGER ILNBLNK
241    C Local
242          CHARACTER*(2) fType
243          INTEGER nNz
244    C     INTEGER IL
245          CHARACTER*(80) fullName
246    C
247    C     IF (myIter.GE.0) THEN
248    C      IL=ILNBLNK( fName )
249    C      WRITE(fullName(1:80),'(2a,i10.10)') fName(1:IL),'.',myIter
250    C     ELSE
251           fullName=fName
252    C     ENDIF
253    C
254          fType='RL'
255          nNz=Nr
256          CALL MDSREADFIELDXZ( fullName, readBinaryPrec, fType,
257         &     nNz, field, irec, myThid )
258    C
259          RETURN
260          END
261    
262          SUBROUTINE READ_REC_YZ_RS( fName,field,iRec,myIter,myThid)
263    C READ_REC_YZ_RS is a "front-end" interface to the low-level I/O
264    C routines. It assumes single record files.
265          IMPLICIT NONE
266    C Global
267    #include "SIZE.h"
268    #include "EEPARAMS.h"
269    #include "PARAMS.h"
270    C Arguments
271          CHARACTER*(*) fName
272          _RS field(1-Oly:sNy+Oly,Nr,nSx,nSy)
273          INTEGER iRec
274          INTEGER myIter
275          INTEGER myThid
276    C Functions
277    C     INTEGER ILNBLNK
278    C Local
279          CHARACTER*(2) fType
280          INTEGER nNz
281    C     INTEGER IL
282          CHARACTER*(80) fullName
283    C
284    C     IF (myIter.GE.0) THEN
285    C      IL=ILNBLNK( fName )
286    C      WRITE(fullName(1:80),'(2a,i10.10)') fName(1:IL),'.',myIter
287    C     ELSE
288           fullName=fName
289    C     ENDIF
290    C
291          fType='RS'
292          nNz=Nr
293          CALL MDSREADFIELDYZ( fullName, readBinaryPrec, fType,
294         &     nNz, field, irec, myThid )
295    C
296          RETURN
297          END
298    
299          SUBROUTINE READ_REC_YZ_RL( fName,field,iRec,myIter,myThid)
300    C READ_REC_YZ_RL is a "front-end" interface to the low-level I/O
301    C routines. It assumes single record files.
302          IMPLICIT NONE
303    C Global
304    #include "SIZE.h"
305    #include "EEPARAMS.h"
306    #include "PARAMS.h"
307    C Arguments
308          CHARACTER*(*) fName
309          _RL field(1-Oly:sNy+Oly,Nr,nSx,nSy)
310          INTEGER iRec
311          INTEGER myIter
312          INTEGER myThid
313    C Functions
314    C     INTEGER ILNBLNK
315    C Local
316          CHARACTER*(2) fType
317          INTEGER nNz
318    C     INTEGER IL
319          CHARACTER*(80) fullName
320    C
321    C     IF (myIter.GE.0) THEN
322    C      IL=ILNBLNK( fName )
323    C      WRITE(fullName(1:80),'(2a,i10.10)') fName(1:IL),'.',myIter
324    C     ELSE
325           fullName=fName
326    C     ENDIF
327    C
328          fType='RL'
329          nNz=Nr
330          CALL MDSREADFIELDYZ( fullName, readBinaryPrec, fType,
331         &     nNz, field, irec, myThid )
332    C
333          RETURN
334        END        END
335    
336        SUBROUTINE WRITE_REC_XY_RS( fName,field,iRec,myIter,myThid)        SUBROUTINE WRITE_REC_XY_RS( fName,field,iRec,myIter,myThid)
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22