Symbol Description Uses
pFac switch that turns on/off phase velocity contribution 24


File Line number Procedure Code
./pkg/obcs/obcs_calc_stevens.F 119 OBCS_CALC_STEVENS 
      _RL gammat, gammas, pFac, aFac
./pkg/obcs/obcs_calc_stevens.F 135 OBCS_CALC_STEVENS 
      pFac   = 1. _d 0
./pkg/obcs/obcs_calc_stevens.F 136 OBCS_CALC_STEVENS 
      IF (.NOT. useStevensPhaseVel )  pFac   = 0. _d 0
./pkg/obcs/obcs_calc_stevens.F 255 OBCS_CALC_STEVENS 
            uPhase = cflMer(J,K) * pFac
./pkg/obcs/obcs_calc_stevens.F 259 OBCS_CALC_STEVENS 
     &            ) * pFac
./pkg/obcs/obcs_calc_stevens.F 273 OBCS_CALC_STEVENS 
            uPhase = cflMer(J,K) * pFac
./pkg/obcs/obcs_calc_stevens.F 277 OBCS_CALC_STEVENS 
     &            ) * pFac
./pkg/obcs/obcs_calc_stevens.F 393 OBCS_CALC_STEVENS 
            uPhase = -cflMer(J,K) * pFac
./pkg/obcs/obcs_calc_stevens.F 397 OBCS_CALC_STEVENS 
     &            ) * pFac
./pkg/obcs/obcs_calc_stevens.F 411 OBCS_CALC_STEVENS 
            uPhase = -cflMer(J,K) * pFac
./pkg/obcs/obcs_calc_stevens.F 415 OBCS_CALC_STEVENS 
     &            ) * pFac
./pkg/obcs/obcs_calc_stevens.F 530 OBCS_CALC_STEVENS 
            vPhase = cflZon(I,K) * pFac
./pkg/obcs/obcs_calc_stevens.F 534 OBCS_CALC_STEVENS 
     &            ) * pFac
./pkg/obcs/obcs_calc_stevens.F 548 OBCS_CALC_STEVENS 
            vPhase = cflZon(I,K) * pFac
./pkg/obcs/obcs_calc_stevens.F 552 OBCS_CALC_STEVENS 
     &            ) * pFac
./pkg/obcs/obcs_calc_stevens.F 668 OBCS_CALC_STEVENS 
            vPhase = -cflZon(I,K) * pFac
./pkg/obcs/obcs_calc_stevens.F 672 OBCS_CALC_STEVENS 
     &            ) * pFac
./pkg/obcs/obcs_calc_stevens.F 686 OBCS_CALC_STEVENS 
            vPhase = -cflZon(I,K) * pFac
./pkg/obcs/obcs_calc_stevens.F 690 OBCS_CALC_STEVENS 
     &            ) * pFac
./pkg/seaice/seaice_growth.F 138 SEAICE_GROWTH 
      _RL pFac, pFacSnow
./pkg/seaice/seaice_growth.F 783 SEAICE_GROWTH 
         pFac = (2.0 _d 0*IT - 1.0 _d 0)*recip_multDim
./pkg/seaice/seaice_growth.F 785 SEAICE_GROWTH 
         IF ( SEAICE_useMultDimSnow ) pFacSnow=pFac
./pkg/seaice/seaice_growth.F 788 SEAICE_GROWTH 
           heffActualMult(I,J,IT)        = heffActual(I,J)*pFac
./pkg/seaice/seaice_growth.F 791 SEAICE_GROWTH 
           latentHeatFluxMaxMult(I,J,IT) = latentHeatFluxMax(I,J)*pFac