Symbol Description Uses
GHUM0 6



File Line number Procedure Code
./pkg/aim/phy_suflux.F 102 SUFLUX
      _RL GTEMP0, GHUM0, RCP, PRD, VG2, DTHETAF, FSTAB, RDTH
./pkg/aim/phy_suflux.F 149 SUFLUX
      GHUM0 = 1. _d 0-FHUM0
./pkg/aim/phy_suflux.F 165 SUFLUX
        Q0(J)=FHUM0*Q0(J)+GHUM0*QA(J,NLEVxy(J,myThid))
./pkg/aim_v23/phy_suflux_prep.F 104 SUFLUX_PREP
      _RL GTEMP0, GHUM0, RCP, PRD, VG2
./pkg/aim_v23/phy_suflux_prep.F 153 SUFLUX_PREP
      GHUM0 = 1.-FHUM0
./pkg/aim_v23/phy_suflux_prep.F 159 SUFLUX_PREP
        Q0(J)=FHUM0*Q0(J)+GHUM0*QA(J,kGrd(J))