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

Diff of /MITgcm/eesupp/src/exch_rx_recv_get_y.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 373  C--   Read from the buffers Line 373  C--   Read from the buffers
373         ENDDO         ENDDO
374        ENDDO        ENDDO
375    
376          _BARRIER
377        IF ( doingSingleThreadedComms ) THEN        IF ( doingSingleThreadedComms ) THEN
378  C      Restore saved settings that were stored to allow  C      Restore saved settings that were stored to allow
379  C      single thred comms.  C      single thred comms.
        _BARRIER  
380         _BEGIN_MASTER(myThid)         _BEGIN_MASTER(myThid)
381          DO I=1,nThreads          DO I=1,nThreads
382           myBxLo(I) = myBxLoSave(I)           myBxLo(I) = myBxLoSave(I)
# Line 385  C      single thred comms. Line 385  C      single thred comms.
385           myByHi(I) = myByHiSave(I)           myByHi(I) = myByHiSave(I)
386          ENDDO          ENDDO
387         _END_MASTER(myThid)         _END_MASTER(myThid)
        _BARRIER  
388        ENDIF                        ENDIF                
389          _BARRIER
390    
391        RETURN        RETURN
392        END        END
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22