/[MITgcm]/MITgcm/pkg/bbl/bbl_write_pickup.F
ViewVC logotype

Diff of /MITgcm/pkg/bbl/bbl_write_pickup.F

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

revision 1.1 by dimitri, Sat Aug 6 03:13:22 2011 UTC revision 1.2 by jmc, Thu Aug 25 22:19:17 2011 UTC
# Line 52  C     wrFldList   :: list of written fie Line 52  C     wrFldList   :: list of written fie
52  C     msgBuf      :: Informational/error message buffer  C     msgBuf      :: Informational/error message buffer
53        INTEGER j, fp, lChar        INTEGER j, fp, lChar
54        LOGICAL glf        LOGICAL glf
55          _RL     timList(1)
56        CHARACTER*(MAX_LEN_FNAM) fn        CHARACTER*(MAX_LEN_FNAM) fn
57        INTEGER listDim, nWrFlds        INTEGER listDim, nWrFlds
58        PARAMETER( listDim = 3 )        PARAMETER( listDim = 3 )
# Line 100  C-------------------------- Line 101  C--------------------------
101  #ifdef ALLOW_MDSIO  #ifdef ALLOW_MDSIO
102  C     uses this specific S/R to write meta file  C     uses this specific S/R to write meta file
103          glf  = globalFiles          glf  = globalFiles
104            timList(1) = myTime
105          CALL MDS_WR_METAFILES( fn, fp, glf, .FALSE.,          CALL MDS_WR_METAFILES( fn, fp, glf, .FALSE.,
106       &                         0, 0, 1, ' ',       &                         0, 0, 1, ' ',
107       &                         nWrFlds, wrFldList,       &                         nWrFlds, wrFldList,
108       &                         1, myTime,       &                         1, timList,
109       &                         j, myIter, myThid )       &                         j, myIter, myThid )
110  #endif /* ALLOW_MDSIO */  #endif /* ALLOW_MDSIO */
111  C--------------------------  C--------------------------
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22