/[MITgcm]/MITgcm/pkg/obcs/obcs_read_pickup.F
ViewVC logotype

Diff of /MITgcm/pkg/obcs/obcs_read_pickup.F

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

revision 1.1 by jmc, Fri Oct 2 22:01:01 2009 UTC revision 1.2 by jmc, Sat Oct 10 18:40:47 2009 UTC
# Line 46  C     !LOCAL VARIABLES: Line 46  C     !LOCAL VARIABLES:
46        ENDIF        ENDIF
47        prec = precFloat64        prec = precFloat64
48    
49    C--   Unlike horizontal 2D or 3D IO routines, no thread synchronisation is
50    C     done within  Vertical Section IO routines. Since only thread one is
51    C     doing IO, we need a barrier here to wait for every one to finish.
52          _BARRIER
53    
54  #ifdef ALLOW_OBCS_NORTH  #ifdef ALLOW_OBCS_NORTH
55        IF ( useOrlanskiNorth ) THEN        IF ( useOrlanskiNorth ) THEN
56  C     READ N and S OB storage and phase speed arrays  C     READ N and S OB storage and phase speed arrays
# Line 209  c      _EXCH_XZ_RL(CVEL_WN , myThid) Line 214  c      _EXCH_XZ_RL(CVEL_WN , myThid)
214  C      same with CVEL_WS,  CVEL_WE,  CVEL_WW  C      same with CVEL_WS,  CVEL_WE,  CVEL_WW
215  c#endif  c#endif
216    
217    C--   Every one wait for thread 1 to finish (see comment @ the top)
218          _BARRIER
219    
220  #endif /* ALLOW_ORLANSKI */  #endif /* ALLOW_ORLANSKI */
221        RETURN        RETURN
222        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22