| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
1170 |
IRRAD |
call CH4EXPS(ib,m,n,np,dch4,pa,dt,ch4exp) |
|
./pkg/fizhi/fizhi_lwrad.F |
2124 |
CH4EXPS |
subroutine CH4EXPS(ib,m,n,np,dch4,pa,dt,ch4exp) |
|
./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 |
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 |
2172 |
CH4EXPS |
xc=dch4(i,j,k)*(pa(i,j,k)/500.0)**0.65 |
|
./pkg/fizhi/fizhi_lwrad.F |
595 |
IRRAD |
_RL dn2o(m,n,np),dch4(m,n,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
917 |
IRRAD |
dch4 (i,j,k) = 789.*ch4(k)*dp+1.e-10 |