| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_calc_stevens.F |
127 |
OBCS_CALC_STEVENS |
_RL vPhase |
|
./pkg/obcs/obcs_calc_stevens.F |
634 |
OBCS_CALC_STEVENS |
vPhase=0. |
|
./pkg/obcs/obcs_calc_stevens.F |
645 |
OBCS_CALC_STEVENS |
vPhase = vPhase + OBWu(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
658 |
OBCS_CALC_STEVENS |
_GLOBAL_SUM_RL( vPhase, myThid ) |
|
./pkg/obcs/obcs_calc_stevens.F |
661 |
OBCS_CALC_STEVENS |
print *, 'ml-obcs: OBW = ', vPhase*1 _d -6, ' Sv' |
|
./pkg/obcs/obcs_calc_stevens.F |
884 |
OBCS_STEVENS_CALC_TRACER_NORTH |
_RL vPhase |
|
./pkg/obcs/obcs_calc_stevens.F |
896 |
OBCS_STEVENS_CALC_TRACER_NORTH |
vPhase = cflZon(I,K) * pFac |
|
./pkg/obcs/obcs_calc_stevens.F |
898 |
OBCS_STEVENS_CALC_TRACER_NORTH |
vPhase = MIN( cflZon(I,K), |
|
./pkg/obcs/obcs_calc_stevens.F |
905 |
OBCS_STEVENS_CALC_TRACER_NORTH |
& - ( aFac*MAX(0.D0,vVel(I,J,K,bi,bj)) + vPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
966 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
_RL vPhase |
|
./pkg/obcs/obcs_calc_stevens.F |
977 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
vPhase = -cflZon(I,K) * pFac |
|
./pkg/obcs/obcs_calc_stevens.F |
979 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
vPhase = MAX( -cflZon(I,K), |
|
./pkg/obcs/obcs_calc_stevens.F |
986 |
OBCS_STEVENS_CALC_TRACER_SOUTH |
& - ( aFac*MIN(0.D0,vVel(I,J+1,K,bi,bj)) + vPhase ) |