/[MITgcm]/MITgcm_contrib/darwin2/pkg/darwin/dic_write_pickup.F
ViewVC logotype

Diff of /MITgcm_contrib/darwin2/pkg/darwin/dic_write_pickup.F

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

revision 1.1 by jahn, Wed Apr 13 18:56:24 2011 UTC revision 1.2 by jmc, Mon Jan 14 16:50:46 2013 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5  #include "PTRACERS_OPTIONS.h"  #include "PTRACERS_OPTIONS.h"
6  #include "DARWIN_OPTIONS.h"  #include "DARWIN_OPTIONS.h"
# Line 42  C     !LOCAL VARIABLES: Line 45  C     !LOCAL VARIABLES:
45  C     == Local variables ==  C     == Local variables ==
46        CHARACTER*(MAX_LEN_FNAM) fn        CHARACTER*(MAX_LEN_FNAM) fn
47        LOGICAL glf        LOGICAL glf
48          _RL     timList(1)
49        INTEGER prec, j, nj        INTEGER prec, j, nj
50        INTEGER listDim, nWrFlds        INTEGER listDim, nWrFlds
51        PARAMETER( listDim = 2 )        PARAMETER( listDim = 2 )
# Line 86  C     files Line 90  C     files
90            nj = nWrFlds            nj = nWrFlds
91          ENDIF          ENDIF
92          glf  = globalFiles          glf  = globalFiles
93            timList(1) = myTime
94          CALL MDS_WR_METAFILES( fn, prec, glf, .FALSE.,          CALL MDS_WR_METAFILES( fn, prec, glf, .FALSE.,
95       &                         0, 0, j, ' ',       &                         0, 0, j, ' ',
96       &                         nWrFlds, wrFldList,       &                         nWrFlds, wrFldList,
97       &                         1, myTime,       &                         1, timList, oneRL,
98       &                         nj, myIter, myThid )       &                         nj, myIter, myThid )
99  #endif /* ALLOW_MDSIO */  #endif /* ALLOW_MDSIO */
100  C--------------------------  C--------------------------
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22