| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_calc_stevens.F |
113 |
OBCS_CALC_STEVENS |
_RL uMerBar |
|
./pkg/obcs/obcs_calc_stevens.F |
177 |
OBCS_CALC_STEVENS |
uMerBar = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
183 |
OBCS_CALC_STEVENS |
uMerBar = uMerBar + uVel(I-1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
185 |
OBCS_CALC_STEVENS |
uMerBar = uMerBar + OBEuStevens(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
190 |
OBCS_CALC_STEVENS |
IF ( drFBar .GT. 0. _d 0 ) uMerBar = uMerBar/drFBar |
|
./pkg/obcs/obcs_calc_stevens.F |
193 |
OBCS_CALC_STEVENS |
uMerPri(K) = (uVel(I-1,J,K,bi,bj)-uMerBar) |
|
./pkg/obcs/obcs_calc_stevens.F |
195 |
OBCS_CALC_STEVENS |
uMerPri(K) = (OBEuStevens(J,K,bi,bj)-uMerBar) |
|
./pkg/obcs/obcs_calc_stevens.F |
201 |
OBCS_CALC_STEVENS |
uMerBar = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
203 |
OBCS_CALC_STEVENS |
uMerBar = uMerBar + OBEu(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
207 |
OBCS_CALC_STEVENS |
IF ( drFBar .GT. 0. _d 0 ) uMerBar = uMerBar/drFBar |
|
./pkg/obcs/obcs_calc_stevens.F |
211 |
OBCS_CALC_STEVENS |
OBEu(J,K,bi,bj) = (uMerBar + uMerPri(K)) |
|
./pkg/obcs/obcs_calc_stevens.F |
315 |
OBCS_CALC_STEVENS |
uMerBar = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
321 |
OBCS_CALC_STEVENS |
uMerBar = uMerBar + uVel(I+2,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
323 |
OBCS_CALC_STEVENS |
uMerBar = uMerBar + OBWuStevens(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
328 |
OBCS_CALC_STEVENS |
IF ( drFBar .GT. 0. _d 0 ) uMerBar = uMerBar/drFBar |
|
./pkg/obcs/obcs_calc_stevens.F |
331 |
OBCS_CALC_STEVENS |
uMerPri(K) = (uVel(I+2,J,K,bi,bj)-uMerBar) |
|
./pkg/obcs/obcs_calc_stevens.F |
333 |
OBCS_CALC_STEVENS |
uMerPri(K) = (OBWuStevens(J,K,bi,bj)-uMerBar) |
|
./pkg/obcs/obcs_calc_stevens.F |
339 |
OBCS_CALC_STEVENS |
uMerBar = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
341 |
OBCS_CALC_STEVENS |
uMerBar = uMerBar + OBWu(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
345 |
OBCS_CALC_STEVENS |
IF ( drFBar .GT. 0. _d 0 ) uMerBar = uMerBar/drFBar |
|
./pkg/obcs/obcs_calc_stevens.F |
349 |
OBCS_CALC_STEVENS |
OBWu(J,K,bi,bj) = (uMerBar + uMerPri(K)) |
|
./pkg/obcs/obcs_calc_stevens.F |
724 |
OBCS_CALC_STEVENS |
uMerBar=0. _d 0 |