Symbol Description Uses
np 542


File Line number Procedure Code
./pkg/fizhi/fizhi_lwrad.F 1021 IRRAD 
       do k=1,np
./pkg/fizhi/fizhi_lwrad.F 1036 IRRAD 
         blayer(i,j,np+1)= ( ts(i,j)*(ts(i,j)*(ts(i,j)
./pkg/fizhi/fizhi_lwrad.F 1049 IRRAD 
       do k=1,np+1
./pkg/fizhi/fizhi_lwrad.F 1064 IRRAD 
        call COLUMN(m,n,np,pa,dt,dco2,sco3,scopre,scotem)
./pkg/fizhi/fizhi_lwrad.F 1068 IRRAD 
        call COLUMN(m,n,np,pa,dt,do3,sco3,scopre,scotem)
./pkg/fizhi/fizhi_lwrad.F 1074 IRRAD 
       do k= 1, np
./pkg/fizhi/fizhi_lwrad.F 1091 IRRAD 
       do k= 1, np
./pkg/fizhi/fizhi_lwrad.F 1140 IRRAD 
        call H2OEXPS(ib,m,n,np,dh2o,pa,dt,xkw,aw,bw,pm,mw,h2oexp)
./pkg/fizhi/fizhi_lwrad.F 1147 IRRAD 
        call CONEXPS(ib,m,n,np,dcont,xke,conexp)
./pkg/fizhi/fizhi_lwrad.F 1154 IRRAD 
        call CO2EXPS(m,n,np,dco2,pa,dt,co2exp)
./pkg/fizhi/fizhi_lwrad.F 1164 IRRAD 
        call N2OEXPS(ib,m,n,np,dn2o,pa,dt,n2oexp)
./pkg/fizhi/fizhi_lwrad.F 1170 IRRAD 
        call CH4EXPS(ib,m,n,np,dch4,pa,dt,ch4exp)
./pkg/fizhi/fizhi_lwrad.F 1176 IRRAD 
        call COMEXPS(ib,m,n,np,dco2,dt,comexp)
./pkg/fizhi/fizhi_lwrad.F 1188 IRRAD 
        call CFCEXPS(ib,m,n,np,a1,b1,fk1,a2,b2,fk2,df11,dt,f11exp)
./pkg/fizhi/fizhi_lwrad.F 1200 IRRAD 
        call CFCEXPS(ib,m,n,np,a1,b1,fk1,a2,b2,fk2,df12,dt,f12exp)
./pkg/fizhi/fizhi_lwrad.F 1212 IRRAD 
        call CFCEXPS(ib,m,n,np,a1,b1,fk1,a2,b2,fk2,df22,dt,f22exp)
./pkg/fizhi/fizhi_lwrad.F 1219 IRRAD 
        call B10EXPS(m,n,np,dh2o,dcont,dco2,dn2o,pa,dt
./pkg/fizhi/fizhi_lwrad.F 1231 IRRAD 
      do k=1,np+1
./pkg/fizhi/fizhi_lwrad.F 1242 IRRAD 
      do 2000 k1=1,np
./pkg/fizhi/fizhi_lwrad.F 1401 IRRAD 
      do 3000 k2=k1+1,np+1
./pkg/fizhi/fizhi_lwrad.F 1420 IRRAD 
           call TABLUP(k1,k2,m,n,np,nx,nh,nt,sh2o,swpre,swtem,
./pkg/fizhi/fizhi_lwrad.F 1424 IRRAD 
           call TABLUP(k1,k2,m,n,np,nx,nh,nt,sh2o,swpre,swtem,
./pkg/fizhi/fizhi_lwrad.F 1429 IRRAD 
           call TABLUP(k1,k2,m,n,np,nx,nh,nt,sh2o,swpre,swtem,
./pkg/fizhi/fizhi_lwrad.F 1438 IRRAD 
        call H2OKDIS(ib,m,n,np,k2-1,fkw,gkw,ne,h2oexp,conexp,
./pkg/fizhi/fizhi_lwrad.F 1454 IRRAD 
          call TABLUP(k1,k2,m,n,np,nx,nc,nt,sco3,scopre,scotem,
./pkg/fizhi/fizhi_lwrad.F 1460 IRRAD 
          call CO2KDIS(m,n,np,k2-1,co2exp,tco2,trant)
./pkg/fizhi/fizhi_lwrad.F 1473 IRRAD 
          call TABLUP(k1,k2,m,n,np,nx,no,nt,sco3,scopre,scotem,
./pkg/fizhi/fizhi_lwrad.F 1485 IRRAD 
          call N2OKDIS(ib,m,n,np,k2-1,n2oexp,tn2o,trant)
./pkg/fizhi/fizhi_lwrad.F 1491 IRRAD 
          call CH4KDIS(ib,m,n,np,k2-1,ch4exp,tch4,trant)
./pkg/fizhi/fizhi_lwrad.F 1497 IRRAD 
          call COMKDIS(ib,m,n,np,k2-1,comexp,tcom,trant)
./pkg/fizhi/fizhi_lwrad.F 1503 IRRAD 
          call CFCKDIS(m,n,np,k2-1,f11exp,tf11,trant)
./pkg/fizhi/fizhi_lwrad.F 1509 IRRAD 
          call CFCKDIS(m,n,np,k2-1,f12exp,tf12,trant)
./pkg/fizhi/fizhi_lwrad.F 1515 IRRAD 
          call CFCKDIS(m,n,np,k2-1,f22exp,tf22,trant)
./pkg/fizhi/fizhi_lwrad.F 1522 IRRAD 
          call B10KDIS(m,n,np,k2-1,h2oexp,conexp,co2exp,n2oexp
./pkg/fizhi/fizhi_lwrad.F 1656 IRRAD 
          flcu(i,j,np+1)=flcu(i,j,np+1)-blayer(i,j,np+1)
./pkg/fizhi/fizhi_lwrad.F 1657 IRRAD 
          flxu(i,j,np+1)=flxu(i,j,np+1)-blayer(i,j,np+1)
./pkg/fizhi/fizhi_lwrad.F 1658 IRRAD 
          st4(i,j)=st4(i,j)-blayer(i,j,np+1)
./pkg/fizhi/fizhi_lwrad.F 1659 IRRAD 
          dfdts(i,j,np+1)=dfdts(i,j,np+1)-dbs(i,j)
./pkg/fizhi/fizhi_lwrad.F 1666 IRRAD 
        do k=1, np+1
./pkg/fizhi/fizhi_lwrad.F 1670 IRRAD 
     *           flcd(i,j,np+1)*trantcr(i,j,k)*(1.-emiss(i,j,ib))
./pkg/fizhi/fizhi_lwrad.F 1672 IRRAD 
     *           flxd(i,j,np+1)*transfc(i,j,k)*(1.-emiss(i,j,ib))
./pkg/fizhi/fizhi_lwrad.F 1681 IRRAD 
      do k=1,np+1
./pkg/fizhi/fizhi_lwrad.F 1694 IRRAD 
      do k=1,np+1
./pkg/fizhi/fizhi_lwrad.F 1706 COLUMN 
      subroutine COLUMN (m,n,np,pa,dt,sabs0,sabs,spre,stem)
./pkg/fizhi/fizhi_lwrad.F 1731 COLUMN 
      integer m,n,np,i,j,k
./pkg/fizhi/fizhi_lwrad.F 1735 COLUMN 
      _RL pa(m,n,np),dt(m,n,np),sabs0(m,n,np)
./pkg/fizhi/fizhi_lwrad.F 1739 COLUMN 
      _RL sabs(m,n,np+1),spre(m,n,np+1),stem(m,n,np+1)
./pkg/fizhi/fizhi_lwrad.F 1750 COLUMN 
        do k=1,np
./pkg/fizhi/fizhi_lwrad.F 1763 H2OEXPS 
      subroutine H2OEXPS(ib,m,n,np,dh2o,pa,dt,xkw,aw,bw,pm,mw,h2oexp)
./pkg/fizhi/fizhi_lwrad.F 1786 H2OEXPS 
      integer ib,m,n,np,i,j,k,ik
./pkg/fizhi/fizhi_lwrad.F 1790 H2OEXPS 
      _RL dh2o(m,n,np),pa(m,n,np),dt(m,n,np)
./pkg/fizhi/fizhi_lwrad.F 1794 H2OEXPS 
      _RL h2oexp(m,n,np,6)
./pkg/fizhi/fizhi_lwrad.F 1810 H2OEXPS 
        do k=1,np
./pkg/fizhi/fizhi_lwrad.F 1833 H2OEXPS 
          do k=1,np
./pkg/fizhi/fizhi_lwrad.F 1844 H2OEXPS 
          do k=1,np
./pkg/fizhi/fizhi_lwrad.F 1856 H2OEXPS 
          do k=1,np
./pkg/fizhi/fizhi_lwrad.F 1868 H2OEXPS 
          do k=1,np
./pkg/fizhi/fizhi_lwrad.F 1885 CONEXPS 
      subroutine CONEXPS(ib,m,n,np,dcont,xke,conexp)
./pkg/fizhi/fizhi_lwrad.F 1902 CONEXPS 
      integer ib,m,n,np,i,j,k,iq
./pkg/fizhi/fizhi_lwrad.F 1906 CONEXPS 
      _RL dcont(m,n,np)
./pkg/fizhi/fizhi_lwrad.F 1910 CONEXPS 
      _RL conexp(m,n,np,3)
./pkg/fizhi/fizhi_lwrad.F 1918 CONEXPS 
        do k=1,np
./pkg/fizhi/fizhi_lwrad.F 1933 CONEXPS 
         do k=1,np
./pkg/fizhi/fizhi_lwrad.F 1947 CO2EXPS 
      subroutine CO2EXPS(m,n,np,dco2,pa,dt,co2exp)
./pkg/fizhi/fizhi_lwrad.F 1963 CO2EXPS 
      integer m,n,np,i,j,k
./pkg/fizhi/fizhi_lwrad.F 1967 CO2EXPS 
      _RL dco2(m,n,np),pa(m,n,np),dt(m,n,np)
./pkg/fizhi/fizhi_lwrad.F 1971 CO2EXPS 
      _RL co2exp(m,n,np,6,2)
./pkg/fizhi/fizhi_lwrad.F 1979 CO2EXPS 
        do k=1,np
./pkg/fizhi/fizhi_lwrad.F 2048 N2OEXPS 
      subroutine N2OEXPS(ib,m,n,np,dn2o,pa,dt,n2oexp)
./pkg/fizhi/fizhi_lwrad.F 2065 N2OEXPS 
      integer ib,m,n,np,i,j,k
./pkg/fizhi/fizhi_lwrad.F 2069 N2OEXPS 
      _RL dn2o(m,n,np),pa(m,n,np),dt(m,n,np)
./pkg/fizhi/fizhi_lwrad.F 2073 N2OEXPS 
      _RL n2oexp(m,n,np,4)
./pkg/fizhi/fizhi_lwrad.F 2081 N2OEXPS 
       do k=1,np
./pkg/fizhi/fizhi_lwrad.F 2124 CH4EXPS 
      subroutine CH4EXPS(ib,m,n,np,dch4,pa,dt,ch4exp)
./pkg/fizhi/fizhi_lwrad.F 2141 CH4EXPS 
      integer ib,m,n,np,i,j,k
./pkg/fizhi/fizhi_lwrad.F 2145 CH4EXPS 
      _RL dch4(m,n,np),pa(m,n,np),dt(m,n,np)
./pkg/fizhi/fizhi_lwrad.F 2149 CH4EXPS 
      _RL ch4exp(m,n,np,4)
./pkg/fizhi/fizhi_lwrad.F 2157 CH4EXPS 
       do k=1,np
./pkg/fizhi/fizhi_lwrad.F 2197 COMEXPS 
      subroutine COMEXPS(ib,m,n,np,dcom,dt,comexp)
./pkg/fizhi/fizhi_lwrad.F 2213 COMEXPS 
      integer ib,m,n,np,i,j,k
./pkg/fizhi/fizhi_lwrad.F 2217 COMEXPS 
      _RL dcom(m,n,np),dt(m,n,np)
./pkg/fizhi/fizhi_lwrad.F 2221 COMEXPS 
      _RL comexp(m,n,np,2)
./pkg/fizhi/fizhi_lwrad.F 2229 COMEXPS 
       do k=1,np
./pkg/fizhi/fizhi_lwrad.F 2270 CFCEXPS 
      subroutine CFCEXPS(ib,m,n,np,a1,b1,fk1,a2,b2,fk2,dcfc,dt,cfcexp)
./pkg/fizhi/fizhi_lwrad.F 2290 CFCEXPS 
      integer ib,m,n,np,i,j,k
./pkg/fizhi/fizhi_lwrad.F 2294 CFCEXPS 
      _RL dcfc(m,n,np),dt(m,n,np)
./pkg/fizhi/fizhi_lwrad.F 2298 CFCEXPS 
      _RL cfcexp(m,n,np)
./pkg/fizhi/fizhi_lwrad.F 2310 CFCEXPS 
       do k=1,np
./pkg/fizhi/fizhi_lwrad.F 2331 B10EXPS 
      subroutine B10EXPS(m,n,np,dh2o,dcont,dco2,dn2o,pa,dt
./pkg/fizhi/fizhi_lwrad.F 2352 B10EXPS 
      integer m,n,np,i,j,k
./pkg/fizhi/fizhi_lwrad.F 2356 B10EXPS 
      _RL dh2o(m,n,np),dcont(m,n,np),dn2o(m,n,np)
./pkg/fizhi/fizhi_lwrad.F 2357 B10EXPS 
      _RL dco2(m,n,np),pa(m,n,np),dt(m,n,np)
./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 2362 B10EXPS 
     *    ,n2oexp(m,n,np,4)
./pkg/fizhi/fizhi_lwrad.F 2370 B10EXPS 
        do k=1,np
./pkg/fizhi/fizhi_lwrad.F 2464 TABLUP 
      subroutine TABLUP(k1,k2,m,n,np,nx,nh,nt,sabs,spre,stem,w1,p1,
./pkg/fizhi/fizhi_lwrad.F 2503 TABLUP 
      integer k1,k2,m,n,np,nx,nh,nt,i,j
./pkg/fizhi/fizhi_lwrad.F 2508 TABLUP 
      _RL sabs(m,n,np+1),spre(m,n,np+1),stem(m,n,np+1)
./pkg/fizhi/fizhi_lwrad.F 2579 H2OKDIS 
      subroutine H2OKDIS(ib,m,n,np,k,fkw,gkw,ne,h2oexp,conexp,
./pkg/fizhi/fizhi_lwrad.F 2611 H2OKDIS 
      integer ib,m,n,np,k,i,j
./pkg/fizhi/fizhi_lwrad.F 2615 H2OKDIS 
      _RL conexp(m,n,np,3),h2oexp(m,n,np,6)
./pkg/fizhi/fizhi_lwrad.F 2725 CO2KDIS 
      subroutine CO2KDIS(m,n,np,k,co2exp,tco2,tran)
./pkg/fizhi/fizhi_lwrad.F 2745 CO2KDIS 
      integer m,n,np,k,i,j
./pkg/fizhi/fizhi_lwrad.F 2749 CO2KDIS 
      _RL co2exp(m,n,np,6,2)
./pkg/fizhi/fizhi_lwrad.F 2813 N2OKDIS 
      subroutine N2OKDIS(ib,m,n,np,k,n2oexp,tn2o,tran)
./pkg/fizhi/fizhi_lwrad.F 2834 N2OKDIS 
      integer ib,m,n,np,k,i,j
./pkg/fizhi/fizhi_lwrad.F 2838 N2OKDIS 
      _RL n2oexp(m,n,np,4)
./pkg/fizhi/fizhi_lwrad.F 2890 CH4KDIS 
      subroutine CH4KDIS(ib,m,n,np,k,ch4exp,tch4,tran)
./pkg/fizhi/fizhi_lwrad.F 2911 CH4KDIS 
      integer ib,m,n,np,k,i,j
./pkg/fizhi/fizhi_lwrad.F 2915 CH4KDIS 
      _RL ch4exp(m,n,np,4)
./pkg/fizhi/fizhi_lwrad.F 2964 COMKDIS 
      subroutine COMKDIS(ib,m,n,np,k,comexp,tcom,tran)
./pkg/fizhi/fizhi_lwrad.F 2985 COMKDIS 
      integer ib,m,n,np,k,i,j
./pkg/fizhi/fizhi_lwrad.F 2989 COMKDIS 
      _RL comexp(m,n,np,2)
./pkg/fizhi/fizhi_lwrad.F 3033 CFCKDIS 
      subroutine CFCKDIS(m,n,np,k,cfcexp,tcfc,tran)
./pkg/fizhi/fizhi_lwrad.F 3053 CFCKDIS 
      integer m,n,np,k,i,j
./pkg/fizhi/fizhi_lwrad.F 3057 CFCKDIS 
      _RL cfcexp(m,n,np)
./pkg/fizhi/fizhi_lwrad.F 3077 B10KDIS 
      subroutine B10KDIS(m,n,np,k,h2oexp,conexp,co2exp,n2oexp
./pkg/fizhi/fizhi_lwrad.F 3109 B10KDIS 
      integer m,n,np,k,i,j
./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 3114 B10KDIS 
     *    ,n2oexp(m,n,np,4)
./pkg/fizhi/fizhi_lwrad.F 346 IRRAD 
      subroutine IRRAD (m,n,ndim,np,pl,ta,wa,oa,ts,co2,
./pkg/fizhi/fizhi_lwrad.F 568 IRRAD 
      integer m,n,ndim,np,ict,icb
./pkg/fizhi/fizhi_lwrad.F 569 IRRAD 
      _RL pl(m,ndim,np+1),ta(m,ndim,np),wa(m,ndim,np),oa(m,ndim,np),
./pkg/fizhi/fizhi_lwrad.F 571 IRRAD 
      _RL co2,n2o(np),ch4(np),cfc11,cfc12,cfc22,emiss(m,ndim,10)
./pkg/fizhi/fizhi_lwrad.F 572 IRRAD 
      _RL cwc(m,ndim,np,3),taucl(m,ndim,np,3),reff(m,ndim,np,3),
./pkg/fizhi/fizhi_lwrad.F 573 IRRAD 
     *     fcld(m,ndim,np)
./pkg/fizhi/fizhi_lwrad.F 574 IRRAD 
      _RL taual(m,ndim,np,10),ssaal(m,ndim,np,10),asyal(m,ndim,np,10)
./pkg/fizhi/fizhi_lwrad.F 579 IRRAD 
      _RL flx(m,ndim,np+1),flc(m,ndim,np+1),dfdts(m,ndim,np+1),
./pkg/fizhi/fizhi_lwrad.F 591 IRRAD 
      _RL pa(m,n,np),dt(m,n,np)
./pkg/fizhi/fizhi_lwrad.F 592 IRRAD 
      _RL sh2o(m,n,np+1),swpre(m,n,np+1),swtem(m,n,np+1)
./pkg/fizhi/fizhi_lwrad.F 593 IRRAD 
      _RL sco3(m,n,np+1),scopre(m,n,np+1),scotem(m,n,np+1)
./pkg/fizhi/fizhi_lwrad.F 594 IRRAD 
      _RL dh2o(m,n,np),dcont(m,n,np),dco2(m,n,np),do3(m,n,np)
./pkg/fizhi/fizhi_lwrad.F 595 IRRAD 
      _RL dn2o(m,n,np),dch4(m,n,np)
./pkg/fizhi/fizhi_lwrad.F 596 IRRAD 
      _RL df11(m,n,np),df12(m,n,np),df22(m,n,np)
./pkg/fizhi/fizhi_lwrad.F 600 IRRAD 
      _RL h2oexp(m,n,np,6),conexp(m,n,np,3),co2exp(m,n,np,6,2)
./pkg/fizhi/fizhi_lwrad.F 601 IRRAD 
      _RL n2oexp(m,n,np,4),ch4exp(m,n,np,4),comexp(m,n,np,2)
./pkg/fizhi/fizhi_lwrad.F 602 IRRAD 
      _RL f11exp(m,n,np),  f12exp(m,n,np),  f22exp(m,n,np)
./pkg/fizhi/fizhi_lwrad.F 603 IRRAD 
      _RL clr(m,n,0:np+1),fclr(m,n)
./pkg/fizhi/fizhi_lwrad.F 604 IRRAD 
      _RL blayer(m,n,0:np+1),dlayer(m,n,np+1),dbs(m,n)
./pkg/fizhi/fizhi_lwrad.F 606 IRRAD 
      _RL cwp(m,n,np,3)
./pkg/fizhi/fizhi_lwrad.F 607 IRRAD 
      _RL trant(m,n),tranal(m,n),transfc(m,n,np+1),trantcr(m,n,np+1)
./pkg/fizhi/fizhi_lwrad.F 608 IRRAD 
      _RL flxu(m,n,np+1),flxd(m,n,np+1),flcu(m,n,np+1),flcd(m,n,np+1)
./pkg/fizhi/fizhi_lwrad.F 609 IRRAD 
      _RL rflx(m,n,np+1),rflc(m,n,np+1)
./pkg/fizhi/fizhi_lwrad.F 882 IRRAD 
      do k=1,np
./pkg/fizhi/fizhi_lwrad.F 909 IRRAD 
      do k=1,np
./pkg/fizhi/fizhi_lwrad.F 937 IRRAD 
        call COLUMN(m,n,np,pa,dt,dh2o,sh2o,swpre,swtem)
./pkg/fizhi/fizhi_lwrad.F 946 IRRAD 
        do k=1,np
./pkg/fizhi/fizhi_lwrad.F 968 IRRAD 
        clr(i,j,np+1) = 0.0
./pkg/fizhi/fizhi_lwrad.F 970 IRRAD 
        transfc(i,j,np+1)=1.0
./pkg/fizhi/fizhi_lwrad.F 971 IRRAD 
        trantcr(i,j,np+1)=1.0
./pkg/fizhi/fizhi_lwrad.F 977 IRRAD 
      do k=1,np+1
./pkg/fizhi/fizhi_swrad.F 1000 CLDSCALE 
      _RL  cc(m,n,3),tauclb(m,n,np),tauclf(m,n,np)
./pkg/fizhi/fizhi_swrad.F 1049 CLDSCALE 
      do k=icb,np
./pkg/fizhi/fizhi_swrad.F 1061 CLDSCALE 
      do k=1,np
./pkg/fizhi/fizhi_swrad.F 1151 SOLIR 
      subroutine SOLIR (m,n,ndim,np,wh,taucld,tauclb,tauclf,reff,
./pkg/fizhi/fizhi_swrad.F 1225 SOLIR 
      integer m,n,ndim,np,ict,icb
./pkg/fizhi/fizhi_swrad.F 1226 SOLIR 
      _RL  taucld(m,ndim,np,2),reff(m,ndim,np,2),fcld(m,ndim,np)
./pkg/fizhi/fizhi_swrad.F 1227 SOLIR 
      _RL  tauclb(m,n,np),tauclf(m,n,np),cc(m,n,3)
./pkg/fizhi/fizhi_swrad.F 1229 SOLIR 
      _RL  wh(m,n,np),taual(m,ndim,np),csm(m,n)
./pkg/fizhi/fizhi_swrad.F 1233 SOLIR 
      _RL  flx(m,ndim,np+1),flc(m,ndim,np+1)
./pkg/fizhi/fizhi_swrad.F 1246 SOLIR 
      _RL  ssacl(m,n,np),asycl(m,n,np)
./pkg/fizhi/fizhi_swrad.F 1247 SOLIR 
      _RL  rr(m,n,np+1,2),tt(m,n,np+1,2),td(m,n,np+1,2),
./pkg/fizhi/fizhi_swrad.F 1248 SOLIR 
     *       rs(m,n,np+1,2),ts(m,n,np+1,2)
./pkg/fizhi/fizhi_swrad.F 1249 SOLIR 
      _RL  fall(m,n,np+1),fclr(m,n,np+1)
./pkg/fizhi/fizhi_swrad.F 1317 SOLIR 
         rr(i,j,np+1,1)=rsirbm(i,j)
./pkg/fizhi/fizhi_swrad.F 1318 SOLIR 
         rr(i,j,np+1,2)=rsirbm(i,j)
./pkg/fizhi/fizhi_swrad.F 1319 SOLIR 
         rs(i,j,np+1,1)=rsirdf(i,j)
./pkg/fizhi/fizhi_swrad.F 1320 SOLIR 
         rs(i,j,np+1,2)=rsirdf(i,j)
./pkg/fizhi/fizhi_swrad.F 1321 SOLIR 
         td(i,j,np+1,1)=0.0
./pkg/fizhi/fizhi_swrad.F 1322 SOLIR 
         td(i,j,np+1,2)=0.0
./pkg/fizhi/fizhi_swrad.F 1323 SOLIR 
         tt(i,j,np+1,1)=0.0
./pkg/fizhi/fizhi_swrad.F 1324 SOLIR 
         tt(i,j,np+1,2)=0.0
./pkg/fizhi/fizhi_swrad.F 1325 SOLIR 
         ts(i,j,np+1,1)=0.0
./pkg/fizhi/fizhi_swrad.F 1326 SOLIR 
         ts(i,j,np+1,2)=0.0
./pkg/fizhi/fizhi_swrad.F 1337 SOLIR 
       do k= 1, np
./pkg/fizhi/fizhi_swrad.F 1383 SOLIR 
          do 300 k= 1, np
./pkg/fizhi/fizhi_swrad.F 1515 SOLIR 
       do k= 1, np+1
./pkg/fizhi/fizhi_swrad.F 1530 SOLIR 
        call CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts,
./pkg/fizhi/fizhi_swrad.F 1533 SOLIR 
       do k= 1, np+1
./pkg/fizhi/fizhi_swrad.F 1561 SOLUV 
      subroutine SOLUV (m,n,ndim,np,oh,dp,taucld,tauclb,tauclf,reff,
./pkg/fizhi/fizhi_swrad.F 1647 SOLUV 
      integer m,n,ndim,np,ict,icb
./pkg/fizhi/fizhi_swrad.F 1648 SOLUV 
      _RL  taucld(m,ndim,np,2),reff(m,ndim,np,2),fcld(m,ndim,np)
./pkg/fizhi/fizhi_swrad.F 1649 SOLUV 
      _RL  tauclb(m,n,np),tauclf(m,n,np),cc(m,n,3)
./pkg/fizhi/fizhi_swrad.F 1650 SOLUV 
      _RL  oh(m,n,np),dp(m,n,np),taual(m,ndim,np)
./pkg/fizhi/fizhi_swrad.F 1655 SOLUV 
      _RL  flx(m,ndim,np+1),flc(m,ndim,np+1)
./pkg/fizhi/fizhi_swrad.F 1670 SOLUV 
      _RL  taux,reff1,reff2,g1,g2,asycl(m,n,np)
./pkg/fizhi/fizhi_swrad.F 1671 SOLUV 
      _RL  td(m,n,np+1,2),rr(m,n,np+1,2),tt(m,n,np+1,2),
./pkg/fizhi/fizhi_swrad.F 1672 SOLUV 
     *       rs(m,n,np+1,2),ts(m,n,np+1,2)
./pkg/fizhi/fizhi_swrad.F 1673 SOLUV 
      _RL  fall(m,n,np+1),fclr(m,n,np+1),fsdir(m,n),fsdif(m,n)
./pkg/fizhi/fizhi_swrad.F 1713 SOLUV 
         rr(i,j,np+1,1)=rsuvbm(i,j)
./pkg/fizhi/fizhi_swrad.F 1714 SOLUV 
         rr(i,j,np+1,2)=rsuvbm(i,j)
./pkg/fizhi/fizhi_swrad.F 1715 SOLUV 
         rs(i,j,np+1,1)=rsuvdf(i,j)
./pkg/fizhi/fizhi_swrad.F 1716 SOLUV 
         rs(i,j,np+1,2)=rsuvdf(i,j)
./pkg/fizhi/fizhi_swrad.F 1717 SOLUV 
         td(i,j,np+1,1)=0.0
./pkg/fizhi/fizhi_swrad.F 1718 SOLUV 
         td(i,j,np+1,2)=0.0
./pkg/fizhi/fizhi_swrad.F 1719 SOLUV 
         tt(i,j,np+1,1)=0.0
./pkg/fizhi/fizhi_swrad.F 1720 SOLUV 
         tt(i,j,np+1,2)=0.0
./pkg/fizhi/fizhi_swrad.F 1721 SOLUV 
         ts(i,j,np+1,1)=0.0
./pkg/fizhi/fizhi_swrad.F 1722 SOLUV 
         ts(i,j,np+1,2)=0.0
./pkg/fizhi/fizhi_swrad.F 1729 SOLUV 
      do k= 1, np
./pkg/fizhi/fizhi_swrad.F 1770 SOLUV 
       do 300 k= 1, np
./pkg/fizhi/fizhi_swrad.F 1887 SOLUV 
       do k= 1, np+1
./pkg/fizhi/fizhi_swrad.F 1901 SOLUV 
        call CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts,
./pkg/fizhi/fizhi_swrad.F 1904 SOLUV 
       do k= 1, np+1
./pkg/fizhi/fizhi_swrad.F 2152 CLDFLX 
      subroutine CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts,
./pkg/fizhi/fizhi_swrad.F 2188 CLDFLX 
      integer m,n,np,ict,icb
./pkg/fizhi/fizhi_swrad.F 2190 CLDFLX 
      _RL  rr(m,n,np+1,2),tt(m,n,np+1,2),td(m,n,np+1,2)
./pkg/fizhi/fizhi_swrad.F 2191 CLDFLX 
      _RL  rs(m,n,np+1,2),ts(m,n,np+1,2)
./pkg/fizhi/fizhi_swrad.F 2197 CLDFLX 
      _RL  rra(m,n,np+1,2,2),tta(m,n,np+1,2,2),tda(m,n,np+1,2,2)
./pkg/fizhi/fizhi_swrad.F 2198 CLDFLX 
      _RL  rsa(m,n,np+1,2,2),rxa(m,n,np+1,2,2)
./pkg/fizhi/fizhi_swrad.F 2199 CLDFLX 
      _RL  ch(m,n),cm(m,n),ct(m,n),flxdn(m,n,np+1)
./pkg/fizhi/fizhi_swrad.F 2205 CLDFLX 
      _RL  fclr(m,n,np+1),fall(m,n,np+1)
./pkg/fizhi/fizhi_swrad.F 2210 CLDFLX 
      do k=1,np+1
./pkg/fizhi/fizhi_swrad.F 2299 CLDFLX 
         rra(i,j,np+1,1,is)=rr(i,j,np+1,is)
./pkg/fizhi/fizhi_swrad.F 2300 CLDFLX 
         rxa(i,j,np+1,1,is)=rs(i,j,np+1,is)
./pkg/fizhi/fizhi_swrad.F 2301 CLDFLX 
         rra(i,j,np+1,2,is)=rr(i,j,np+1,is)
./pkg/fizhi/fizhi_swrad.F 2302 CLDFLX 
         rxa(i,j,np+1,2,is)=rs(i,j,np+1,is)
./pkg/fizhi/fizhi_swrad.F 2306 CLDFLX 
       do k=np,icb,-1
./pkg/fizhi/fizhi_swrad.F 2414 CLDFLX 
       do k= icb,