| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_calc_stevens.F |
141 |
OBCS_CALC_STEVENS |
uMerPri(J,K) = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
161 |
OBCS_CALC_STEVENS |
IF (I.NE.0) uMerPri(J,K) = (uVel(I-1,J,K,bi,bj)-uMerBar(J)) |
|
./pkg/obcs/obcs_calc_stevens.F |
190 |
OBCS_CALC_STEVENS |
OBEu(J,K,bi,bj) = (uMerBar(J) + uMerPri(J,K)) |
|
./pkg/obcs/obcs_calc_stevens.F |
288 |
OBCS_CALC_STEVENS |
uMerPri(J,K) = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
308 |
OBCS_CALC_STEVENS |
IF (I.NE.0) uMerPri(J,K) = (uVel(I+2,J,K,bi,bj)-uMerBar(J)) |
|
./pkg/obcs/obcs_calc_stevens.F |
337 |
OBCS_CALC_STEVENS |
OBWu(J,K,bi,bj) = (uMerBar(J) + uMerPri(J,K)) |
|
./pkg/obcs/obcs_calc_stevens.F |
613 |
OBCS_CALC_STEVENS |
uVelLoc = uVelLoc + uMerPri(J,K) |
|
./pkg/obcs/obcs_calc_stevens.F |
615 |
OBCS_CALC_STEVENS |
uMerBar(J)=uMerBar(J) + uMerPri(J,K) |
|
./pkg/obcs/obcs_calc_stevens.F |
94 |
OBCS_CALC_STEVENS |
_RL uMerPri(1-OLy:sNy+OLy,Nr) |