| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
1236 |
IRRAD |
flcu(i,j,k) = 0.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1573 |
IRRAD |
flcu(i,j,k1)=flcu(i,j,k1)-blayer(i,j,k1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1592 |
IRRAD |
flcu(i,j,k1) =flcu(i,j,k1)+xx |
|
./pkg/fizhi/fizhi_lwrad.F |
1656 |
IRRAD |
flcu(i,j,np+1)=flcu(i,j,np+1)-blayer(i,j,np+1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1669 |
IRRAD |
flcu(i,j,k)=flcu(i,j,k)- |
|
./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) |