/[MITgcm]/MITgcm/pkg/mypackage/mypackage_write_pickup.F
ViewVC logotype

Diff of /MITgcm/pkg/mypackage/mypackage_write_pickup.F

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

revision 1.2 by jmc, Sun Apr 6 02:03:17 2008 UTC revision 1.3 by jmc, Wed Aug 24 22:34:15 2011 UTC
# Line 36  C !OUTPUT PARAMETERS: ================== Line 36  C !OUTPUT PARAMETERS: ==================
36  C  none  C  none
37    
38  #ifdef ALLOW_MYPACKAGE  #ifdef ALLOW_MYPACKAGE
39  #if (defined MYPACKAGE_3D_STATE) || (defined MYPACKAGE_3D_STATE)  #if (defined MYPACKAGE_3D_STATE) || (defined MYPACKAGE_2D_STATE)
40    
41  C     === Functions ====  C     === Functions ====
42        INTEGER  ILNBLNK        INTEGER  ILNBLNK
# Line 54  C     wrFldList   :: list of written fie Line 54  C     wrFldList   :: list of written fie
54  C     msgBuf      :: Informational/error message buffer  C     msgBuf      :: Informational/error message buffer
55        INTEGER j, nj, fp, lChar        INTEGER j, nj, fp, lChar
56        LOGICAL glf        LOGICAL glf
57          _RL     timList(1)
58        CHARACTER*(MAX_LEN_FNAM) fn        CHARACTER*(MAX_LEN_FNAM) fn
59        INTEGER listDim, nWrFlds        INTEGER listDim, nWrFlds
60        PARAMETER( listDim = 12 )        PARAMETER( listDim = 12 )
# Line 131  C     uses this specific S/R to write (w Line 132  C     uses this specific S/R to write (w
132            nj = nWrFlds            nj = nWrFlds
133          ENDIF          ENDIF
134          glf  = globalFiles          glf  = globalFiles
135            timList(1) = myTime
136          CALL MDS_WR_METAFILES( fn, fp, glf, .FALSE.,          CALL MDS_WR_METAFILES( fn, fp, glf, .FALSE.,
137       &                         0, 0, j, ' ',       &                         0, 0, j, ' ',
138       &                         nWrFlds, wrFldList,       &                         nWrFlds, wrFldList,
139       &                         1, myTime,       &                         1, timList,
140       &                         nj, myIter, myThid )       &                         nj, myIter, myThid )
141  #endif /* ALLOW_MDSIO */  #endif /* ALLOW_MDSIO */
142  C--------------------------  C--------------------------
143    
144  #endif /* MYPACKAGE_3D_STATE or MYPACKAGE_3D_STATE */  #endif /* MYPACKAGE_3D_STATE or MYPACKAGE_2D_STATE */
145  #endif /* ALLOW_MYPACKAGE */  #endif /* ALLOW_MYPACKAGE */
146    
147        RETURN        RETURN
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22