Symbol Description Uses
EPSSW 13



File Line number Procedure Code
./pkg/aim/aim_read_physparms.F 122 AIM_READ_PHYSPARMS
     &    EPSSW, EPSLW,
./pkg/aim/aim_read_physparms.F 229 AIM_READ_PHYSPARMS
       CALL WRITE_0D_R8( EPSSW, INDEX_NONE,'AIM_RAD:  EPSSW =',
./pkg/aim/com_radcon.h 20 NO PROCEDURE
     &                ABCSW, ABCLW, EPSSW, EPSLW, 
./pkg/aim/com_radcon.h 23 NO PROCEDURE
      _RL ABCSW, ABCLW, EPSSW, EPSLW 
./pkg/aim/phy_radiat.F 199 RADSW
        TAUOZ(J)=EXP(-EPSSW*OZONE(J)*PSA(J))
./pkg/aim/phy_inphys.F 145 INPHYS
      EPSSW = 0.03 _d 0
./pkg/aim_v23/aim_readparms.F 183 AIM_READPARMS
     &    EPSSW,  EPSLW,  EMISFC,
./pkg/aim_v23/aim_readparms.F 414 AIM_READPARMS
       CALL WRITE_0D_R8( EPSSW, INDEX_NONE,'AIM_RAD:  EPSSW =',
./pkg/aim_v23/com_radcon.h 31 NO PROCEDURE
     &                EPSSW,  EPSLW,  EMISFC, 
./pkg/aim_v23/com_radcon.h 35 NO PROCEDURE
      _RL  EPSSW,  EPSLW,  EMISFC
./pkg/aim_v23/phy_const.h 44 NO PROCEDURE
      EPSSW  =  0.015 _d 0
./pkg/aim_v23/phy_radiat.F 86 SOL_OZ
        OZUPP(J) = EPSSW*(1.-FLAT2)
./pkg/aim_v23/phy_radiat.F 87 SOL_OZ
        OZONE(J) = EPSSW*(1.+COZ1*SLAT(J)+COZ2*FLAT2)