| 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 |
1407 |
SOLIR |
tauto=tausto |
|
./pkg/fizhi/fizhi_swrad.F |
1408 |
SOLIR |
ssato=ssatau/tauto+1.0e-8 |
|
./pkg/fizhi/fizhi_swrad.F |
1422 |
SOLIR |
td1t(i,j)=expmn(-tauto*csm(i,j)) |
|
./pkg/fizhi/fizhi_swrad.F |
1423 |
SOLIR |
ts1t(i,j)=expmn(-1.66*tauto) |
|
./pkg/fizhi/fizhi_swrad.F |
1442 |
SOLIR |
tauto=tausto+tauclb(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
1443 |
SOLIR |
ssato=(ssatau+ssacl(i,j,k)*tauclb(i,j,k))/tauto+1.0e-8 |
|
./pkg/fizhi/fizhi_swrad.F |
1446 |
SOLIR |
* (ssato*tauto) |
|
./pkg/fizhi/fizhi_swrad.F |
1448 |
SOLIR |
call DELEDD(tauto,ssato,asyto,csm(i,j), |
|
./pkg/fizhi/fizhi_swrad.F |
1451 |
SOLIR |
tauto=tausto+tauclf(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
1452 |
SOLIR |
ssato=(ssatau+ssacl(i,j,k)*tauclf(i,j,k))/tauto+1.0e-8 |
|
./pkg/fizhi/fizhi_swrad.F |
1455 |
SOLIR |
* (ssato*tauto) |
|
./pkg/fizhi/fizhi_swrad.F |
1457 |
SOLIR |
call SAGPOL (tauto,ssato,asyto,rs2t(i,j),ts2t(i,j)) |
|
./pkg/fizhi/fizhi_swrad.F |
1677 |
SOLUV |
_RL taurs,tauoz,tausto,ssatau,asysto,tauto,ssato,asyto |
|
./pkg/fizhi/fizhi_swrad.F |
1797 |
SOLUV |
tauto=tausto |
|
./pkg/fizhi/fizhi_swrad.F |
1798 |
SOLUV |
ssato=ssatau/tauto+1.0e-8 |
|
./pkg/fizhi/fizhi_swrad.F |
1800 |
SOLUV |
asyto=asysto/(ssato*tauto) |
|
./pkg/fizhi/fizhi_swrad.F |
1802 |
SOLUV |
call DELEDD(tauto,ssato,asyto,csm(i,j), |
|
./pkg/fizhi/fizhi_swrad.F |
1805 |
SOLUV |
call SAGPOL (tauto,ssato,asyto,rs1t(i,j),ts1t(i,j)) |
|
./pkg/fizhi/fizhi_swrad.F |
1819 |
SOLUV |
tauto=tausto+tauclb(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
1820 |
SOLUV |
ssato=(ssatau+tauclb(i,j,k))/tauto+1.0e-8 |
|
./pkg/fizhi/fizhi_swrad.F |
1822 |
SOLUV |
asyto=(asysto+asycl(i,j,k)*tauclb(i,j,k))/(ssato*tauto) |
|
./pkg/fizhi/fizhi_swrad.F |
1824 |
SOLUV |
call DELEDD(tauto,ssato,asyto,csm(i,j), |
|
./pkg/fizhi/fizhi_swrad.F |
1827 |
SOLUV |
tauto=tausto+tauclf(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
1828 |
SOLUV |
ssato=(ssatau+tauclf(i,j,k))/tauto+1.0e-8 |
|
./pkg/fizhi/fizhi_swrad.F |
1830 |
SOLUV |
asyto=(asysto+asycl(i,j,k)*tauclf(i,j,k))/(ssato*tauto) |
|
./pkg/fizhi/fizhi_swrad.F |
1832 |
SOLUV |
call SAGPOL (tauto,ssato,asyto,rs2t(i,j),ts2t(i,j)) |