/[MITgcm]/MITgcm/pkg/rw/read_rec.F
ViewVC logotype

Diff of /MITgcm/pkg/rw/read_rec.F

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

revision 1.2 by jmc, Tue Nov 13 19:39:26 2007 UTC revision 1.3 by jmc, Tue Sep 1 19:25:28 2009 UTC
# Line 46  c     INTEGER ILNBLNK Line 46  c     INTEGER ILNBLNK
46  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
47  C Local  C Local
48        LOGICAL useCurrentDir        LOGICAL useCurrentDir
49          _RL dummyRL(1)
50        CHARACTER*(2) fType        CHARACTER*(2) fType
51        INTEGER nNz        INTEGER nNz
52  c     INTEGER IL  c     INTEGER IL
# Line 66  c     ENDIF Line 67  c     ENDIF
67        CALL MDS_READ_FIELD(        CALL MDS_READ_FIELD(
68       I                     fName, readBinaryPrec, useCurrentDir,       I                     fName, readBinaryPrec, useCurrentDir,
69       I                     fType, nNz, 1, nNz,       I                     fType, nNz, 1, nNz,
70       O                     field,       O                     dummyRL, field,
71       I                     iRec, myThid )       I                     iRec, myThid )
72  #endif  #endif
73        RETURN        RETURN
# Line 104  c     INTEGER ILNBLNK Line 105  c     INTEGER ILNBLNK
105  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
106  C Local  C Local
107        LOGICAL useCurrentDir        LOGICAL useCurrentDir
108          _RS dummyRS(1)
109        CHARACTER*(2) fType        CHARACTER*(2) fType
110        INTEGER nNz        INTEGER nNz
111  c     INTEGER IL  c     INTEGER IL
# Line 124  c     ENDIF Line 126  c     ENDIF
126        CALL MDS_READ_FIELD(        CALL MDS_READ_FIELD(
127       I                     fName, readBinaryPrec, useCurrentDir,       I                     fName, readBinaryPrec, useCurrentDir,
128       I                     fType, nNz, 1, nNz,       I                     fType, nNz, 1, nNz,
129       O                     field,       O                     field, dummyRS,
130       I                     iRec, myThid )       I                     iRec, myThid )
131  #endif  #endif
132        RETURN        RETURN
# Line 162  c     INTEGER ILNBLNK Line 164  c     INTEGER ILNBLNK
164  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
165  C Local  C Local
166        LOGICAL useCurrentDir        LOGICAL useCurrentDir
167          _RL dummyRL(1)
168        CHARACTER*(2) fType        CHARACTER*(2) fType
169        INTEGER nNz        INTEGER nNz
170  c     INTEGER IL  c     INTEGER IL
# Line 183  c     ENDIF Line 186  c     ENDIF
186        CALL MDS_READ_FIELD(        CALL MDS_READ_FIELD(
187       I                     fName, readBinaryPrec, useCurrentDir,       I                     fName, readBinaryPrec, useCurrentDir,
188       I                     fType, nNz, 1, nNz,       I                     fType, nNz, 1, nNz,
189       O                     field,       O                     dummyRL, field,
190       I                     iRec, myThid )       I                     iRec, myThid )
191  #endif  #endif
192        RETURN        RETURN
# Line 221  c     INTEGER ILNBLNK Line 224  c     INTEGER ILNBLNK
224  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
225  C Local  C Local
226        LOGICAL useCurrentDir        LOGICAL useCurrentDir
227          _RS dummyRS(1)
228        CHARACTER*(2) fType        CHARACTER*(2) fType
229        INTEGER nNz        INTEGER nNz
230  c     INTEGER IL  c     INTEGER IL
# Line 242  c     ENDIF Line 246  c     ENDIF
246        CALL MDS_READ_FIELD(        CALL MDS_READ_FIELD(
247       I                     fName, readBinaryPrec, useCurrentDir,       I                     fName, readBinaryPrec, useCurrentDir,
248       I                     fType, nNz, 1, nNz,       I                     fType, nNz, 1, nNz,
249       O                     field,       O                     field, dummyRS,
250       I                     iRec, myThid )       I                     iRec, myThid )
251  #endif  #endif
252        RETURN        RETURN
# Line 286  c     INTEGER ILNBLNK Line 290  c     INTEGER ILNBLNK
290  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
291  C Local  C Local
292        LOGICAL useCurrentDir        LOGICAL useCurrentDir
293          _RL dummyRL(1)
294        CHARACTER*(2) fType        CHARACTER*(2) fType
295  c     INTEGER IL  c     INTEGER IL
296  c     CHARACTER*(MAX_LEN_FNAM) fullName  c     CHARACTER*(MAX_LEN_FNAM) fullName
# Line 305  c     ENDIF Line 310  c     ENDIF
310        CALL MDS_READ_FIELD(        CALL MDS_READ_FIELD(
311       I                     fName, fPrec, useCurrentDir,       I                     fName, fPrec, useCurrentDir,
312       I                     fType, nNz, 1, nNz,       I                     fType, nNz, 1, nNz,
313       O                     field,       O                     dummyRL, field,
314       I                     iRec, myThid )       I                     iRec, myThid )
315  #endif  #endif
316        RETURN        RETURN
# Line 349  c     INTEGER ILNBLNK Line 354  c     INTEGER ILNBLNK
354  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
355  C Local  C Local
356        LOGICAL useCurrentDir        LOGICAL useCurrentDir
357          _RS dummyRS(1)
358        CHARACTER*(2) fType        CHARACTER*(2) fType
359  c     INTEGER IL  c     INTEGER IL
360  c     CHARACTER*(MAX_LEN_FNAM) fullName  c     CHARACTER*(MAX_LEN_FNAM) fullName
# Line 368  c     ENDIF Line 374  c     ENDIF
374        CALL MDS_READ_FIELD(        CALL MDS_READ_FIELD(
375       I                     fName, fPrec, useCurrentDir,       I                     fName, fPrec, useCurrentDir,
376       I                     fType, nNz, 1, nNz,       I                     fType, nNz, 1, nNz,
377       O                     field,       O                     field, dummyRS,
378       I                     iRec, myThid )       I                     iRec, myThid )
379  #endif  #endif
380        RETURN        RETURN
# Line 413  c     INTEGER ILNBLNK Line 419  c     INTEGER ILNBLNK
419  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
420  C Local  C Local
421        LOGICAL useCurrentDir        LOGICAL useCurrentDir
422          _RL dummyRL(1)
423        CHARACTER*(2) fType        CHARACTER*(2) fType
424  c     INTEGER IL  c     INTEGER IL
425  c     CHARACTER*(MAX_LEN_FNAM) fullName  c     CHARACTER*(MAX_LEN_FNAM) fullName
# Line 432  c     ENDIF Line 439  c     ENDIF
439        CALL MDS_READ_FIELD(        CALL MDS_READ_FIELD(
440       I                     fName, fPrec, useCurrentDir,       I                     fName, fPrec, useCurrentDir,
441       I                     fType, kSiz, kLo, kHi,       I                     fType, kSiz, kLo, kHi,
442       O                     field,       O                     dummyRL, field,
443       I                     iRec, myThid )       I                     iRec, myThid )
444  #endif  #endif
445        RETURN        RETURN
# Line 477  c     INTEGER ILNBLNK Line 484  c     INTEGER ILNBLNK
484  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
485  C Local  C Local
486        LOGICAL useCurrentDir        LOGICAL useCurrentDir
487          _RS dummyRS(1)
488        CHARACTER*(2) fType        CHARACTER*(2) fType
489  c     INTEGER IL  c     INTEGER IL
490  c     CHARACTER*(MAX_LEN_FNAM) fullName  c     CHARACTER*(MAX_LEN_FNAM) fullName
# Line 496  c     ENDIF Line 504  c     ENDIF
504        CALL MDS_READ_FIELD(        CALL MDS_READ_FIELD(
505       I                     fName, fPrec, useCurrentDir,       I                     fName, fPrec, useCurrentDir,
506       I                     fType, kSiz, kLo, kHi,       I                     fType, kSiz, kLo, kHi,
507       O                     field,       O                     field, dummyRS,
508       I                     iRec, myThid )       I                     iRec, myThid )
509  #endif  #endif
510        RETURN        RETURN
# Line 506  C---+----1----+----2----+----3----+----4 Line 514  C---+----1----+----2----+----3----+----4
514  CBOP  CBOP
515  C     !ROUTINE: READ_REC_XZ_RS  C     !ROUTINE: READ_REC_XZ_RS
516  C     !INTERFACE:  C     !INTERFACE:
517        SUBROUTINE READ_REC_XZ_RS( fName,field,iRec,myIter,myThid )        SUBROUTINE READ_REC_XZ_RS(
518         I                           fName, fPrec, nNz,
519         O                           field,
520         I                           iRec, myIter, myThid )
521    
522  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
523  C READ_REC_XZ_RS is a "front-end" interface to the low-level I/O  C READ_REC_XZ_RS is a "front-end" interface to the low-level I/O
# Line 522  C Global Line 533  C Global
533  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
534  C Arguments  C Arguments
535        CHARACTER*(*) fName        CHARACTER*(*) fName
536        _RS field(1-Olx:sNx+Olx,Nr,nSx,nSy)        INTEGER fPrec
537          INTEGER nNz
538          _RS field(1-Olx:sNx+Olx,nNz,nSx,nSy)
539        INTEGER iRec        INTEGER iRec
540        INTEGER myIter        INTEGER myIter
541        INTEGER myThid        INTEGER myThid
# Line 532  c     INTEGER ILNBLNK Line 545  c     INTEGER ILNBLNK
545    
546  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
547  C Local  C Local
548          LOGICAL useCurrentDir
549          _RL dummyRL(1)
550        CHARACTER*(2) fType        CHARACTER*(2) fType
       INTEGER nNz  
551  c     INTEGER IL  c     INTEGER IL
552  c     CHARACTER*(MAX_LEN_FNAM) fullName  c     CHARACTER*(MAX_LEN_FNAM) fullName
553  CEOP  CEOP
# Line 545  c     ELSE Line 559  c     ELSE
559  c      fullName=fName  c      fullName=fName
560  c     ENDIF  c     ENDIF
561    
562          useCurrentDir = .FALSE.
563        fType='RS'        fType='RS'
       nNz=Nr  
564  #ifdef ALLOW_MDSIO  #ifdef ALLOW_MDSIO
565        CALL MDSREADFIELDXZ( fName, readBinaryPrec, fType,        CALL MDS_READ_SEC_XZ(
566       &     nNz, field, iRec, myThid )       I                      fName, fPrec, useCurrentDir,
567         I                      fType, nNz,
568         O                      dummyRL, field,
569         I                      iRec, myThid )
570  #endif  #endif
571        RETURN        RETURN
572        END        END
# Line 558  C---+----1----+----2----+----3----+----4 Line 575  C---+----1----+----2----+----3----+----4
575  CBOP  CBOP
576  C     !ROUTINE: READ_REC_XZ_RL  C     !ROUTINE: READ_REC_XZ_RL
577  C     !INTERFACE:  C     !INTERFACE:
578        SUBROUTINE READ_REC_XZ_RL( fName,field,iRec,myIter,myThid )        SUBROUTINE READ_REC_XZ_RL(
579         I                           fName, fPrec, nNz,
580         O                           field,
581         I                           iRec, myIter, myThid )
582    
583  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
584  C READ_REC_XZ_RL is a "front-end" interface to the low-level I/O  C READ_REC_XZ_RL is a "front-end" interface to the low-level I/O
# Line 575  C Global Line 595  C Global
595  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
596  C Arguments  C Arguments
597        CHARACTER*(*) fName        CHARACTER*(*) fName
598        _RL field(1-Olx:sNx+Olx,Nr,nSx,nSy)        INTEGER fPrec
599          INTEGER nNz
600          _RL field(1-Olx:sNx+Olx,nNz,nSx,nSy)
601        INTEGER iRec        INTEGER iRec
602        INTEGER myIter        INTEGER myIter
603        INTEGER myThid        INTEGER myThid
# Line 585  c     INTEGER ILNBLNK Line 607  c     INTEGER ILNBLNK
607    
608  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
609  C Local  C Local
610          LOGICAL useCurrentDir
611          _RS dummyRS(1)
612        CHARACTER*(2) fType        CHARACTER*(2) fType
       INTEGER nNz  
613  c     INTEGER IL  c     INTEGER IL
614  c     CHARACTER*(MAX_LEN_FNAM) fullName  c     CHARACTER*(MAX_LEN_FNAM) fullName
615  CEOP  CEOP
# Line 598  c     ELSE Line 621  c     ELSE
621  c      fullName=fName  c      fullName=fName
622  c     ENDIF  c     ENDIF
623    
624          useCurrentDir = .FALSE.
625        fType='RL'        fType='RL'
       nNz=Nr  
626  #ifdef ALLOW_MDSIO  #ifdef ALLOW_MDSIO
627        CALL MDSREADFIELDXZ( fName, readBinaryPrec, fType,        CALL MDS_READ_SEC_XZ(
628       &     nNz, field, iRec, myThid )       I                      fName, fPrec, useCurrentDir,
629         I                      fType, nNz,
630         O                      field, dummyRS,
631         I                      iRec, myThid )
632  #endif  #endif
633        RETURN        RETURN
634        END        END
# Line 611  C---+----1----+----2----+----3----+----4 Line 637  C---+----1----+----2----+----3----+----4
637  CBOP  CBOP
638  C     !ROUTINE: READ_REC_YZ_RS  C     !ROUTINE: READ_REC_YZ_RS
639  C     !INTERFACE:  C     !INTERFACE:
640        SUBROUTINE READ_REC_YZ_RS( fName,field,iRec,myIter,myThid )        SUBROUTINE READ_REC_YZ_RS(
641         I                           fName, fPrec, nNz,
642         O                           field,
643         I                           iRec, myIter, myThid )
644    
645  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
646  C READ_REC_YZ_RS is a "front-end" interface to the low-level I/O  C READ_REC_YZ_RS is a "front-end" interface to the low-level I/O
# Line 628  C Global Line 657  C Global
657  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
658  C Arguments  C Arguments
659        CHARACTER*(*) fName        CHARACTER*(*) fName
660        _RS field(1-Oly:sNy+Oly,Nr,nSx,nSy)        INTEGER fPrec
661          INTEGER nNz
662          _RS field(1-Oly:sNy+Oly,nNz,nSx,nSy)
663        INTEGER iRec        INTEGER iRec
664        INTEGER myIter        INTEGER myIter
665        INTEGER myThid        INTEGER myThid
# Line 638  c     INTEGER ILNBLNK Line 669  c     INTEGER ILNBLNK
669    
670  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
671  C Local  C Local
672          LOGICAL useCurrentDir
673          _RL dummyRL(1)
674        CHARACTER*(2) fType        CHARACTER*(2) fType
       INTEGER nNz  
675  c     INTEGER IL  c     INTEGER IL
676  c     CHARACTER*(MAX_LEN_FNAM) fullName  c     CHARACTER*(MAX_LEN_FNAM) fullName
677  CEOP  CEOP
# Line 652  c     ELSE Line 684  c     ELSE
684  c      fullName=fName  c      fullName=fName
685  c     ENDIF  c     ENDIF
686    
687          useCurrentDir = .FALSE.
688        fType='RS'        fType='RS'
       nNz=Nr  
689  #ifdef ALLOW_MDSIO  #ifdef ALLOW_MDSIO
690        CALL MDSREADFIELDYZ( fName, readBinaryPrec, fType,        CALL MDS_READ_SEC_YZ(
691       &     nNz, field, iRec, myThid )       I                      fName, fPrec, useCurrentDir,
692         I                      fType, nNz,
693         O                      dummyRL, field,
694         I                      iRec, myThid )
695  #endif  #endif
696        RETURN        RETURN
697        END        END
# Line 665  C---+----1----+----2----+----3----+----4 Line 700  C---+----1----+----2----+----3----+----4
700  CBOP  CBOP
701  C     !ROUTINE: READ_REC_YZ_RL  C     !ROUTINE: READ_REC_YZ_RL
702  C     !INTERFACE:  C     !INTERFACE:
703        SUBROUTINE READ_REC_YZ_RL( fName,field,iRec,myIter,myThid )        SUBROUTINE READ_REC_YZ_RL(
704         I                           fName, fPrec, nNz,
705         O                           field,
706         I                           iRec, myIter, myThid )
707    
708  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
709  C READ_REC_YZ_RL is a "front-end" interface to the low-level I/O  C READ_REC_YZ_RL is a "front-end" interface to the low-level I/O
# Line 682  C Global Line 720  C Global
720  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
721  C Arguments  C Arguments
722        CHARACTER*(*) fName        CHARACTER*(*) fName
723        _RL field(1-Oly:sNy+Oly,Nr,nSx,nSy)        INTEGER fPrec
724          INTEGER nNz
725          _RL field(1-Oly:sNy+Oly,nNz,nSx,nSy)
726        INTEGER iRec        INTEGER iRec
727        INTEGER myIter        INTEGER myIter
728        INTEGER myThid        INTEGER myThid
# Line 692  c     INTEGER ILNBLNK Line 732  c     INTEGER ILNBLNK
732    
733  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
734  C Local  C Local
735          LOGICAL useCurrentDir
736          _RS dummyRS(1)
737        CHARACTER*(2) fType        CHARACTER*(2) fType
       INTEGER nNz  
738  c     INTEGER IL  c     INTEGER IL
739  c     CHARACTER*(MAX_LEN_FNAM) fullName  c     CHARACTER*(MAX_LEN_FNAM) fullName
740  CEOP  CEOP
# Line 706  c     ELSE Line 747  c     ELSE
747  c      fullName=fName  c      fullName=fName
748  c     ENDIF  c     ENDIF
749    
750          useCurrentDir = .FALSE.
751        fType='RL'        fType='RL'
       nNz=Nr  
752  #ifdef ALLOW_MDSIO  #ifdef ALLOW_MDSIO
753        CALL MDSREADFIELDYZ( fName, readBinaryPrec, fType,        CALL MDS_READ_SEC_YZ(
754       &     nNz, field, iRec, myThid )       I                      fName, fPrec, useCurrentDir,
755         I                      fType, nNz,
756         O                      field, dummyRS,
757         I                      iRec, myThid )
758  #endif  #endif
759        RETURN        RETURN
760        END        END
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22