| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_calc_stevens.F |
633 |
OBCS_CALC_STEVENS |
uPhase=0. |
|
./pkg/obcs/obcs_calc_stevens.F |
641 |
OBCS_CALC_STEVENS |
uPhase = uPhase + OBEu(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
657 |
OBCS_CALC_STEVENS |
_GLOBAL_SUM_RL( uPhase, myThid ) |
|
./pkg/obcs/obcs_calc_stevens.F |
660 |
OBCS_CALC_STEVENS |
print *, 'ml-obcs: OBE = ', uPhase*1 _d -6, ' Sv' |
|
./pkg/obcs/obcs_calc_stevens.F |
721 |
OBCS_STEVENS_CALC_TRACER_EAST |
_RL uPhase |
|
./pkg/obcs/obcs_calc_stevens.F |
732 |
OBCS_STEVENS_CALC_TRACER_EAST |
uPhase = cflMer(J,K) * pFac |
|
./pkg/obcs/obcs_calc_stevens.F |
734 |
OBCS_STEVENS_CALC_TRACER_EAST |
uPhase = MIN( cflMer(J,K), |
|
./pkg/obcs/obcs_calc_stevens.F |
741 |
OBCS_STEVENS_CALC_TRACER_EAST |
& - ( aFac*MAX(0.D0,uVel(I,J,K,bi,bj)) + uPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
802 |
OBCS_STEVENS_CALC_TRACER_WEST |
_RL uPhase |
|
./pkg/obcs/obcs_calc_stevens.F |
814 |
OBCS_STEVENS_CALC_TRACER_WEST |
uPhase = -cflMer(J,K) * pFac |
|
./pkg/obcs/obcs_calc_stevens.F |
816 |
OBCS_STEVENS_CALC_TRACER_WEST |
uPhase = MAX( -cflMer(J,K), |
|
./pkg/obcs/obcs_calc_stevens.F |
823 |
OBCS_STEVENS_CALC_TRACER_WEST |
& - ( aFac*MIN(0.D0,uVel(I+1,J,K,bi,bj)) + uPhase ) |