/[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.1 by jmc, Fri Dec 29 05:11:52 2006 UTC revision 1.2 by jmc, Mon Mar 19 02:30:49 2007 UTC
# Line 12  C     !INTERFACE: Line 12  C     !INTERFACE:
12       I    simulName,       I    simulName,
13       I    titleLine,       I    titleLine,
14       I    filePrec,       I    filePrec,
15       I    nDims,   dimList,       I    nDims,   dimList, map2gl,
16       I    nFlds,   fldList,       I    nFlds,   fldList,
17       I    nTimRec, timList,       I    nTimRec, timList,
18       I    nrecords, myIter, myThid )       I    nrecords, myIter, myThid )
# Line 36  C     !INPUT PARAMETERS: Line 36  C     !INPUT PARAMETERS:
36  C     mFileName (string ) :: complete name of meta-file  C     mFileName (string ) :: complete name of meta-file
37  C     dFileName (string ) :: complete name of data-file  C     dFileName (string ) :: complete name of data-file
38  C     simulName (string)  :: name of this simulation  C     simulName (string)  :: name of this simulation
39  C     titleLine (string)  :: title or any descriptive comments  C     titleLine (string)  :: title or any descriptive comments
40  C     filePrec  (integer) :: number of bits per word in data-file (32 or 64)  C     filePrec  (integer) :: number of bits per word in data-file (32 or 64)
41  C     nDims     (integer) :: number of dimensions  C     nDims     (integer) :: number of dimensions
42  C     dimList   (integer) :: array of dimensions, etc.  C     dimList   (integer) :: array of dimensions, etc.
43    C     map2gl    (integer) :: used for mapping tiled file to global file
44  C     nFlds     (integer) :: number of fields in "fldList"  C     nFlds     (integer) :: number of fields in "fldList"
45  C     fldList   (string)  :: array of field names to write  C     fldList   (string)  :: array of field names to write
46  C     nTimRec   (integer) :: number of time-specification in "timList"  C     nTimRec   (integer) :: number of time-specification in "timList"
# Line 57  C Line 58  C
58        INTEGER filePrec        INTEGER filePrec
59        INTEGER nDims        INTEGER nDims
60        INTEGER dimList(3,nDims)        INTEGER dimList(3,nDims)
61          INTEGER map2gl(2)
62        INTEGER nFlds        INTEGER nFlds
63        CHARACTER*(8) fldList(*)        CHARACTER*(8) fldList(*)
64        INTEGER nTimRec        INTEGER nTimRec
# Line 117  C     3  global end   (ie. the global po Line 119  C     3  global end   (ie. the global po
119         ENDIF         ENDIF
120        ENDDO        ENDDO
121        WRITE(mUnit,'(1X,A)') '];'        WRITE(mUnit,'(1X,A)') '];'
122    C-    only write if different from default:
123          IF ( map2gl(1).NE.0 .OR. map2gl(2).NE.1 ) THEN
124            WRITE(mUnit,'(1X,2(A,I5),A)') 'map2glob = [ ',
125         &                  map2gl(1),',',map2gl(2),' ];'
126          ENDIF
127    
128  C-    Record the precision of the file  C-    Record the precision of the file
129        IF (filePrec .EQ. precFloat32) THEN        IF (filePrec .EQ. precFloat32) THEN
# Line 147  C     that the information is superfluou Line 154  C     that the information is superfluou
154    
155  C-    Write list of Time records  C-    Write list of Time records
156  C note: format might change once we have a better idea of what will  C note: format might change once we have a better idea of what will
157  C       be the time-information to write.  C       be the time-information to write.
158  C     for now, comment out this line for rdmds (i.e.: between /* */)  C     for now, comment out this line for rdmds (i.e.: between /* */)
159        IF ( nTimRec.GT.0 ) THEN        IF ( nTimRec.GT.0 ) THEN
160         ii = MIN(nTimRec,20)         ii = MIN(nTimRec,20)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22