| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_swrad.F |
1260 |
SOLIR |
_RL tauwv,tausto,ssatau,asysto,tauto,ssato,asyto |
|
./pkg/fizhi/fizhi_swrad.F |
1403 |
SOLIR |
asysto=asyal(ib)*ssaal(ib)*taual(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
1445 |
SOLIR |
asyto=(asysto+asycl(i,j,k)*ssacl(i,j,k)*tauclb(i,j,k))/ |
|
./pkg/fizhi/fizhi_swrad.F |
1454 |
SOLIR |
asyto=(asysto+asycl(i,j,k)*ssacl(i,j,k)*tauclf(i,j,k))/ |
|
./pkg/fizhi/fizhi_swrad.F |
1677 |
SOLUV |
_RL taurs,tauoz,tausto,ssatau,asysto,tauto,ssato,asyto |
|
./pkg/fizhi/fizhi_swrad.F |
1793 |
SOLUV |
asysto=asyal(ib)*ssaal(ib)*taual(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
1800 |
SOLUV |
asyto=asysto/(ssato*tauto) |
|
./pkg/fizhi/fizhi_swrad.F |
1822 |
SOLUV |
asyto=(asysto+asycl(i,j,k)*tauclb(i,j,k))/(ssato*tauto) |
|
./pkg/fizhi/fizhi_swrad.F |
1830 |
SOLUV |
asyto=(asysto+asycl(i,j,k)*tauclf(i,j,k))/(ssato*tauto) |