| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_calc_stevens.F |
117 |
OBCS_CALC_STEVENS |
_RL vZonBar |
|
./pkg/obcs/obcs_calc_stevens.F |
452 |
OBCS_CALC_STEVENS |
vZonBar = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
458 |
OBCS_CALC_STEVENS |
vZonBar = vZonBar + vVel(I,J-1,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
460 |
OBCS_CALC_STEVENS |
vZonBar = vZonBar + OBNvStevens(I,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
465 |
OBCS_CALC_STEVENS |
IF ( drFBar .GT. 0. _d 0 ) vZonBar = vZonBar/drFBar |
|
./pkg/obcs/obcs_calc_stevens.F |
468 |
OBCS_CALC_STEVENS |
vZonPri(K) = (vVel(I,J-1,K,bi,bj)-vZonBar) |
|
./pkg/obcs/obcs_calc_stevens.F |
470 |
OBCS_CALC_STEVENS |
vZonPri(K) = (OBNvStevens(I,K,bi,bj)-vZonBar) |
|
./pkg/obcs/obcs_calc_stevens.F |
476 |
OBCS_CALC_STEVENS |
vZonBar = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
478 |
OBCS_CALC_STEVENS |
vZonBar = vZonBar + OBNv(I,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
482 |
OBCS_CALC_STEVENS |
IF ( drFBar .GT. 0. _d 0 ) vZonBar = vZonBar/drFBar |
|
./pkg/obcs/obcs_calc_stevens.F |
486 |
OBCS_CALC_STEVENS |
OBNv(I,K,bi,bj) = (vZonBar + vZonPri(K)) |
|
./pkg/obcs/obcs_calc_stevens.F |
590 |
OBCS_CALC_STEVENS |
vZonBar = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
596 |
OBCS_CALC_STEVENS |
vZonBar = vZonBar + vVel(I,J+2,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
598 |
OBCS_CALC_STEVENS |
vZonBar = vZonBar + OBSvStevens(I,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
603 |
OBCS_CALC_STEVENS |
IF ( drFBar .GT. 0. _d 0 ) vZonBar = vZonBar/drFBar |
|
./pkg/obcs/obcs_calc_stevens.F |
606 |
OBCS_CALC_STEVENS |
vZonPri(K) = (vVel(I,J+2,K,bi,bj)-vZonBar) |
|
./pkg/obcs/obcs_calc_stevens.F |
608 |
OBCS_CALC_STEVENS |
vZonPri(K) = (OBSvStevens(I,K,bi,bj)-vZonBar) |
|
./pkg/obcs/obcs_calc_stevens.F |
614 |
OBCS_CALC_STEVENS |
vZonBar = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
616 |
OBCS_CALC_STEVENS |
vZonBar = vZonBar + OBSv(I,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
620 |
OBCS_CALC_STEVENS |
IF ( drFBar .GT. 0. _d 0 ) vZonBar = vZonBar/drFBar |
|
./pkg/obcs/obcs_calc_stevens.F |
624 |
OBCS_CALC_STEVENS |
OBSv(I,K,bi,bj) = (vZonBar + vZonPri(K)) |