| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_calc_stevens.F |
106 |
OBCS_CALC_STEVENS |
_RL uPhase |
|
./pkg/obcs/obcs_calc_stevens.F |
255 |
OBCS_CALC_STEVENS |
uPhase = cflMer(J,K) * pFac |
|
./pkg/obcs/obcs_calc_stevens.F |
257 |
OBCS_CALC_STEVENS |
uPhase = MIN( cflMer(J,K), |
|
./pkg/obcs/obcs_calc_stevens.F |
264 |
OBCS_CALC_STEVENS |
& - ( aFac*MAX(0.D0,uVel(I,J,K,bi,bj)) + uPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
273 |
OBCS_CALC_STEVENS |
uPhase = cflMer(J,K) * pFac |
|
./pkg/obcs/obcs_calc_stevens.F |
275 |
OBCS_CALC_STEVENS |
uPhase = MIN( cflMer(J,K), |
|
./pkg/obcs/obcs_calc_stevens.F |
282 |
OBCS_CALC_STEVENS |
& - ( aFac*MAX(0.D0,uVel(I,J,K,bi,bj)) + uPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
393 |
OBCS_CALC_STEVENS |
uPhase = -cflMer(J,K) * pFac |
|
./pkg/obcs/obcs_calc_stevens.F |
395 |
OBCS_CALC_STEVENS |
uPhase = MAX( -cflMer(J,K), |
|
./pkg/obcs/obcs_calc_stevens.F |
402 |
OBCS_CALC_STEVENS |
& - ( aFac*MIN(0.D0,uVel(I+1,J,K,bi,bj)) + uPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
411 |
OBCS_CALC_STEVENS |
uPhase = -cflMer(J,K) * pFac |
|
./pkg/obcs/obcs_calc_stevens.F |
413 |
OBCS_CALC_STEVENS |
uPhase = MAX( -cflMer(J,K), |
|
./pkg/obcs/obcs_calc_stevens.F |
420 |
OBCS_CALC_STEVENS |
& - ( aFac*MIN(0.D0,uVel(I+1,J,K,bi,bj)) + uPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
720 |
OBCS_CALC_STEVENS |
uPhase=0. |
|
./pkg/obcs/obcs_calc_stevens.F |
728 |
OBCS_CALC_STEVENS |
uPhase = uPhase + OBEu(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
744 |
OBCS_CALC_STEVENS |
_GLOBAL_SUM_RL( uPhase, myThid ) |
|
./pkg/obcs/obcs_calc_stevens.F |
747 |
OBCS_CALC_STEVENS |
print *, 'ml-obcs: OBE = ', uPhase*1 _d -6, ' Sv' |