/[MITgcm]/MITgcm/pkg/mdsio/mdsio_read_meta.F
ViewVC logotype

Diff of /MITgcm/pkg/mdsio/mdsio_read_meta.F

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

revision 1.2 by jmc, Wed Oct 24 22:07:47 2007 UTC revision 1.5 by jmc, Tue Jun 7 22:30:29 2011 UTC
# Line 77  C     !FUNCTIONS Line 77  C     !FUNCTIONS
77        EXTERNAL IFNBLNK, ILNBLNK        EXTERNAL IFNBLNK, ILNBLNK
78    
79  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
80  C     i,j,ii      :: loop indices  C     i, j        :: loop indices
81    C     ii,jj       :: indices
82  C     iG,jG       :: global tile indices  C     iG,jG       :: global tile indices
83  C     iL,pL,iLm   :: length of character strings (temp. variables)  C     iL,pL,iLm   :: length of character strings (temp. variables)
84  C     nDimFil     :: number of dimensions (in meta file)  C     nDimFil     :: number of dimensions (in meta file)
85  C     nFldFil     :: number of fields in "fldList" (in meta file)  C     nFldFil     :: number of fields in "fldList" (in meta file)
86  C     nTimFil     :: number of time-specification in "timList" (meta file)  C     nTimFil     :: number of time-specification in "timList" (meta file)
87        INTEGER i,j,ii        INTEGER i,j,ii,jj
88        INTEGER iG,jG        INTEGER iG,jG
89        INTEGER iL,pL,iLm        INTEGER iL,pL,iLm
90        INTEGER mUnit, errIO        INTEGER mUnit, errIO
# Line 127  C     this S/R, using, e.g., common bloc Line 128  C     this S/R, using, e.g., common bloc
128        _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
129    
130  C     Assign special directory  C     Assign special directory
       useCurrentDir = .FALSE.  
131        iL = ILNBLNK(fileName)        iL = ILNBLNK(fileName)
132        pL = ILNBLNK( mdsioLocalDir )        pL = ILNBLNK( mdsioLocalDir )
133        IF ( useCurrentDir .OR. pL.EQ.0 ) THEN        IF ( useCurrentDir .OR. pL.EQ.0 ) THEN
# Line 180  c    &               fileName(1:iL), ' , Line 180  c    &               fileName(1:iL), ' ,
180        ELSE        ELSE
181    
182  C--   File exist  C--   File exist
183          IF ( debugLevel .GE. debLevA ) THEN          IF ( debugLevel .GE. debLevB ) THEN
184            WRITE(msgBuf,'(2A)') ' MDS_READ_META: opening file: ',            WRITE(msgBuf,'(2A)') ' MDS_READ_META: opening file: ',
185       &                        mFileName(1:iLm)       &                        mFileName(1:iLm)
186            CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,            CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
# Line 238  C     1  global size  (ie. the size of t Line 238  C     1  global size  (ie. the size of t
238  C     2  global start (ie. the global position of the start of this file)  C     2  global start (ie. the global position of the start of this file)
239  C     3  global end   (ie. the global position of the end   of this file)  C     3  global end   (ie. the global position of the end   of this file)
240            DO j=1,nDimFil            DO j=1,nDimFil
 c          READ( mUnit, FMT='(3(1X,I5))', ERR=1002, END=1002 )  
 c    &                 (dimList(i,j),i=1,3)  
241  C-    This is to accomodate with the 2 versions of meta file:  C-    This is to accomodate with the 2 versions of meta file:
242             READ( mUnit, FMT='(A)', END=1001 ) lineBuf             READ( mUnit, FMT='(A)', END=1001 ) lineBuf
243             ii = IFNBLNK(lineBuf)             ii = IFNBLNK(lineBuf)
244               jj = ILNBLNK(lineBuf)
245             IF ( ii.GT.6 ) THEN             IF ( ii.GT.6 ) THEN
246  C     Old version (S/R MDSWRITEMETA, file mdsio_writemeta.F):  C     Old version (S/R MDSWRITEMETA, file mdsio_writemeta.F):
247  C          start each line with 10 blanks.  C          start each line with 10 blanks.
248              READ(lineBuf, FMT='(9X,3(1X,I5))', ERR=1002, END=1002 )              READ(lineBuf, FMT='(9X,3(1X,I5))', ERR=1002, END=1002 )
249       &                  (dimList(i,j),i=1,3)       &                  (dimList(i,j),i=1,3)
250             ELSE             ELSEIF ( jj.LT.30 ) THEN
251  C     New version (S/R MDS_WRITE_META, file mdsio_write_meta.F):  C     New version (S/R MDS_WRITE_META, file mdsio_write_meta.F):
252  C          without starting blanks.  C          small-size domain without starting blanks.
253              READ(lineBuf, FMT='(3(1X,I5))',    ERR=1002, END=1002 )              READ(lineBuf, FMT='(3(1X,I5))',    ERR=1002, END=1002 )
254       &                  (dimList(i,j),i=1,3)       &                  (dimList(i,j),i=1,3)
255               ELSE
256    C     New version (S/R MDS_WRITE_META, file mdsio_write_meta.F):
257    C          large-size domain without starting blanks.
258                READ(lineBuf, FMT='(3(1X,I10))',   ERR=1002, END=1002 )
259         &                  (dimList(i,j),i=1,3)
260             ENDIF             ENDIF
261            ENDDO            ENDDO
262            READ(  mUnit, FMT='(A)', END=1001 ) lineBuf            READ(  mUnit, FMT='(A)', END=1001 ) lineBuf
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22