| 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 |