| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_swrad.F |
1254 |
SOLIR |
_RL ssacl(m,n,np),asycl(m,n,np) |
|
./pkg/fizhi/fizhi_swrad.F |
1381 |
SOLIR |
asycl(i,j,k)=asyclt(i,j) |
|
./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 |
1678 |
SOLUV |
_RL taux,reff1,reff2,g1,g2,asycl(m,n,np) |
|
./pkg/fizhi/fizhi_swrad.F |
1761 |
SOLUV |
asycl(i,j,k)=asyclt(i,j) |
|
./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) |