| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_calc_stevens.F |
207 |
OBCS_CALC_STEVENS |
uPhase = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
210 |
OBCS_CALC_STEVENS |
uPhase = MIN( cfl, |
|
./pkg/obcs/obcs_calc_stevens.F |
226 |
OBCS_CALC_STEVENS |
& - ( aFac*MAX(0.D0,uVel(I,J,K,bi,bj)) + uPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
240 |
OBCS_CALC_STEVENS |
uPhase = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
243 |
OBCS_CALC_STEVENS |
uPhase = MIN( cfl, |
|
./pkg/obcs/obcs_calc_stevens.F |
259 |
OBCS_CALC_STEVENS |
& - ( aFac*MAX(0.D0,uVel(I,J,K,bi,bj)) + uPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
354 |
OBCS_CALC_STEVENS |
uPhase = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
357 |
OBCS_CALC_STEVENS |
uPhase = MAX( cfl, |
|
./pkg/obcs/obcs_calc_stevens.F |
373 |
OBCS_CALC_STEVENS |
& - ( aFac*MIN(0.D0,uVel(I+1,J,K,bi,bj)) + uPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
387 |
OBCS_CALC_STEVENS |
uPhase = 0. _d 0 |
|
./pkg/obcs/obcs_calc_stevens.F |
390 |
OBCS_CALC_STEVENS |
uPhase = MAX( cfl, |
|
./pkg/obcs/obcs_calc_stevens.F |
406 |
OBCS_CALC_STEVENS |
& - ( aFac*MIN(0.D0,uVel(I+1,J,K,bi,bj)) + uPhase ) |
|
./pkg/obcs/obcs_calc_stevens.F |
599 |
OBCS_CALC_STEVENS |
uPhase=0. |
|
./pkg/obcs/obcs_calc_stevens.F |
608 |
OBCS_CALC_STEVENS |
uPhase = uPhase + OBEu(J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
622 |
OBCS_CALC_STEVENS |
_GLOBAL_SUM_RL( uPhase, myThid ) |
|
./pkg/obcs/obcs_calc_stevens.F |
625 |
OBCS_CALC_STEVENS |
print *, 'ml-obcs: OBE = ', uPhase*1 _d -6, ' Sv' |
|
./pkg/obcs/obcs_calc_stevens.F |
91 |
OBCS_CALC_STEVENS |
_RL uPhase |