/[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.4 by mlosch, Wed Oct 5 14:55:29 2011 UTC revision 1.5 by mlosch, Tue Oct 25 15:09:18 2011 UTC
# Line 37  C     !INPUT/OUTPUT PARAMETERS: Line 37  C     !INPUT/OUTPUT PARAMETERS:
37        INTEGER myThid        INTEGER myThid
38  CEOP  CEOP
39    
40  #ifdef ALLOW_ORLANSKI  #if (defined ALLOW_ORLANSKI) || (defined ALLOW_OBCS_STEVENS)
41    
42  C     !FUNCTIONS:  C     !FUNCTIONS:
43        INTEGER  ILNBLNK        INTEGER  ILNBLNK
# Line 57  C     done within  Vertical Section IO r Line 57  C     done within  Vertical Section IO r
57  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.
58        _BARRIER        _BARRIER
59    
60    #ifdef ALLOW_ORLANSKI
61  C     Write N and S OB storage and phase speed arrays  C     Write N and S OB storage and phase speed arrays
62  #ifdef ALLOW_OBCS_NORTH  #ifdef ALLOW_OBCS_NORTH
63        IF ( useOrlanskiNorth ) THEN        IF ( useOrlanskiNorth ) THEN
# Line 202  C     Write E and W OB storage and phase Line 203  C     Write E and W OB storage and phase
203  #endif  #endif
204        ENDIF        ENDIF
205  #endif /* ALLOW_OBCS_WEST */  #endif /* ALLOW_OBCS_WEST */
206    #endif /* ALLOW_ORLANSKI */
207    
208    #ifdef ALLOW_OBCS_STEVENS
209    #ifdef ALLOW_OBCS_NORTH
210          IF ( useStevensNorth ) THEN
211            WRITE(fn,'(2A)') 'pickup_stevensN.',suff(1:iL)
212            CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNvStevens, 1,myIter,myThid)
213          ENDIF
214    #endif /* ALLOW_OBCS_NORTH */
215    
216    #ifdef ALLOW_OBCS_SOUTH
217          IF ( useStevensSouth ) THEN
218            WRITE(fn,'(2A)') 'pickup_stevensS.',suff(1:iL)
219            CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBSvStevens, 1,myIter,myThid)
220          ENDIF
221    #endif /* ALLOW_OBCS_SOUTH */
222    
223    #ifdef ALLOW_OBCS_EAST
224          IF ( useStevensEast ) THEN
225            WRITE(fn,'(2A)') 'pickup_stevensE.',suff(1:iL)
226            CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEuStevens, 1,myIter,myThid)
227          ENDIF
228    #endif /* ALLOW_OBCS_EAST */
229    
230    #ifdef ALLOW_OBCS_WEST
231          IF ( useStevensWest ) THEN
232            WRITE(fn,'(2A)') 'pickup_stevensW.',suff(1:iL)
233            CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWuStevens, 1,myIter,myThid)
234          ENDIF
235    #endif /* ALLOW_OBCS_WEST */
236    #endif /* ALLOW_OBCS_STEVENS */
237    
238  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)
239        _BARRIER        _BARRIER
240    
241  #endif /* ALLOW_ORLANSKI */  #endif /* ALLOW_ORLANSKI or ALLOW_OBCS_STEVENS */
242        RETURN        RETURN
243        END        END
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22