Symbol Description Uses
csm 44


File Line number Procedure Code
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1153 SOLIR 
     *  ict,icb,fcld,cc,taual,csm,rsirbm,rsirdf,flx,flc,fdirir,fdifir)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1230 SOLIR 
      _RL  wh(m,n,np),taual(m,ndim,np),csm(m,n)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1415 SOLIR 
             td1t(i,j)=expmn(-tauto*csm(i,j))
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1441 SOLIR 
              call DELEDD(tauto,ssato,asyto,csm(i,j),
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1563 SOLUV 
     *  ict,icb,fcld,cc,taual,csm,rsuvbm,rsuvdf,flx,flc
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1652 SOLUV 
      _RL  rsuvbm(m,ndim),rsuvdf(m,ndim),csm(m,n)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1795 SOLUV 
          call DELEDD(tauto,ssato,asyto,csm(i,j),
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1817 SOLUV 
           call DELEDD(tauto,ssato,asyto,csm(i,j),
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1941 DELEDD 
      subroutine DELEDD(tau,ssc,g0,csm,rr,tt,td)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1982 DELEDD 
      _RL  tau,ssc,g0,csm
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1992 DELEDD 
                zth = one / csm
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2006 DELEDD 
                td  = expmn(-taup*csm)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2495 FLXCO2 
      subroutine FLXCO2(m,n,np,swc,swh,csm,df)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2507 FLXCO2 
      _RL  csm(m,n),swc(m,n,np+1),swh(m,n,np+1),cah(22,19)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2533 FLXCO2 
          clog1=log10(swc(i,j,k)*csm(i,j))
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2534 FLXCO2 
          wlog=log10(swh(i,j,k)*csm(i,j))
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 784 SORAD 
      _RL  sdf(m,n),sclr(m,n),csm(m,n),x
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 797 SORAD 
         csm(i,j)=35./sqrt(1224.*cosz(i,j)*cosz(i,j)+1.)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 853 SORAD 
     *     ,fcld,cc,taual,csm,rsirbm,rsirdf,flx,flc,fdirir,fdifir)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 858 SORAD 
     *     ,fcld,cc,taual,csm,rsuvbm,rsuvdf,flx,flc
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 878 SORAD 
           x=so2(i,j,k)*csm(i,j)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 897 SORAD 
      call FLXCO2(m,n,np,so2,swh,csm,df)
./pkg/fizhi/fizhi_swrad.F 1152 SOLIR 
     *  ict,icb,fcld,cc,taual,csm,rsirbm,rsirdf,flx,flc,fdirir,fdifir)
./pkg/fizhi/fizhi_swrad.F 1229 SOLIR 
      _RL  wh(m,n,np),taual(m,ndim,np),csm(m,n)
./pkg/fizhi/fizhi_swrad.F 1414 SOLIR 
             td1t(i,j)=expmn(-tauto*csm(i,j))
./pkg/fizhi/fizhi_swrad.F 1440 SOLIR 
              call DELEDD(tauto,ssato,asyto,csm(i,j),
./pkg/fizhi/fizhi_swrad.F 1562 SOLUV 
     *  ict,icb,fcld,cc,taual,csm,rsuvbm,rsuvdf,flx,flc
./pkg/fizhi/fizhi_swrad.F 1651 SOLUV 
      _RL  rsuvbm(m,ndim),rsuvdf(m,ndim),csm(m,n)
./pkg/fizhi/fizhi_swrad.F 1794 SOLUV 
          call DELEDD(tauto,ssato,asyto,csm(i,j),
./pkg/fizhi/fizhi_swrad.F 1816 SOLUV 
           call DELEDD(tauto,ssato,asyto,csm(i,j),
./pkg/fizhi/fizhi_swrad.F 1940 DELEDD 
      subroutine DELEDD(tau,ssc,g0,csm,rr,tt,td)
./pkg/fizhi/fizhi_swrad.F 1981 DELEDD 
      _RL  tau,ssc,g0,csm
./pkg/fizhi/fizhi_swrad.F 1991 DELEDD 
                zth = one / csm
./pkg/fizhi/fizhi_swrad.F 2005 DELEDD 
                td  = expmn(-taup*csm)
./pkg/fizhi/fizhi_swrad.F 2494 FLXCO2 
      subroutine FLXCO2(m,n,np,swc,swh,csm,df)
./pkg/fizhi/fizhi_swrad.F 2506 FLXCO2 
      _RL  csm(m,n),swc(m,n,np+1),swh(m,n,np+1),cah(22,19)
./pkg/fizhi/fizhi_swrad.F 2532 FLXCO2 
          clog1=log10(swc(i,j,k)*csm(i,j))
./pkg/fizhi/fizhi_swrad.F 2533 FLXCO2 
          wlog=log10(swh(i,j,k)*csm(i,j))
./pkg/fizhi/fizhi_swrad.F 783 SORAD 
      _RL  sdf(m,n),sclr(m,n),csm(m,n),x
./pkg/fizhi/fizhi_swrad.F 796 SORAD 
         csm(i,j)=35./sqrt(1224.*cosz(i,j)*cosz(i,j)+1.)
./pkg/fizhi/fizhi_swrad.F 852 SORAD 
     *     ,fcld,cc,taual,csm,rsirbm,rsirdf,flx,flc,fdirir,fdifir)
./pkg/fizhi/fizhi_swrad.F 857 SORAD 
     *     ,fcld,cc,taual,csm,rsuvbm,rsuvdf,flx,flc
./pkg/fizhi/fizhi_swrad.F 877 SORAD 
           x=so2(i,j,k)*csm(i,j)
./pkg/fizhi/fizhi_swrad.F 896 SORAD 
      call FLXCO2(m,n,np,so2,swh,csm,df)