Symbol Description Uses
co2exp 79


File Line number Procedure Code
./pkg/fizhi/fizhi_lwrad.F 1154 IRRAD 
        call CO2EXPS(m,n,np,dco2,pa,dt,co2exp)
./pkg/fizhi/fizhi_lwrad.F 1220 IRRAD 
     *              ,h2oexp,conexp,co2exp,n2oexp)
./pkg/fizhi/fizhi_lwrad.F 1460 IRRAD 
          call CO2KDIS(m,n,np,k2-1,co2exp,tco2,trant)
./pkg/fizhi/fizhi_lwrad.F 1522 IRRAD 
          call B10KDIS(m,n,np,k2-1,h2oexp,conexp,co2exp,n2oexp
./pkg/fizhi/fizhi_lwrad.F 1947 CO2EXPS 
      subroutine CO2EXPS(m,n,np,dco2,pa,dt,co2exp)
./pkg/fizhi/fizhi_lwrad.F 1971 CO2EXPS 
      _RL co2exp(m,n,np,6,2)
./pkg/fizhi/fizhi_lwrad.F 1991 CO2EXPS 
           co2exp(i,j,k,1,1)=exp(-xc*2.656e-5)
./pkg/fizhi/fizhi_lwrad.F 1993 CO2EXPS 
           xc=co2exp(i,j,k,1,1)*co2exp(i,j,k,1,1)
./pkg/fizhi/fizhi_lwrad.F 1995 CO2EXPS 
           co2exp(i,j,k,2,1)=xc*xc
./pkg/fizhi/fizhi_lwrad.F 1997 CO2EXPS 
           xc=co2exp(i,j,k,2,1)*co2exp(i,j,k,2,1)
./pkg/fizhi/fizhi_lwrad.F 1999 CO2EXPS 
           co2exp(i,j,k,3,1)=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2001 CO2EXPS 
           xc=co2exp(i,j,k,3,1)*co2exp(i,j,k,3,1)
./pkg/fizhi/fizhi_lwrad.F 2003 CO2EXPS 
           co2exp(i,j,k,4,1)=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2005 CO2EXPS 
           xc=co2exp(i,j,k,4,1)*co2exp(i,j,k,4,1)
./pkg/fizhi/fizhi_lwrad.F 2007 CO2EXPS 
           co2exp(i,j,k,5,1)=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2009 CO2EXPS 
           xc=co2exp(i,j,k,5,1)*co2exp(i,j,k,5,1)
./pkg/fizhi/fizhi_lwrad.F 2011 CO2EXPS 
           co2exp(i,j,k,6,1)=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2019 CO2EXPS 
           co2exp(i,j,k,1,2)=exp(-xc*2.656e-3)
./pkg/fizhi/fizhi_lwrad.F 2021 CO2EXPS 
           xc=co2exp(i,j,k,1,2)*co2exp(i,j,k,1,2)
./pkg/fizhi/fizhi_lwrad.F 2023 CO2EXPS 
           co2exp(i,j,k,2,2)=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2025 CO2EXPS 
           xc=co2exp(i,j,k,2,2)*co2exp(i,j,k,2,2)
./pkg/fizhi/fizhi_lwrad.F 2027 CO2EXPS 
           co2exp(i,j,k,3,2)=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2029 CO2EXPS 
           xc=co2exp(i,j,k,3,2)*co2exp(i,j,k,3,2)
./pkg/fizhi/fizhi_lwrad.F 2031 CO2EXPS 
           co2exp(i,j,k,4,2)=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2033 CO2EXPS 
           xc=co2exp(i,j,k,4,2)*co2exp(i,j,k,4,2)
./pkg/fizhi/fizhi_lwrad.F 2035 CO2EXPS 
           co2exp(i,j,k,5,2)=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2037 CO2EXPS 
           xc=co2exp(i,j,k,5,2)*co2exp(i,j,k,5,2)
./pkg/fizhi/fizhi_lwrad.F 2039 CO2EXPS 
           co2exp(i,j,k,6,2)=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2332 B10EXPS 
     *          ,h2oexp,conexp,co2exp,n2oexp)
./pkg/fizhi/fizhi_lwrad.F 2361 B10EXPS 
      _RL h2oexp(m,n,np,6),conexp(m,n,np,3),co2exp(m,n,np,6,2)
./pkg/fizhi/fizhi_lwrad.F 2414 B10EXPS 
           co2exp(i,j,k,1,1)=exp(-xx*2.656e-5)
./pkg/fizhi/fizhi_lwrad.F 2416 B10EXPS 
           xx=co2exp(i,j,k,1,1)*co2exp(i,j,k,1,1)
./pkg/fizhi/fizhi_lwrad.F 2418 B10EXPS 
           co2exp(i,j,k,2,1)=xx*xx
./pkg/fizhi/fizhi_lwrad.F 2420 B10EXPS 
           xx=co2exp(i,j,k,2,1)*co2exp(i,j,k,2,1)
./pkg/fizhi/fizhi_lwrad.F 2422 B10EXPS 
           co2exp(i,j,k,3,1)=xx*xx
./pkg/fizhi/fizhi_lwrad.F 2424 B10EXPS 
           xx=co2exp(i,j,k,3,1)*co2exp(i,j,k,3,1)
./pkg/fizhi/fizhi_lwrad.F 2426 B10EXPS 
           co2exp(i,j,k,4,1)=xx*xx
./pkg/fizhi/fizhi_lwrad.F 2428 B10EXPS 
           xx=co2exp(i,j,k,4,1)*co2exp(i,j,k,4,1)
./pkg/fizhi/fizhi_lwrad.F 2430 B10EXPS 
           co2exp(i,j,k,5,1)=xx*xx
./pkg/fizhi/fizhi_lwrad.F 2432 B10EXPS 
           xx=co2exp(i,j,k,5,1)*co2exp(i,j,k,5,1)
./pkg/fizhi/fizhi_lwrad.F 2434 B10EXPS 
           co2exp(i,j,k,6,1)=xx*xx
./pkg/fizhi/fizhi_lwrad.F 2725 CO2KDIS 
      subroutine CO2KDIS(m,n,np,k,co2exp,tco2,tran)
./pkg/fizhi/fizhi_lwrad.F 2749 CO2KDIS 
      _RL co2exp(m,n,np,6,2)
./pkg/fizhi/fizhi_lwrad.F 2767 CO2KDIS 
           tco2(i,j,1,1)=tco2(i,j,1,1)*co2exp(i,j,k,1,1)
./pkg/fizhi/fizhi_lwrad.F 2770 CO2KDIS 
           tco2(i,j,2,1)=tco2(i,j,2,1)*co2exp(i,j,k,2,1)
./pkg/fizhi/fizhi_lwrad.F 2773 CO2KDIS 
           tco2(i,j,3,1)=tco2(i,j,3,1)*co2exp(i,j,k,3,1)
./pkg/fizhi/fizhi_lwrad.F 2776 CO2KDIS 
           tco2(i,j,4,1)=tco2(i,j,4,1)*co2exp(i,j,k,4,1)
./pkg/fizhi/fizhi_lwrad.F 2779 CO2KDIS 
           tco2(i,j,5,1)=tco2(i,j,5,1)*co2exp(i,j,k,5,1)
./pkg/fizhi/fizhi_lwrad.F 2782 CO2KDIS 
           tco2(i,j,6,1)=tco2(i,j,6,1)*co2exp(i,j,k,6,1)
./pkg/fizhi/fizhi_lwrad.F 2787 CO2KDIS 
           tco2(i,j,1,2)=tco2(i,j,1,2)*co2exp(i,j,k,1,2)
./pkg/fizhi/fizhi_lwrad.F 2790 CO2KDIS 
           tco2(i,j,2,2)=tco2(i,j,2,2)*co2exp(i,j,k,2,2)
./pkg/fizhi/fizhi_lwrad.F 2793 CO2KDIS 
           tco2(i,j,3,2)=tco2(i,j,3,2)*co2exp(i,j,k,3,2)
./pkg/fizhi/fizhi_lwrad.F 2796 CO2KDIS 
           tco2(i,j,4,2)=tco2(i,j,4,2)*co2exp(i,j,k,4,2)
./pkg/fizhi/fizhi_lwrad.F 2799 CO2KDIS 
           tco2(i,j,5,2)=tco2(i,j,5,2)*co2exp(i,j,k,5,2)
./pkg/fizhi/fizhi_lwrad.F 2802 CO2KDIS 
           tco2(i,j,6,2)=tco2(i,j,6,2)*co2exp(i,j,k,6,2)
./pkg/fizhi/fizhi_lwrad.F 3077 B10KDIS 
      subroutine B10KDIS(m,n,np,k,h2oexp,conexp,co2exp,n2oexp
./pkg/fizhi/fizhi_lwrad.F 3113 B10KDIS 
      _RL h2oexp(m,n,np,6),conexp(m,n,np,3),co2exp(m,n,np,6,2)
./pkg/fizhi/fizhi_lwrad.F 3174 B10KDIS 
           tco2(i,j,1,1)=tco2(i,j,1,1)*co2exp(i,j,k,1,1)
./pkg/fizhi/fizhi_lwrad.F 3177 B10KDIS 
           tco2(i,j,2,1)=tco2(i,j,2,1)*co2exp(i,j,k,2,1)
./pkg/fizhi/fizhi_lwrad.F 3180 B10KDIS 
           tco2(i,j,3,1)=tco2(i,j,3,1)*co2exp(i,j,k,3,1)
./pkg/fizhi/fizhi_lwrad.F 3183 B10KDIS 
           tco2(i,j,4,1)=tco2(i,j,4,1)*co2exp(i,j,k,4,1)
./pkg/fizhi/fizhi_lwrad.F 3186 B10KDIS 
           tco2(i,j,5,1)=tco2(i,j,5,1)*co2exp(i,j,k,5,1)
./pkg/fizhi/fizhi_lwrad.F 3189 B10KDIS 
           tco2(i,j,6,1)=tco2(i,j,6,1)*co2exp(i,j,k,6,1)
./pkg/fizhi/fizhi_lwrad.F 600 IRRAD 
      _RL h2oexp(m,n,np,6),conexp(m,n,np,3),co2exp(m,n,np,6,2)