| Symbol | Description | Uses |
| pFac | switch that turns on/off phase velocity contribution | 10 |
| File | Line number | Procedure | Code |
| ./pkg/obcs/obcs_calc_stevens.F | 115 | OBCS_CALC_STEVENS |
pFac = 1. _d 0 |
| ./pkg/obcs/obcs_calc_stevens.F | 116 | OBCS_CALC_STEVENS |
IF (.NOT. useStevensPhaseVel ) pFac = 0. _d 0 |
| ./pkg/obcs/obcs_calc_stevens.F | 216 | OBCS_CALC_STEVENS |
& ) * pFac |
| ./pkg/obcs/obcs_calc_stevens.F | 249 | OBCS_CALC_STEVENS |
& ) * pFac |
| ./pkg/obcs/obcs_calc_stevens.F | 363 | OBCS_CALC_STEVENS |
& ) * pFac |
| ./pkg/obcs/obcs_calc_stevens.F | 396 | OBCS_CALC_STEVENS |
& ) * pFac |
| ./pkg/obcs/obcs_calc_stevens.F | 99 | OBCS_CALC_STEVENS |
_RL gammat, gammas, gFac, pFac, aFac |
| ./pkg/seaice/seaice_growth.F | 185 | SEAICE_GROWTH |
_RL pFac |
| ./pkg/seaice/seaice_growth.F | 574 | SEAICE_GROWTH |
pFac = (2.0 _d 0*real(IT)-1.0 _d 0)/nDim |
| ./pkg/seaice/seaice_growth.F | 577 | SEAICE_GROWTH |
heffActualP(I,J)= heffActual(I,J)*pFac |