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


File Line number Procedure Code
./pkg/obcs/obcs_calc_stevens.F 121 OBCS_CALC_STEVENS 
      _RL gammat, gammas, pFac, aFac
./pkg/obcs/obcs_calc_stevens.F 137 OBCS_CALC_STEVENS 
      pFac   = 1. _d 0
./pkg/obcs/obcs_calc_stevens.F 138 OBCS_CALC_STEVENS 
      IF (.NOT. useStevensPhaseVel )  pFac   = 0. _d 0
./pkg/obcs/obcs_calc_stevens.F 253 OBCS_CALC_STEVENS 
     I        uVel, cflMer, gFacM, pFac, aFac,
./pkg/obcs/obcs_calc_stevens.F 261 OBCS_CALC_STEVENS 
     I        uVel, cflMer, gFacM, pFac, aFac,
./pkg/obcs/obcs_calc_stevens.F 380 OBCS_CALC_STEVENS 
     I        uVel, cflMer, gFacM, pFac, aFac,
./pkg/obcs/obcs_calc_stevens.F 388 OBCS_CALC_STEVENS 
     I        uVel, cflMer, gFacM, pFac, aFac,
./pkg/obcs/obcs_calc_stevens.F 491 OBCS_CALC_STEVENS 
     I        vVel, cflZon, gFacZ, pFac, aFac,
./pkg/obcs/obcs_calc_stevens.F 499 OBCS_CALC_STEVENS 
     I        vVel, cflZon, gFacZ, pFac, aFac,
./pkg/obcs/obcs_calc_stevens.F 603 OBCS_CALC_STEVENS 
     I        vVel, cflZon, gFacZ, pFac, aFac,
./pkg/obcs/obcs_calc_stevens.F 611 OBCS_CALC_STEVENS 
     I        vVel, cflZon, gFacZ, pFac, aFac,
./pkg/obcs/obcs_calc_stevens.F 679 OBCS_STEVENS_CALC_TRACER_EAST 
     I     uVel, cflMer, gFacM, pFac, aFac,
./pkg/obcs/obcs_calc_stevens.F 708 OBCS_STEVENS_CALC_TRACER_EAST 
      _RL gammaf, pFac, aFac
./pkg/obcs/obcs_calc_stevens.F 732 OBCS_STEVENS_CALC_TRACER_EAST 
         uPhase = cflMer(J,K) * pFac
./pkg/obcs/obcs_calc_stevens.F 736 OBCS_STEVENS_CALC_TRACER_EAST 
     &         ) * pFac
./pkg/obcs/obcs_calc_stevens.F 760 OBCS_STEVENS_CALC_TRACER_WEST 
     I     uVel, cflMer, gFacM, pFac, aFac,
./pkg/obcs/obcs_calc_stevens.F 789 OBCS_STEVENS_CALC_TRACER_WEST 
      _RL gammaf, pFac, aFac
./pkg/obcs/obcs_calc_stevens.F 814 OBCS_STEVENS_CALC_TRACER_WEST 
         uPhase = -cflMer(J,K) * pFac
./pkg/obcs/obcs_calc_stevens.F 818 OBCS_STEVENS_CALC_TRACER_WEST 
     &         ) * pFac
./pkg/obcs/obcs_calc_stevens.F 842 OBCS_STEVENS_CALC_TRACER_NORTH 
     I     vVel, cflZon, gFacZ, pFac, aFac,
./pkg/obcs/obcs_calc_stevens.F 871 OBCS_STEVENS_CALC_TRACER_NORTH 
      _RL gammaf, pFac, aFac
./pkg/obcs/obcs_calc_stevens.F 896 OBCS_STEVENS_CALC_TRACER_NORTH 
         vPhase = cflZon(I,K) * pFac
./pkg/obcs/obcs_calc_stevens.F 900 OBCS_STEVENS_CALC_TRACER_NORTH 
     &         ) * pFac
./pkg/obcs/obcs_calc_stevens.F 924 OBCS_STEVENS_CALC_TRACER_SOUTH 
     I     vVel, cflZon, gFacZ, pFac, aFac,
./pkg/obcs/obcs_calc_stevens.F 953 OBCS_STEVENS_CALC_TRACER_SOUTH 
      _RL gammaf, pFac, aFac
./pkg/obcs/obcs_calc_stevens.F 977 OBCS_STEVENS_CALC_TRACER_SOUTH 
         vPhase = -cflZon(I,K) * pFac
./pkg/obcs/obcs_calc_stevens.F 981 OBCS_STEVENS_CALC_TRACER_SOUTH 
     &         ) * pFac
./pkg/seaice/seaice_growth.F 141 SEAICE_GROWTH 
      _RL pFac, pFacSnow
./pkg/seaice/seaice_growth.F 801 SEAICE_GROWTH 
         pFac = (2.0 _d 0*IT - 1.0 _d 0)*recip_denominator
./pkg/seaice/seaice_growth.F 803 SEAICE_GROWTH 
         IF ( SEAICE_useMultDimSnow ) pFacSnow=pFac
./pkg/seaice/seaice_growth.F 806 SEAICE_GROWTH 
           heffActualMult(I,J,IT)        = heffActual(I,J)*pFac
./pkg/seaice/seaice_growth.F 809 SEAICE_GROWTH 
           latentHeatFluxMaxMult(I,J,IT) = latentHeatFluxMax(I,J)*pFac