File |
Line number |
Procedure |
Code |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1254 |
SOLIR |
_RL taux,reff1,reff2,w1,w2,g1,g2 |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1349 |
SOLIR |
reff1=min(reff(i,j,k,1),130. _d 0) |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1353 |
SOLIR |
* aia(ib,3)*reff1)*reff1))*taucld(i,j,k,1) |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1358 |
SOLIR |
g1=(aig(ib,1)+(aig(ib,2)+aig(ib,3)*reff1)*reff1)*w1 |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1671 |
SOLUV |
_RL taux,reff1,reff2,g1,g2,asycl(m,n,np) |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1740 |
SOLUV |
reff1=min(reff(i,j,k,1),130. _d 0) |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1743 |
SOLUV |
g1=(aig(1)+(aig(2)+aig(3)*reff1)*reff1)*taucld(i,j,k,1) |
./pkg/fizhi/fizhi_swrad.F |
1253 |
SOLIR |
_RL taux,reff1,reff2,w1,w2,g1,g2 |
./pkg/fizhi/fizhi_swrad.F |
1348 |
SOLIR |
reff1=min(reff(i,j,k,1),130. _d 0) |
./pkg/fizhi/fizhi_swrad.F |
1352 |
SOLIR |
* aia(ib,3)*reff1)*reff1))*taucld(i,j,k,1) |
./pkg/fizhi/fizhi_swrad.F |
1357 |
SOLIR |
g1=(aig(ib,1)+(aig(ib,2)+aig(ib,3)*reff1)*reff1)*w1 |
./pkg/fizhi/fizhi_swrad.F |
1670 |
SOLUV |
_RL taux,reff1,reff2,g1,g2,asycl(m,n,np) |
./pkg/fizhi/fizhi_swrad.F |
1739 |
SOLUV |
reff1=min(reff(i,j,k,1),130. _d 0) |
./pkg/fizhi/fizhi_swrad.F |
1742 |
SOLUV |
g1=(aig(1)+(aig(2)+aig(3)*reff1)*reff1)*taucld(i,j,k,1) |
./pkg/fizhi/fizhi_lwrad.F |
1100 |
IRRAD |
reff1=min(reff(i,j,k,1),130. _d 0) |
./pkg/fizhi/fizhi_lwrad.F |
1104 |
IRRAD |
* +aiw(4,ib)*reff1)*reff1)*reff1) |
./pkg/fizhi/fizhi_lwrad.F |
1111 |
IRRAD |
* +aig(4,ib)*reff1)*reff1)*reff1) |
./pkg/fizhi/fizhi_lwrad.F |
621 |
IRRAD |
_RL w1,w2,w3,g1,g2,g3,ww,gg,ff,taux,reff1,reff2 |