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 |
1354 |
SOLIR |
w2=(1.-(awa(ib,1)+(awa(ib,2)+ |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1356 |
SOLIR |
ssaclt(i,j)=(w1+w2)/taux |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1359 |
SOLIR |
g2=(awg(ib,1)+(awg(ib,2)+awg(ib,3)*reff2)*reff2)*w2 |
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1360 |
SOLIR |
asyclt(i,j)=(g1+g2)/(w1+w2) |
./pkg/fizhi/fizhi_swrad.F |
1253 |
SOLIR |
_RL taux,reff1,reff2,w1,w2,g1,g2 |
./pkg/fizhi/fizhi_swrad.F |
1353 |
SOLIR |
w2=(1.-(awa(ib,1)+(awa(ib,2)+ |
./pkg/fizhi/fizhi_swrad.F |
1355 |
SOLIR |
ssaclt(i,j)=(w1+w2)/taux |
./pkg/fizhi/fizhi_swrad.F |
1358 |
SOLIR |
g2=(awg(ib,1)+(awg(ib,2)+awg(ib,3)*reff2)*reff2)*w2 |
./pkg/fizhi/fizhi_swrad.F |
1359 |
SOLIR |
asyclt(i,j)=(g1+g2)/(w1+w2) |
./pkg/fizhi/fizhi_lwrad.F |
1105 |
IRRAD |
w2=taucl(i,j,k,2)*(aww(1,ib)+(aww(2,ib)+(aww(3,ib) |
./pkg/fizhi/fizhi_lwrad.F |
1108 |
IRRAD |
ww=(w1+w2+w3)/taux |
./pkg/fizhi/fizhi_lwrad.F |
1112 |
IRRAD |
g2=w2*(awg(1,ib)+(awg(2,ib)+(awg(3,ib) |
./pkg/fizhi/fizhi_lwrad.F |
1116 |
IRRAD |
gg=(g1+g2+g3)/(w1+w2+w3) |
./pkg/fizhi/fizhi_lwrad.F |
621 |
IRRAD |
_RL w1,w2,w3,g1,g2,g3,ww,gg,ff,taux,reff1,reff2 |