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

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

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

revision 1.3 by jmc, Sun Jul 20 12:26:10 2008 UTC revision 1.4 by jmc, Fri May 29 16:05:41 2009 UTC
# Line 72  C     !FUNCTIONS Line 72  C     !FUNCTIONS
72        EXTERNAL ILNBLNK        EXTERNAL ILNBLNK
73    
74  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
75        INTEGER i,ii,iL        INTEGER i,j,ii,iL
76        INTEGER mUnit        INTEGER mUnit
77  c     LOGICAL exst  c     LOGICAL exst
78        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
# Line 109  C     1  global size  (ie. the size of t Line 109  C     1  global size  (ie. the size of t
109  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)
110  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)
111    
112        WRITE(mUnit,'(1X,A)') 'dimList = ['        ii = 0
113        DO ii=1,nDims        DO j=1,nDims
114         IF (ii.LT.nDims) THEN         ii = MAX(dimList(1,j),ii)
         WRITE(mUnit,'(1X,3(I5,","))') (dimList(i,ii),i=1,3)  
        ELSE  
         WRITE(mUnit,'(1X,I5,",",I5,",",I5)') (dimList(i,ii),i=1,3)  
        ENDIF  
115        ENDDO        ENDDO
116          WRITE(mUnit,'(1X,A)') 'dimList = ['
117          IF ( ii.LT.10000 ) THEN
118    C     Small-size domain:
119           DO j=1,nDims
120            IF (j.LT.nDims) THEN
121             WRITE(mUnit,'(1X,3(I5,","))')    (dimList(i,j),i=1,3)
122            ELSE
123             WRITE(mUnit,'(1X,2(I5,","),I5)') (dimList(i,j),i=1,3)
124            ENDIF
125           ENDDO
126          ELSE
127    C     Large-size domain:
128           DO j=1,nDims
129            IF (j.LT.nDims) THEN
130             WRITE(mUnit,'(1X,3(I10,","))')     (dimList(i,j),i=1,3)
131            ELSE
132             WRITE(mUnit,'(1X,2(I10,","),I10)') (dimList(i,j),i=1,3)
133            ENDIF
134           ENDDO
135          ENDIF
136        WRITE(mUnit,'(1X,A)') '];'        WRITE(mUnit,'(1X,A)') '];'
137  C-    only write if different from default:  C-    only write if different from default:
138        IF ( map2gl(1).NE.0 .OR. map2gl(2).NE.1 ) THEN        IF ( map2gl(1).NE.0 .OR. map2gl(2).NE.1 ) THEN
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22