Symbol Description Uses
PSG 19



File Line number Procedure Code
./pkg/aim/com_physvar.h 39 NO PROCEDURE
      COMMON /PHYGR3/ PSG, TS, TSKIN, CLOUDC, PNLEVW
./pkg/aim/com_physvar.h 40 NO PROCEDURE
      _RL PSG   (NGP,MAX_NO_THREADS)
./pkg/aim/phy_driver.F 107 PDRIVER
       CALL SHTORH (1,NGP,TG1(1,K,myThid),PSG(1,myThid),
./pkg/aim/phy_driver.F 131 PDRIVER
      CALL CONVMF (PSG(1,myThid),TG1(1,1,myThid),
./pkg/aim/phy_driver.F 147 PDRIVER
      CALL LSCOND (PSG(1,myThid),QG1(1,1,myThid),QSAT(1,1,myThid),
./pkg/aim/phy_driver.F 163 PDRIVER
      CALL RADSW (PSG(1,myThid),QG1(1,1,myThid),RH(1,1,myThid),
./pkg/aim/phy_driver.F 74 PDRIVER
       PSG(J,myThid)=EXP(PSLG1(J,myThid))
./pkg/aim/phy_driver.F 75 PDRIVER
       RPS(J)=1./PSG(J,myThid)
./pkg/aim_v23/com_physvar.h 46 NO PROCEDURE
      _RL PSG   (NGP)
./pkg/aim_v23/phy_driver.F 104 PHY_DRIVER
     O                 TG1, QG1, SE, VsurfSq, PSG, dpFac, kGround,
./pkg/aim_v23/phy_driver.F 141 PHY_DRIVER
      CALL CONVMF (PSG,dpFac,SE,QG1,QSAT,
./pkg/aim_v23/phy_driver.F 157 PHY_DRIVER
      CALL LSCOND (PSG,dpFac,QG1,QSAT,
./pkg/aim_v23/phy_driver.F 165 PHY_DRIVER
     I             PSG, dpFac, SE, ICLTOP,
./pkg/aim_v23/phy_driver.F 202 PHY_DRIVER
       CALL RADSW (PSG,dpFac,QG1,RH(1,1,myThid),ALB1(1,0,myThid),
./pkg/aim_v23/phy_driver.F 238 PHY_DRIVER
     I             PSG, TG1, QG1, RH(1,1,myThid), SE, VsurfSq,
./pkg/aim_v23/phy_driver.F 247 PHY_DRIVER
     I             PSG, FMASK1(1,1,myThid), EMISFC,
./pkg/aim_v23/phy_driver.F 266 PHY_DRIVER
     I             PSG, FMASK1(1,2,myThid),
./pkg/aim_v23/phy_driver.F 275 PHY_DRIVER
     I             PSG, FMASK1(1,3,myThid), EMISFC,
./pkg/aim_v23/phy_driver.F 334 PHY_DRIVER
       CALL RADSW (PSG,dpFac,QG1,RH(1,1,myThid),ALB1(1,0,myThid),