File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_lwrad.F |
1052 |
IRRAD |
dlayer(i,j,k)=blayer(i,j,k-1)-blayer(i,j,k) |
./pkg/fizhi/fizhi_lwrad.F |
1591 |
IRRAD |
xx=trant(i,j)*dlayer(i,j,k2) |
./pkg/fizhi/fizhi_lwrad.F |
1594 |
IRRAD |
xx=trant(i,j)*dlayer(i,j,k1) |
./pkg/fizhi/fizhi_lwrad.F |
1609 |
IRRAD |
* *dlayer(i,j,k2) |
./pkg/fizhi/fizhi_lwrad.F |
1611 |
IRRAD |
* *dlayer(i,j,k1) |
./pkg/fizhi/fizhi_lwrad.F |
1613 |
IRRAD |
* *dlayer(i,j,k2) |
./pkg/fizhi/fizhi_lwrad.F |
1615 |
IRRAD |
* *dlayer(i,j,k1) |
./pkg/fizhi/fizhi_lwrad.F |
604 |
IRRAD |
_RL blayer(m,n,0:np+1),dlayer(m,n,np+1),dbs(m,n) |