/[MITgcm]/MITgcm/pkg/ctrl/ctrl_pack.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_pack.F

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

revision 1.34 by gforget, Tue Jul 13 00:02:06 2010 UTC revision 1.35 by gforget, Sat Sep 25 18:24:16 2010 UTC
# Line 175  c     >>> Write gradient vector <<< Line 175  c     >>> Write gradient vector <<<
175            print *, 'ph-pack: packing ', costname(1:9)            print *, 'ph-pack: packing ', costname(1:9)
176         endif         endif
177    
178    c--   Only Proc 0 will do I/O.
179          IF ( myProcId .eq. 0 ) THEN
180    
181         call mdsfindunit( cunit, mythid )         call mdsfindunit( cunit, mythid )
182         open( cunit, file   = cfile,         open( cunit, file   = cfile,
183       &      status = 'unknown',       &      status = 'unknown',
# Line 220  C     place holder of obsolete variable Line 223  C     place holder of obsolete variable
223            write(cunit) (ncvargrd(i),   i=1,maxcvars)            write(cunit) (ncvargrd(i),   i=1,maxcvars)
224            write(cunit)            write(cunit)
225    
226    #ifndef ALLOW_PACKUNPACK_LEGACY
227          ENDIF
228          _END_MASTER( mythid )
229          _BARRIER
230    #endif
231    
232  #ifdef ALLOW_THETA0_CONTROL  #ifdef ALLOW_THETA0_CONTROL
233            ivartype = 1            ivartype = 1
234            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
# Line 622  C     place holder of obsolete variable Line 631  C     place holder of obsolete variable
631       &         weighttype, wkapredi, lxxadxx, mythid)       &         weighttype, wkapredi, lxxadxx, mythid)
632  #endif  #endif
633    
634            close ( cunit )  #ifndef ALLOW_PACKUNPACK_LEGACY
635          _BEGIN_MASTER( mythid )
636          _END_MASTER( mythid )        IF ( myProcId .eq. 0 ) THEN
637    #endif
638    
639           close ( cunit )
640           ENDIF !IF ( myProcId .eq. 0 )
641           _END_MASTER( mythid )
642          _BARRIER
643  #endif /* EXCLUDE_CTRL_PACK */  #endif /* EXCLUDE_CTRL_PACK */
644    
645        return        return
Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35
  ViewVC Help
Powered by ViewVC 1.1.22