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

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

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

revision 1.10 by heimbach, Tue Oct 12 18:37:38 2004 UTC revision 1.11 by adcroft, Tue Oct 19 17:40:17 2004 UTC
# Line 39  C     == Local variables == Line 39  C     == Local variables ==
39        INTEGER I, J , K, I_obc, J_obc        INTEGER I, J , K, I_obc, J_obc
40        _RL Tr_T, Ar_T, Tr, Ar        _RL Tr_T, Ar_T, Tr, Ar
41    
42    #ifdef ALLOW_DEBUG
43          IF (debugMode) CALL DEBUG_ENTER('OBCS_CALC',myThid)
44    #endif
45    
46  #ifdef ALLOW_OBCS_EAST  #ifdef ALLOW_OBCS_EAST
47  C     Eastern OB  C     Eastern OB
48    #ifdef ALLOW_DEBUG
49          IF (debugMode) CALL DEBUG_MSG('OBCS_CALC: East',myThid)
50    #endif
51        IF (useOrlanskiEast) THEN        IF (useOrlanskiEast) THEN
52  #ifdef ALLOW_ORLANSKI  #ifdef ALLOW_ORLANSKI
53          CALL ORLANSKI_EAST(          CALL ORLANSKI_EAST(
# Line 73  C -------------------------------------- Line 80  C --------------------------------------
80    
81  #ifdef ALLOW_OBCS_WEST  #ifdef ALLOW_OBCS_WEST
82  C     Western OB  C     Western OB
83    #ifdef ALLOW_DEBUG
84          IF (debugMode) CALL DEBUG_MSG('OBCS_CALC: West',myThid)
85    #endif
86        IF (useOrlanskiWest) THEN        IF (useOrlanskiWest) THEN
87  #ifdef ALLOW_ORLANSKI  #ifdef ALLOW_ORLANSKI
88          CALL ORLANSKI_WEST(          CALL ORLANSKI_WEST(
# Line 105  C -------------------------------------- Line 115  C --------------------------------------
115    
116  #ifdef ALLOW_OBCS_NORTH  #ifdef ALLOW_OBCS_NORTH
117  C         Northern OB  C         Northern OB
118    #ifdef ALLOW_DEBUG
119          IF (debugMode) CALL DEBUG_MSG('OBCS_CALC: North',myThid)
120    #endif
121        IF (useOrlanskiNorth) THEN        IF (useOrlanskiNorth) THEN
122  #ifdef ALLOW_ORLANSKI  #ifdef ALLOW_ORLANSKI
123          CALL ORLANSKI_NORTH(          CALL ORLANSKI_NORTH(
# Line 137  C -------------------------------------- Line 150  C --------------------------------------
150    
151  #ifdef ALLOW_OBCS_SOUTH  #ifdef ALLOW_OBCS_SOUTH
152  C         Southern OB  C         Southern OB
153    #ifdef ALLOW_DEBUG
154          IF (debugMode) CALL DEBUG_MSG('OBCS_CALC: South',myThid)
155    #endif
156        IF (useOrlanskiSouth) THEN          IF (useOrlanskiSouth) THEN  
157  #ifdef ALLOW_ORLANSKI  #ifdef ALLOW_ORLANSKI
158          CALL ORLANSKI_SOUTH(          CALL ORLANSKI_SOUTH(
# Line 171  C -------------------------------------- Line 187  C --------------------------------------
187  #ifdef ALLOW_OBCS_PRESCRIBE  #ifdef ALLOW_OBCS_PRESCRIBE
188        IF (useOBCSprescribe) THEN        IF (useOBCSprescribe) THEN
189  C--     Calculate future values on open boundaries  C--     Calculate future values on open boundaries
190    #ifdef ALLOW_DEBUG
191          IF (debugMode) CALL DEBUG_CALL('OBCS_PRESCRIBE_READ',myThid)
192    #endif
193          CALL OBCS_PRESCRIBE_READ(futureTime, futureIter, mythid)          CALL OBCS_PRESCRIBE_READ(futureTime, futureIter, mythid)
194        ENDIF        ENDIF
195  #endif /* ALLOW_OBCS_PRESCRIBE */  #endif /* ALLOW_OBCS_PRESCRIBE */
# Line 179  C -------------------------------------- Line 198  C --------------------------------------
198    
199  #ifdef ALLOW_OBCS_BALANCE  #ifdef ALLOW_OBCS_BALANCE
200        IF ( useOBCSbalance) THEN        IF ( useOBCSbalance) THEN
201    #ifdef ALLOW_DEBUG
202          IF (debugMode) CALL DEBUG_MSG('useOBCSbalance=.TRUE.',myThid)
203    #endif
204    
205  #ifdef ALLOW_OBCS_EAST  #ifdef ALLOW_OBCS_EAST
206          Tr_T = 0. _d 0          Tr_T = 0. _d 0
# Line 293  c                OBSu(I,K,bi,bj) = 0. Line 315  c                OBSu(I,K,bi,bj) = 0.
315    
316  #endif /* ALLOW_OBCS */  #endif /* ALLOW_OBCS */
317    
318    #ifdef ALLOW_DEBUG
319          IF (debugMode) CALL DEBUG_LEAVE('OBCS_CALC',myThid)
320    #endif
321        RETURN        RETURN
322        END        END
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22