/[MITgcm]/MITgcm/eesupp/src/exch_rx_recv_get_x.template
ViewVC logotype

Diff of /MITgcm/eesupp/src/exch_rx_recv_get_x.template

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

revision 1.6 by cnh, Wed Nov 9 17:22:08 2005 UTC revision 1.7 by cnh, Fri Nov 11 03:01:26 2005 UTC
# Line 361  C--   Read from the buffers Line 361  C--   Read from the buffers
361         ENDDO         ENDDO
362        ENDDO        ENDDO
363    
364          _BARRIER
365        IF ( doingSingleThreadedComms ) THEN        IF ( doingSingleThreadedComms ) THEN
366  C      Restore saved settings that were stored to allow  C      Restore saved settings that were stored to allow
367  C      single thred comms.  C      single thred comms.
        _BARRIER  
368         _BEGIN_MASTER(myThid)         _BEGIN_MASTER(myThid)
369          DO I=1,nThreads          DO I=1,nThreads
370           myBxLo(I) = myBxLoSave(I)           myBxLo(I) = myBxLoSave(I)
# Line 373  C      single thred comms. Line 373  C      single thred comms.
373           myByHi(I) = myByHiSave(I)           myByHi(I) = myByHiSave(I)
374          ENDDO          ENDDO
375         _END_MASTER(myThid)         _END_MASTER(myThid)
        _BARRIER  
376        ENDIF                        ENDIF                
377          _BARRIER
378    
379        RETURN        RETURN
380        END        END
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22