| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_calc_stevens.F |
107 |
OBCS_CALC_STEVENS |
_RL vPhase |
|
./pkg/obcs/obcs_calc_stevens.F |
125 |
OBCS_CALC_STEVENS |
_RL vPhase |
|
./pkg/obcs/obcs_calc_stevens.F |
530 |
OBCS_CALC_STEVENS |
vPhase = cflZon(I,K) * pFac |
|
./pkg/obcs/obcs_calc_stevens.F |
532 |
OBCS_CALC_STEVENS |
vPhase = MIN( cflZon(I,K), |
|
./pkg/obcs/obcs_calc_stevens.F |
539 |
OBCS_CALC_STEVENS |
& - ( aFac*MAX(0.D0,vVel(I,J,K,bi,bj)) + vPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
548 |
OBCS_CALC_STEVENS |
vPhase = cflZon(I,K) * pFac |
|
./pkg/obcs/obcs_calc_stevens.F |
550 |
OBCS_CALC_STEVENS |
vPhase = MIN( cflZon(I,K), |
|
./pkg/obcs/obcs_calc_stevens.F |
557 |
OBCS_CALC_STEVENS |
& - ( aFac*MAX(0.D0,vVel(I,J,K,bi,bj)) + vPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
668 |
OBCS_CALC_STEVENS |
vPhase = -cflZon(I,K) * pFac |
|
./pkg/obcs/obcs_calc_stevens.F |
670 |
OBCS_CALC_STEVENS |
vPhase = MAX( -cflZon(I,K), |
|
./pkg/obcs/obcs_calc_stevens.F |
677 |
OBCS_CALC_STEVENS |
& - ( aFac*MIN(0.D0,vVel(I,J+1,K,bi,bj)) + vPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
686 |
OBCS_CALC_STEVENS |
vPhase = -cflZon(I,K) * pFac |
|
./pkg/obcs/obcs_calc_stevens.F |
688 |
OBCS_CALC_STEVENS |
vPhase = MAX( -cflZon(I,K), |
|
./pkg/obcs/obcs_calc_stevens.F |
695 |
OBCS_CALC_STEVENS |
& - ( aFac*MIN(0.D0,vVel(I,J+1,K,bi,bj)) + vPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
721 |
OBCS_CALC_STEVENS |
vPhase=0. |
|
./pkg/obcs/obcs_calc_stevens.F |
732 |
OBCS_CALC_STEVENS |
vPhase = vPhase + OBWu(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
745 |
OBCS_CALC_STEVENS |
_GLOBAL_SUM_RL( vPhase, myThid ) |
|
./pkg/obcs/obcs_calc_stevens.F |
748 |
OBCS_CALC_STEVENS |
print *, 'ml-obcs: OBW = ', vPhase*1 _d -6, ' Sv' |