/[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.3 by jmc, Sun Jul 20 12:26:10 2008 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 30  C     !USES: Line 30  C     !USES:
30  C     == Global variables / common blocks  C     == Global variables / common blocks
31  #include "SIZE.h"  #include "SIZE.h"
32  #include "EEPARAMS.h"  #include "EEPARAMS.h"
 #include "PARAMS.h"  
33    
34  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
35  C     mFileName (string ) :: complete name of meta-file  C     mFileName (string ) :: complete name of meta-file
36  C     dFileName (string ) :: complete name of data-file  C     dFileName (string ) :: complete name of data-file
37  C     simulName (string)  :: name of this simulation  C     simulName (string)  :: name of this simulation
38  C     titleLine (string)  :: title or any descriptive comments  C     titleLine (string)  :: title or any descriptive comments
39  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)
40  C     nDims     (integer) :: number of dimensions  C     nDims     (integer) :: number of dimensions
41  C     dimList   (integer) :: array of dimensions, etc.  C     dimList   (integer) :: array of dimensions, etc.
42    C     map2gl    (integer) :: used for mapping tiled file to global file
43  C     nFlds     (integer) :: number of fields in "fldList"  C     nFlds     (integer) :: number of fields in "fldList"
44  C     fldList   (string)  :: array of field names to write  C     fldList   (string)  :: array of field names to write
45  C     nTimRec   (integer) :: number of time-specification in "timList"  C     nTimRec   (integer) :: number of time-specification in "timList"
# Line 57  C Line 57  C
57        INTEGER filePrec        INTEGER filePrec
58        INTEGER nDims        INTEGER nDims
59        INTEGER dimList(3,nDims)        INTEGER dimList(3,nDims)
60          INTEGER map2gl(2)
61        INTEGER nFlds        INTEGER nFlds
62        CHARACTER*(8) fldList(*)        CHARACTER*(8) fldList(*)
63        INTEGER nTimRec        INTEGER nTimRec
# Line 117  C     3  global end   (ie. the global po Line 118  C     3  global end   (ie. the global po
118         ENDIF         ENDIF
119        ENDDO        ENDDO
120        WRITE(mUnit,'(1X,A)') '];'        WRITE(mUnit,'(1X,A)') '];'
121    C-    only write if different from default:
122          IF ( map2gl(1).NE.0 .OR. map2gl(2).NE.1 ) THEN
123            WRITE(mUnit,'(1X,2(A,I5),A)') 'map2glob = [ ',
124         &                  map2gl(1),',',map2gl(2),' ];'
125          ENDIF
126    
127  C-    Record the precision of the file  C-    Record the precision of the file
128        IF (filePrec .EQ. precFloat32) THEN        IF (filePrec .EQ. precFloat32) THEN
# Line 147  C     that the information is superfluou Line 153  C     that the information is superfluou
153    
154  C-    Write list of Time records  C-    Write list of Time records
155  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
156  C       be the time-information to write.  C       be the time-information to write.
157  C     for now, comment out this line for rdmds (i.e.: between /* */)  C     for now, comment out this line for rdmds (i.e.: between /* */)
158        IF ( nTimRec.GT.0 ) THEN        IF ( nTimRec.GT.0 ) THEN
159         ii = MIN(nTimRec,20)         ii = MIN(nTimRec,20)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22