/[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.3 by jmc, Tue May 24 14:31:14 2011 UTC revision 1.4 by mlosch, Tue Oct 25 15:09:18 2011 UTC
# Line 33  C     !INPUT/OUTPUT PARAMETERS: Line 33  C     !INPUT/OUTPUT PARAMETERS:
33        INTEGER myThid        INTEGER myThid
34  CEOP  CEOP
35    
36  #ifdef ALLOW_ORLANSKI  #if (defined ALLOW_ORLANSKI) || (defined ALLOW_OBCS_STEVENS)
37    
38  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
39        CHARACTER*(MAX_LEN_FNAM) fn        CHARACTER*(MAX_LEN_FNAM) fn
# Line 52  C     done within  Vertical Section IO r Line 52  C     done within  Vertical Section IO r
52  C     doing IO, we need a barrier here to wait for every one to finish.  C     doing IO, we need a barrier here to wait for every one to finish.
53        _BARRIER        _BARRIER
54    
55    #ifdef ALLOW_ORLANSKI
56  #ifdef ALLOW_OBCS_NORTH  #ifdef ALLOW_OBCS_NORTH
57        IF ( useOrlanskiNorth ) THEN        IF ( useOrlanskiNorth ) THEN
58  C     READ N and S OB storage and phase speed arrays  C     READ N and S OB storage and phase speed arrays
# Line 214  C      same with WE_STORE_n, WE_STORE_n, Line 215  C      same with WE_STORE_n, WE_STORE_n,
215  c      _EXCH_XZ_RL(CVEL_WN , myThid)  c      _EXCH_XZ_RL(CVEL_WN , myThid)
216  C      same with CVEL_WS,  CVEL_WE,  CVEL_WW  C      same with CVEL_WS,  CVEL_WE,  CVEL_WW
217  c#endif  c#endif
218    #endif /* ALLOW_ORLANSKI */
219    
220    #ifdef ALLOW_OBCS_STEVENS
221    #ifdef ALLOW_OBCS_NORTH
222          IF ( useStevensNorth ) THEN
223            WRITE(fn,'(2A)') 'pickup_stevensN.',suff
224            CALL READ_REC_XZ_RL(fn,prec,Nr,OBNvStevens, 1,myIter,myThid)
225          ENDIF
226    #endif /* ALLOW_OBCS_NORTH */
227    
228    #ifdef ALLOW_OBCS_SOUTH
229          IF ( useStevensSouth ) THEN
230            WRITE(fn,'(2A)') 'pickup_stevensS.',suff
231            CALL READ_REC_XZ_RL(fn,prec,Nr,OBSvStevens, 1,myIter,myThid)
232          ENDIF
233    #endif /* ALLOW_OBCS_SOUTH */
234    
235    #ifdef ALLOW_OBCS_EAST
236          IF ( useStevensEast ) THEN
237            WRITE(fn,'(2A)') 'pickup_stevensE.',suff
238            CALL READ_REC_YZ_RL(fn,prec,Nr,OBEuStevens, 1,myIter,myThid)
239          ENDIF
240    #endif /* ALLOW_OBCS_EAST */
241    
242    #ifdef ALLOW_OBCS_WEST
243          IF ( useStevensWest ) THEN
244            WRITE(fn,'(2A)') 'pickup_stevensW.',suff
245            CALL READ_REC_YZ_RL(fn,prec,Nr,OBWuStevens, 1,myIter,myThid)
246          ENDIF
247    #endif /* ALLOW_OBCS_WEST */
248    #endif /* ALLOW_OBCS_STEVENS */
249    
250  C--   Every one wait for thread 1 to finish (see comment @ the top)  C--   Every one wait for thread 1 to finish (see comment @ the top)
251        _BARRIER        _BARRIER
252    
253  #endif /* ALLOW_ORLANSKI */  #endif /* ALLOW_ORLANSKI or ALLOW_OBCS_STEVENS */
254        RETURN        RETURN
255        END        END
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22