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 |
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 |