| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
1237 |
IRRAD |
flcd(i,j,k) = 0.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1574 |
IRRAD |
flcd(i,j,k2)=flcd(i,j,k2)+blayer(i,j,k1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1595 |
IRRAD |
flcd(i,j,k2) =flcd(i,j,k2)+xx |
|
./pkg/fizhi/fizhi_lwrad.F |
1670 |
IRRAD |
* flcd(i,j,np+1)*trantcr(i,j,k)*(1.-emiss(i,j,ib)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1684 |
IRRAD |
flc(i,j,k)=flc(i,j,k)+flcd(i,j,k)+flcu(i,j,k) |
|
./pkg/fizhi/fizhi_lwrad.F |
608 |
IRRAD |
_RL flxu(m,n,np+1),flxd(m,n,np+1),flcu(m,n,np+1),flcd(m,n,np+1) |