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

Diff of /MITgcm/pkg/obcs/obcs_write_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 51  C     !LOCAL VARIABLES: Line 51  C     !LOCAL VARIABLES:
51        iL = MAX(1,iL)        iL = MAX(1,iL)
52        prec = precFloat64        prec = precFloat64
53    
54    C--   Unlike horizontal 2D or 3D IO routines, no thread synchronisation is
55    C     done within  Vertical Section IO routines. Since only thread one is
56    C     doing IO, we need a barrier here to wait for every one to finish.
57          _BARRIER
58    
59  C     Write N and S OB storage and phase speed arrays  C     Write N and S OB storage and phase speed arrays
60  #ifdef ALLOW_OBCS_NORTH  #ifdef ALLOW_OBCS_NORTH
61        IF ( useOrlanskiNorth ) THEN        IF ( useOrlanskiNorth ) THEN
# Line 197  C     Write E and W OB storage and phase Line 202  C     Write E and W OB storage and phase
202        ENDIF        ENDIF
203  #endif /* ALLOW_OBCS_WEST */  #endif /* ALLOW_OBCS_WEST */
204    
205    C--   Every one wait for thread 1 to finish (see comment @ the top)
206          _BARRIER
207    
208  #endif /* ALLOW_ORLANSKI */  #endif /* ALLOW_ORLANSKI */
209        RETURN        RETURN
210        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22