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

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

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

revision 1.5 by cnh, Wed Nov 9 17:22:08 2005 UTC revision 1.6 by cnh, Fri Nov 11 03:01:26 2005 UTC
# Line 395  C     is much too slow and if we own the Line 395  C     is much too slow and if we own the
395  C     per process preemption is not a problem.  C     per process preemption is not a problem.
396        IF ( exchNeedsMemSync  ) CALL MEMSYNC        IF ( exchNeedsMemSync  ) CALL MEMSYNC
397    
398          _BARRIER
399        IF ( doingSingleThreadedComms ) THEN        IF ( doingSingleThreadedComms ) THEN
400  C      Restore saved settings that were stored to allow  C      Restore saved settings that were stored to allow
401  C      single thred comms.  C      single thred comms.
        _BARRIER  
402         _BEGIN_MASTER(myThid)         _BEGIN_MASTER(myThid)
403          DO I=1,nThreads          DO I=1,nThreads
404           myBxLo(I) = myBxLoSave(I)           myBxLo(I) = myBxLoSave(I)
# Line 407  C      single thred comms. Line 407  C      single thred comms.
407           myByHi(I) = myByHiSave(I)           myByHi(I) = myByHiSave(I)
408          ENDDO          ENDDO
409         _END_MASTER(myThid)         _END_MASTER(myThid)
        _BARRIER  
410        ENDIF                        ENDIF                
411          _BARRIER
412    
413        RETURN        RETURN
414        END        END
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22