Symbol Description Uses
xc 205



File Line number Procedure Code
./pkg/fizhi/fizhi_lwrad.F 1975 CO2EXPS
      _RL xc
./pkg/fizhi/fizhi_lwrad.F 1986 CO2EXPS
           xc = dco2(i,j,k)*(pa(i,j,k)/300.0)**0.5
./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 1994 CO2EXPS
           xc=xc*xc
./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 1998 CO2EXPS
           xc=xc*xc
./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 2002 CO2EXPS
           xc=xc*xc
./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 2006 CO2EXPS
           xc=xc*xc
./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 2010 CO2EXPS
           xc=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2011 CO2EXPS
           co2exp(i,j,k,6,1)=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2016 CO2EXPS
           xc = dco2(i,j,k)*(pa(i,j,k)/30.0)**0.85
./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 2022 CO2EXPS
           xc=xc*xc
./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 2026 CO2EXPS
           xc=xc*xc
./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 2030 CO2EXPS
           xc=xc*xc
./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 2034 CO2EXPS
           xc=xc*xc
./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 2038 CO2EXPS
           xc=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2039 CO2EXPS
           co2exp(i,j,k,6,2)=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2077 N2OEXPS
      _RL xc,xc1,xc2
./pkg/fizhi/fizhi_lwrad.F 2089 N2OEXPS
           xc=dn2o(i,j,k)*(1.+(1.9297e-3+4.3750e-6*dt(i,j,k))*dt(i,j,k))
./pkg/fizhi/fizhi_lwrad.F 2090 N2OEXPS
           n2oexp(i,j,k,1)=exp(-xc*6.31582e-2)
./pkg/fizhi/fizhi_lwrad.F 2092 N2OEXPS
           xc=n2oexp(i,j,k,1)*n2oexp(i,j,k,1)*n2oexp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F 2093 N2OEXPS
           xc1=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2095 N2OEXPS
           n2oexp(i,j,k,2)=xc*xc1*xc2
./pkg/fizhi/fizhi_lwrad.F 2101 N2OEXPS
           xc=dn2o(i,j,k)*(pa(i,j,k)/500.0)**0.48
./pkg/fizhi/fizhi_lwrad.F 2103 N2OEXPS
           n2oexp(i,j,k,1)=exp(-xc*5.35779e-2)
./pkg/fizhi/fizhi_lwrad.F 2105 N2OEXPS
           xc=n2oexp(i,j,k,1)*n2oexp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F 2106 N2OEXPS
           xc=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2107 N2OEXPS
           n2oexp(i,j,k,2)=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2108 N2OEXPS
           xc=n2oexp(i,j,k,2)*n2oexp(i,j,k,2)
./pkg/fizhi/fizhi_lwrad.F 2109 N2OEXPS
           xc=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2110 N2OEXPS
           n2oexp(i,j,k,3)=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2111 N2OEXPS
           xc=n2oexp(i,j,k,3)*n2oexp(i,j,k,3)
./pkg/fizhi/fizhi_lwrad.F 2112 N2OEXPS
           xc=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2113 N2OEXPS
           n2oexp(i,j,k,4)=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2153 CH4EXPS
      _RL xc
./pkg/fizhi/fizhi_lwrad.F 2165 CH4EXPS
           xc=dch4(i,j,k)*(1.+(1.7007e-2+1.5826e-4*dt(i,j,k))*dt(i,j,k))
./pkg/fizhi/fizhi_lwrad.F 2166 CH4EXPS
           ch4exp(i,j,k,1)=exp(-xc*5.80708e-3)
./pkg/fizhi/fizhi_lwrad.F 2172 CH4EXPS
           xc=dch4(i,j,k)*(pa(i,j,k)/500.0)**0.65
./pkg/fizhi/fizhi_lwrad.F 2174 CH4EXPS
           ch4exp(i,j,k,1)=exp(-xc*6.29247e-2)
./pkg/fizhi/fizhi_lwrad.F 2176 CH4EXPS
           xc=ch4exp(i,j,k,1)*ch4exp(i,j,k,1)*ch4exp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F 2177 CH4EXPS
           xc=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2178 CH4EXPS
           ch4exp(i,j,k,2)=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2180 CH4EXPS
           xc=ch4exp(i,j,k,2)*ch4exp(i,j,k,2)*ch4exp(i,j,k,2)
./pkg/fizhi/fizhi_lwrad.F 2181 CH4EXPS
           xc=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2182 CH4EXPS
           ch4exp(i,j,k,3)=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2184 CH4EXPS
           xc=ch4exp(i,j,k,3)*ch4exp(i,j,k,3)*ch4exp(i,j,k,3)
./pkg/fizhi/fizhi_lwrad.F 2185 CH4EXPS
           xc=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2186 CH4EXPS
           ch4exp(i,j,k,4)=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2225 COMEXPS
      _RL xc,xc1,xc2
./pkg/fizhi/fizhi_lwrad.F 2237 COMEXPS
           xc=dcom(i,j,k)*(1.+(3.5775e-2+4.0447e-4*dt(i,j,k))*dt(i,j,k))
./pkg/fizhi/fizhi_lwrad.F 2238 COMEXPS
           comexp(i,j,k,1)=exp(-xc*2.18947e-5)
./pkg/fizhi/fizhi_lwrad.F 2240 COMEXPS
           xc=comexp(i,j,k,1)*comexp(i,j,k,1)*comexp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F 2241 COMEXPS
           xc=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2242 COMEXPS
           xc1=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2243 COMEXPS
           xc=xc1*xc1
./pkg/fizhi/fizhi_lwrad.F 2244 COMEXPS
           xc=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2245 COMEXPS
           comexp(i,j,k,2)=xc*xc1
./pkg/fizhi/fizhi_lwrad.F 2251 COMEXPS
           xc=dcom(i,j,k)*(1.+(3.4268e-2+3.7401e-4*dt(i,j,k))*dt(i,j,k))
./pkg/fizhi/fizhi_lwrad.F 2252 COMEXPS
           comexp(i,j,k,1)=exp(-xc*4.74570e-5)
./pkg/fizhi/fizhi_lwrad.F 2254 COMEXPS
           xc=comexp(i,j,k,1)*comexp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F 2255 COMEXPS
           xc1=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2257 COMEXPS
           xc=xc2*xc2
./pkg/fizhi/fizhi_lwrad.F 2258 COMEXPS
           xc=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2259 COMEXPS
           comexp(i,j,k,2)=xc1*xc2*xc
./pkg/fizhi/fizhi_lwrad.F 2757 CO2KDIS
      _RL xc
./pkg/fizhi/fizhi_lwrad.F 2768 CO2KDIS
           xc=   0.1395 *tco2(i,j,1,1)
./pkg/fizhi/fizhi_lwrad.F 2771 CO2KDIS
           xc=xc+0.1407 *tco2(i,j,2,1)
./pkg/fizhi/fizhi_lwrad.F 2774 CO2KDIS
           xc=xc+0.1549 *tco2(i,j,3,1)
./pkg/fizhi/fizhi_lwrad.F 2777 CO2KDIS
           xc=xc+0.1357 *tco2(i,j,4,1)
./pkg/fizhi/fizhi_lwrad.F 2780 CO2KDIS
           xc=xc+0.0182 *tco2(i,j,5,1)
./pkg/fizhi/fizhi_lwrad.F 2783 CO2KDIS
           xc=xc+0.0220 *tco2(i,j,6,1)
./pkg/fizhi/fizhi_lwrad.F 2788 CO2KDIS
           xc=xc+0.0766 *tco2(i,j,1,2)
./pkg/fizhi/fizhi_lwrad.F 2791 CO2KDIS
           xc=xc+0.1372 *tco2(i,j,2,2)
./pkg/fizhi/fizhi_lwrad.F 2794 CO2KDIS
           xc=xc+0.1189 *tco2(i,j,3,2)
./pkg/fizhi/fizhi_lwrad.F 2797 CO2KDIS
           xc=xc+0.0335 *tco2(i,j,4,2)
./pkg/fizhi/fizhi_lwrad.F 2800 CO2KDIS
           xc=xc+0.0169 *tco2(i,j,5,2)
./pkg/fizhi/fizhi_lwrad.F 2803 CO2KDIS
           xc=xc+0.0059 *tco2(i,j,6,2)
./pkg/fizhi/fizhi_lwrad.F 2805 CO2KDIS
           tran(i,j)=tran(i,j)*xc
./pkg/fizhi/fizhi_lwrad.F 2846 N2OKDIS
      _RL xc
./pkg/fizhi/fizhi_lwrad.F 2859 N2OKDIS
           xc=   0.940414*tn2o(i,j,1)
./pkg/fizhi/fizhi_lwrad.F 2862 N2OKDIS
           xc=xc+0.059586*tn2o(i,j,2)
./pkg/fizhi/fizhi_lwrad.F 2869 N2OKDIS
           xc=   0.561961*tn2o(i,j,1)
./pkg/fizhi/fizhi_lwrad.F 2872 N2OKDIS
           xc=xc+0.138707*tn2o(i,j,2)
./pkg/fizhi/fizhi_lwrad.F 2875 N2OKDIS
           xc=xc+0.240670*tn2o(i,j,3)
./pkg/fizhi/fizhi_lwrad.F 2878 N2OKDIS
           xc=xc+0.058662*tn2o(i,j,4)
./pkg/fizhi/fizhi_lwrad.F 2882 N2OKDIS
           tran(i,j)=tran(i,j)*xc
./pkg/fizhi/fizhi_lwrad.F 2923 CH4KDIS
      _RL xc
./pkg/fizhi/fizhi_lwrad.F 2936 CH4KDIS
           xc= tch4(i,j,1)
./pkg/fizhi/fizhi_lwrad.F 2943 CH4KDIS
           xc=   0.610650*tch4(i,j,1)
./pkg/fizhi/fizhi_lwrad.F 2946 CH4KDIS
           xc=xc+0.280212*tch4(i,j,2)
./pkg/fizhi/fizhi_lwrad.F 2949 CH4KDIS
           xc=xc+0.107349*tch4(i,j,3)
./pkg/fizhi/fizhi_lwrad.F 2952 CH4KDIS
           xc=xc+0.001789*tch4(i,j,4)
./pkg/fizhi/fizhi_lwrad.F 2956 CH4KDIS
           tran(i,j)=tran(i,j)*xc
./pkg/fizhi/fizhi_lwrad.F 2997 COMKDIS
      _RL xc
./pkg/fizhi/fizhi_lwrad.F 3010 COMKDIS
            xc=   0.972025*tcom(i,j,1)
./pkg/fizhi/fizhi_lwrad.F 3012 COMKDIS
            xc=xc+0.027975*tcom(i,j,2)
./pkg/fizhi/fizhi_lwrad.F 3019 COMKDIS
            xc=   0.961324*tcom(i,j,1)
./pkg/fizhi/fizhi_lwrad.F 3021 COMKDIS
            xc=xc+0.038676*tcom(i,j,2)
./pkg/fizhi/fizhi_lwrad.F 3025 COMKDIS
            tran(i,j)=tran(i,j)*xc
./verification/flt_example/extra/write_float.F 110 NO PROCEDURE
                   xpart  = xc(i)
./verification/flt_example/extra/write_float.F 137 NO PROCEDURE
                   xpart  = xc(i)
./verification/flt_example/extra/write_float.F 163 NO PROCEDURE
                   xpart  = xc(i)
./verification/flt_example/extra/write_float.F 185 NO PROCEDURE
                   xpart  = xc(i)
./verification/flt_example/extra/write_float.F 42 NO PROCEDURE
        xc(1)=2500.
./verification/flt_example/extra/write_float.F 44 NO PROCEDURE
           xc(i)=xc(i-1)+degX
./verification/flt_example/extra/write_float.F 53 NO PROCEDURE
        print*,'xc(1), xc(Nx): ',xc(1), xc(Nx)
./verification/flt_example/extra/write_float.F 7 NO PROCEDURE
        double precision depth(Nx,Ny),xc(Nx),yc(Ny),degX,degY
./verification/flt_example/extra/write_float.F 88 NO PROCEDURE
                   xpart  = xc(i)