/[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.3 by jmc, Sun Apr 6 00:01:55 2008 UTC revision 1.4 by jmc, Fri May 29 16:05:41 2009 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 237  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.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22