| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_calc_stevens.F |
112 |
OBCS_CALC_STEVENS |
_RL uMerPri(Nr) |
|
./pkg/obcs/obcs_calc_stevens.F |
179 |
OBCS_CALC_STEVENS |
uMerPri(K) = 0. _d 0 |
|
./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 |
211 |
OBCS_CALC_STEVENS |
OBEu(J,K,bi,bj) = (uMerBar + uMerPri(K)) |
|
./pkg/obcs/obcs_calc_stevens.F |
317 |
OBCS_CALC_STEVENS |
uMerPri(K) = 0. _d 0 |
|
./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 |
349 |
OBCS_CALC_STEVENS |
OBWu(J,K,bi,bj) = (uMerBar + uMerPri(K)) |