/[MITgcm]/MITgcm/pkg/mdsio/mdsio_writevec_loc.F
ViewVC logotype

Diff of /MITgcm/pkg/mdsio/mdsio_writevec_loc.F

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

revision 1.3 by jmc, Tue Feb 3 22:57:01 2009 UTC revision 1.4 by jmc, Sun Aug 2 20:42:43 2009 UTC
# Line 81  C !LOCAL VARIABLES: Line 81  C !LOCAL VARIABLES:
81        PARAMETER( loc_size = Nx+Ny+Nr )        PARAMETER( loc_size = Nx+Ny+Nr )
82        real*4 r4seg(loc_size)        real*4 r4seg(loc_size)
83        real*8 r8seg(loc_size)        real*8 r8seg(loc_size)
84          _RL dummyRL(1)
85          CHARACTER*8 blank8c
86  CEOP  CEOP
87    
88        DATA map2gl / 0, 1 /        DATA dummyRL(1) / 0. _d 0 /
89          DATA blank8c / '        ' /
90          DATA map2gl  / 0, 1 /
91    
92  C We write a non-tiled array (bi=bj=0) only 1 time (if ProcId=0):  C We write a non-tiled array (bi=bj=0) only 1 time (if ProcId=0):
93        IF ( myProcId.EQ.0 .OR. bi.NE.0 .OR. bj.NE.0 ) THEN        IF ( myProcId.EQ.0 .OR. bi.NE.0 .OR. bj.NE.0 ) THEN
# Line 231  C--   we are writing a tiled array (bi>0 Line 235  C--   we are writing a tiled array (bi>0
235            IF ( nArr.EQ.1 ) nDims=2            IF ( nArr.EQ.1 ) nDims=2
236            CALL MDS_WRITE_META(            CALL MDS_WRITE_META(
237       I              metaFName, dataFName, the_run_name, ' ',       I              metaFName, dataFName, the_run_name, ' ',
238       I              filePrec, nDims, dimList, map2gl, 0, ' ',       I              filePrec, nDims, dimList, map2gl, 0, blank8c,
239       I              0, UNSET_RL, iRec, myIter, myThid )       I              0, dummyRL, iRec, myIter, myThid )
240          ENDIF          ENDIF
241    
242          _END_MASTER( myThid )          _END_MASTER( myThid )
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22