/[MITgcm]/MITgcm/eesupp/src/mdsio.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/mdsio.F

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

revision 1.2 by adcroft, Fri May 7 18:14:16 1999 UTC revision 1.3 by adcroft, Mon May 17 14:40:36 1999 UTC
# Line 409  C If we were writing to a tiled MDS file Line 409  C If we were writing to a tiled MDS file
409          endif          endif
410  C Create meta-file for each tile if we are tiling  C Create meta-file for each tile if we are tiling
411          if (.NOT. globalFile) then          if (.NOT. globalFile) then
412             iG=bi+(myXGlobalLo-1)/sNx ! Kludge until unstructered tiles
413             jG=bj+(myYGlobalLo-1)/sNy ! Kludge until unstructered tiles
414           write(metaFname(1:80),'(2a,i3.3,a,i3.3,a)')           write(metaFname(1:80),'(2a,i3.3,a,i3.3,a)')
415       &              fName(1:IL),'.',bi,'.',bj,'.meta'       &              fName(1:IL),'.',iG,'.',jG,'.meta'
416           dimList(1,1)=Nx           dimList(1,1)=Nx
417           dimList(2,1)=myXGlobalLo+(bi-1)*sNx           dimList(2,1)=myXGlobalLo+(bi-1)*sNx
418           dimList(3,1)=myXGlobalLo+bi*sNx-1           dimList(3,1)=myXGlobalLo+bi*sNx-1
# Line 637  C======================================= Line 639  C=======================================
639    
640  C IN:  C IN:
641  C     mFileName string  - complete name of meta-file  C     mFileName string  - complete name of meta-file
642    C     dFileName string  - complete name of data-file
643  C     ndims     integer - number of dimensions  C     ndims     integer - number of dimensions
644  C     dimList   integer - array of dimensions, etc.  C     dimList   integer - array of dimensions, etc.
645  C     nrecords  integer - record number  C     nrecords  integer - record number
# Line 1104  C If we were writing to a tiled MDS file Line 1107  C If we were writing to a tiled MDS file
1107          endif          endif
1108  C Create meta-file for each tile file  C Create meta-file for each tile file
1109          if (.NOT. globalFile) then          if (.NOT. globalFile) then
1110             iG=bi+(myXGlobalLo-1)/sNx ! Kludge until unstructered tiles
1111             jG=bj+(myYGlobalLo-1)/sNy ! Kludge until unstructered tiles
1112           write(metaFname(1:80),'(2a,i3.3,a,i3.3,a)')           write(metaFname(1:80),'(2a,i3.3,a,i3.3,a)')
1113       &              fName(1:IL),'.',bi,'.',bj,'.meta'       &              fName(1:IL),'.',iG,'.',jG,'.meta'
1114           dimList(1,1) = nPx*nSx*narr           dimList(1,1) = nPx*nSx*narr
1115           dimList(2,1) = (int(myXGlobalLo/sNx)+(bi-1))*narr           dimList(2,1) = (int(myXGlobalLo/sNx)+(bi-1))*narr
1116           dimList(3,1) = (int(myXGlobalLo/sNx)+  bi  )*narr - 1           dimList(3,1) = (int(myXGlobalLo/sNx)+  bi  )*narr - 1
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22