File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_lwrad.F |
1414 |
IRRAD |
dwe=0.3 |
./pkg/fizhi/fizhi_lwrad.F |
1421 |
IRRAD |
* w1,p1,dwe,dpe,h11,h12,h13,trant) |
./pkg/fizhi/fizhi_lwrad.F |
1425 |
IRRAD |
* w1,p1,dwe,dpe,h21,h22,h23,trant) |
./pkg/fizhi/fizhi_lwrad.F |
1430 |
IRRAD |
* w1,p1,dwe,dpe,h81,h82,h83,trant) |
./pkg/fizhi/fizhi_lwrad.F |
1452 |
IRRAD |
dwe=0.3 |
./pkg/fizhi/fizhi_lwrad.F |
1455 |
IRRAD |
* w1,p1,dwe,dpe,c1,c2,c3,trant) |
./pkg/fizhi/fizhi_lwrad.F |
1471 |
IRRAD |
dwe=0.3 |
./pkg/fizhi/fizhi_lwrad.F |
1474 |
IRRAD |
* w1,p1,dwe,dpe,o1,o2,o3,trant) |
./pkg/fizhi/fizhi_lwrad.F |
2465 |
TABLUP |
* dwe,dpe,coef1,coef2,coef3,tran) |
./pkg/fizhi/fizhi_lwrad.F |
2507 |
TABLUP |
_RL w1,p1,dwe,dpe |
./pkg/fizhi/fizhi_lwrad.F |
2531 |
TABLUP |
we=(log10(x1)-w1)/dwe |
./pkg/fizhi/fizhi_lwrad.F |
2534 |
TABLUP |
we=max(we,w1-2.*dwe) |
./pkg/fizhi/fizhi_lwrad.F |
620 |
IRRAD |
_RL dp,xx,p1,dwe,dpe,a1,b1,fk1,a2,b2,fk2 |