/[MITgcm]/MITgcm/pkg/dic/dic_write_pickup.F
ViewVC logotype

Diff of /MITgcm/pkg/dic/dic_write_pickup.F

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

revision 1.6 by jmc, Sun Apr 11 20:59:27 2010 UTC revision 1.7 by jmc, Thu Aug 25 22:19:17 2011 UTC
# Line 48  C     == Local variables == Line 48  C     == Local variables ==
48  #endif  #endif
49  #ifdef DIC_BIOTIC  #ifdef DIC_BIOTIC
50        LOGICAL glf        LOGICAL glf
51          _RL     timList(1)
52        INTEGER j, nj        INTEGER j, nj
53        INTEGER listDim, nWrFlds        INTEGER listDim, nWrFlds
54        PARAMETER( listDim = 2 )        PARAMETER( listDim = 2 )
# Line 55  C     == Local variables == Line 56  C     == Local variables ==
56        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
57  #endif  #endif
58    
   
59  c     IF ( DIC_pickup_write_mdsio ) THEN  c     IF ( DIC_pickup_write_mdsio ) THEN
60          prec = precFloat64          prec = precFloat64
61    
# Line 111  C     files Line 111  C     files
111            nj = nWrFlds            nj = nWrFlds
112          ENDIF          ENDIF
113          glf  = globalFiles          glf  = globalFiles
114            timList(1) = myTime
115          CALL MDS_WR_METAFILES( fn, prec, glf, .FALSE.,          CALL MDS_WR_METAFILES( fn, prec, glf, .FALSE.,
116       &                         0, 0, j, ' ',       &                         0, 0, j, ' ',
117       &                         nWrFlds, wrFldList,       &                         nWrFlds, wrFldList,
118       &                         1, myTime,       &                         1, timList,
119       &                         nj, myIter, myThid )       &                         nj, myIter, myThid )
120  #endif /* ALLOW_MDSIO */  #endif /* ALLOW_MDSIO */
121  C--------------------------  C--------------------------
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22