| Symbol | Description | Uses |
| vPhase | estimate of phase velocity for radiation condition | 6 |
| File | Line number | Procedure | Code |
| ./pkg/obcs/obcs_calc_stevens.F | 105 | OBCS_CALC_STEVENS |
_RL vPhase |
| ./pkg/obcs/obcs_calc_stevens.F | 600 | OBCS_CALC_STEVENS |
vPhase=0. |
| ./pkg/obcs/obcs_calc_stevens.F | 611 | OBCS_CALC_STEVENS |
vPhase = vPhase + OBWu(J,K,bi,bj) |
| ./pkg/obcs/obcs_calc_stevens.F | 623 | OBCS_CALC_STEVENS |
_GLOBAL_SUM_RL( vPhase, myThid ) |
| ./pkg/obcs/obcs_calc_stevens.F | 626 | OBCS_CALC_STEVENS |
print *, 'ml-obcs: OBW = ', vPhase*1 _d -6, ' Sv' |