| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
1140 |
IRRAD |
call H2OEXPS(ib,m,n,np,dh2o,pa,dt,xkw,aw,bw,pm,mw,h2oexp) |
|
./pkg/fizhi/fizhi_lwrad.F |
1219 |
IRRAD |
call B10EXPS(m,n,np,dh2o,dcont,dco2,dn2o,pa,dt |
|
./pkg/fizhi/fizhi_lwrad.F |
1763 |
H2OEXPS |
subroutine H2OEXPS(ib,m,n,np,dh2o,pa,dt,xkw,aw,bw,pm,mw,h2oexp) |
|
./pkg/fizhi/fizhi_lwrad.F |
1790 |
H2OEXPS |
_RL dh2o(m,n,np),pa(m,n,np),dt(m,n,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
1817 |
H2OEXPS |
xh = dh2o(i,j,k)*(pa(i,j,k)/500.)**pm(ib) |
|
./pkg/fizhi/fizhi_lwrad.F |
2331 |
B10EXPS |
subroutine B10EXPS(m,n,np,dh2o,dcont,dco2,dn2o,pa,dt |
|
./pkg/fizhi/fizhi_lwrad.F |
2356 |
B10EXPS |
_RL dh2o(m,n,np),dcont(m,n,np),dn2o(m,n,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
2377 |
B10EXPS |
xx=dh2o(i,j,k)*(pa(i,j,k)/500.0) |
|
./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 |
914 |
IRRAD |
dh2o (i,j,k) = 1.02*wa(i,j,k)*dp+1.e-10 |
|
./pkg/fizhi/fizhi_lwrad.F |
937 |
IRRAD |
call COLUMN(m,n,np,pa,dt,dh2o,sh2o,swpre,swtem) |