| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_calc_stevens.F |
136 |
OBCS_CALC_STEVENS |
uMerBar(J) = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
148 |
OBCS_CALC_STEVENS |
uMerBar(J) = uMerBar(J) + uVel(I-1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
156 |
OBCS_CALC_STEVENS |
& uMerBar(J) = uMerBar(J)/drFBar(J) |
|
./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 |
167 |
OBCS_CALC_STEVENS |
uMerBar(J) = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
174 |
OBCS_CALC_STEVENS |
uMerBar(J) = uMerBar(J) + OBEu(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
182 |
OBCS_CALC_STEVENS |
& uMerBar(J) = uMerBar(J)/drFBar(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 |
283 |
OBCS_CALC_STEVENS |
uMerBar(J) = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
295 |
OBCS_CALC_STEVENS |
uMerBar(J) = uMerBar(J) + uVel(I+2,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
303 |
OBCS_CALC_STEVENS |
& uMerBar(J) = uMerBar(J)/drFBar(J) |
|
./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 |
314 |
OBCS_CALC_STEVENS |
uMerBar(J) = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
321 |
OBCS_CALC_STEVENS |
uMerBar(J) = uMerBar(J) + OBWu(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
329 |
OBCS_CALC_STEVENS |
& uMerBar(J) = uMerBar(J)/drFBar(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 |
603 |
OBCS_CALC_STEVENS |
uMerBar(J)=0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
615 |
OBCS_CALC_STEVENS |
uMerBar(J)=uMerBar(J) + uMerPri(J,K) |
|
./pkg/obcs/obcs_calc_stevens.F |
628 |
OBCS_CALC_STEVENS |
print *, 'ml-obcs: uBar = ', (j,uMerBar(J),J=1,sNy) |
|
./pkg/obcs/obcs_calc_stevens.F |
96 |
OBCS_CALC_STEVENS |
_RL uMerBar(1-OLy:sNy+OLy) |