| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
1101 |
IRRAD |
reff2=min(reff(i,j,k,2),20.0 _d 0) |
|
./pkg/fizhi/fizhi_lwrad.F |
1106 |
IRRAD |
* +aww(4,ib)*reff2)*reff2)*reff2) |
|
./pkg/fizhi/fizhi_lwrad.F |
1113 |
IRRAD |
* +awg(4,ib)*reff2)*reff2)*reff2) |
|
./pkg/fizhi/fizhi_lwrad.F |
621 |
IRRAD |
_RL w1,w2,w3,g1,g2,g3,ww,gg,ff,taux,reff1,reff2 |
|
./pkg/fizhi/fizhi_swrad.F |
1261 |
SOLIR |
_RL taux,reff1,reff2,w1,w2,g1,g2 |
|
./pkg/fizhi/fizhi_swrad.F |
1357 |
SOLIR |
reff2=min(reff(i,j,k,2),20.0 _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
1362 |
SOLIR |
* awa(ib,3)*reff2)*reff2))*taucld(i,j,k,2) |
|
./pkg/fizhi/fizhi_swrad.F |
1366 |
SOLIR |
g2=(awg(ib,1)+(awg(ib,2)+awg(ib,3)*reff2)*reff2)*w2 |
|
./pkg/fizhi/fizhi_swrad.F |
1678 |
SOLUV |
_RL taux,reff1,reff2,g1,g2,asycl(m,n,np) |
|
./pkg/fizhi/fizhi_swrad.F |
1748 |
SOLUV |
reff2=min(reff(i,j,k,2),20.0 _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
1751 |
SOLUV |
g2=(awg(1)+(awg(2)+awg(3)*reff2)*reff2)*taucld(i,j,k,2) |