| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
1064 |
IRRAD |
call COLUMN(m,n,np,pa,dt,dco2,sco3,scopre,scotem) |
|
./pkg/fizhi/fizhi_lwrad.F |
1154 |
IRRAD |
call CO2EXPS(m,n,np,dco2,pa,dt,co2exp) |
|
./pkg/fizhi/fizhi_lwrad.F |
1176 |
IRRAD |
call COMEXPS(ib,m,n,np,dco2,dt,comexp) |
|
./pkg/fizhi/fizhi_lwrad.F |
1219 |
IRRAD |
call B10EXPS(m,n,np,dh2o,dcont,dco2,dn2o,pa,dt |
|
./pkg/fizhi/fizhi_lwrad.F |
1947 |
CO2EXPS |
subroutine CO2EXPS(m,n,np,dco2,pa,dt,co2exp) |
|
./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 |
1986 |
CO2EXPS |
xc = dco2(i,j,k)*(pa(i,j,k)/300.0)**0.5 |
|
./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 |
2331 |
B10EXPS |
subroutine B10EXPS(m,n,np,dh2o,dcont,dco2,dn2o,pa,dt |
|
./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 |
2408 |
B10EXPS |
xx=dco2(i,j,k)*(pa(i,j,k)/300.0)**0.5 |
|
./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 |
916 |
IRRAD |
dco2 (i,j,k) = 789.*co2*dp+1.e-10 |