/[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.35 by gforget, Sat Sep 25 18:24:16 2010 UTC revision 1.36 by gforget, Sun Sep 26 02:51:38 2010 UTC
# Line 223  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  #ifdef ALLOW_PACKUNPACK_METHOD2
227        ENDIF        ENDIF
228        _END_MASTER( mythid )        _END_MASTER( mythid )
229        _BARRIER        _BARRIER
# Line 631  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  #ifndef ALLOW_PACKUNPACK_LEGACY  #ifdef ALLOW_PACKUNPACK_METHOD2
635        _BEGIN_MASTER( mythid )        _BEGIN_MASTER( mythid )
636        IF ( myProcId .eq. 0 ) THEN        IF ( myProcId .eq. 0 ) THEN
637  #endif  #endif
Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36
  ViewVC Help
Powered by ViewVC 1.1.22