Symbol Description Uses
PHI0 5



File Line number Procedure Code
./pkg/aim_v23/aim_do_physics.F 135 AIM_DO_PHYSICS
           PHI0(I2) = gravity*topoZ(i,j,bi,bj)
./pkg/aim_v23/aim_do_physics.F 144 AIM_DO_PHYSICS
        CALL SFLSET (PHI0, fOrogr(1,myThid), bi,bj,myThid)
./pkg/aim_v23/phy_suflux_prep.F 217 SFLSET
      SUBROUTINE SFLSET (PHI0, FOROG, bi,bj,myThid)
./pkg/aim_v23/phy_suflux_prep.F 243 SFLSET
      _RL  PHI0(NGP)
./pkg/aim_v23/phy_suflux_prep.F 256 SFLSET
     &   + FHDRAG*(1. _d 0 - EXP(-MAX(PHI0(J),0. _d 0)*RHDRAG) )