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) |