| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1253 |
SOLIR |
_RL tauwv,tausto,ssatau,asysto,tauto,ssato,asyto |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1438 |
SOLIR |
asyto=(asysto+asycl(i,j,k)*ssacl(i,j,k)*tauclb(i,j,k))/ |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1441 |
SOLIR |
call DELEDD(tauto,ssato,asyto,csm(i,j), |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1447 |
SOLIR |
asyto=(asysto+asycl(i,j,k)*ssacl(i,j,k)*tauclf(i,j,k))/ |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1450 |
SOLIR |
call SAGPOL (tauto,ssato,asyto,rs2t(i,j),ts2t(i,j)) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1670 |
SOLUV |
_RL taurs,tauoz,tausto,ssatau,asysto,tauto,ssato,asyto |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1793 |
SOLUV |
asyto=asysto/(ssato*tauto) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1795 |
SOLUV |
call DELEDD(tauto,ssato,asyto,csm(i,j), |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1798 |
SOLUV |
call SAGPOL (tauto,ssato,asyto,rs1t(i,j),ts1t(i,j)) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1815 |
SOLUV |
asyto=(asysto+asycl(i,j,k)*tauclb(i,j,k))/(ssato*tauto) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1817 |
SOLUV |
call DELEDD(tauto,ssato,asyto,csm(i,j), |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1823 |
SOLUV |
asyto=(asysto+asycl(i,j,k)*tauclf(i,j,k))/(ssato*tauto) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1825 |
SOLUV |
call SAGPOL (tauto,ssato,asyto,rs2t(i,j),ts2t(i,j)) |
|
./pkg/fizhi/fizhi_swrad.F |
1252 |
SOLIR |
_RL tauwv,tausto,ssatau,asysto,tauto,ssato,asyto |
|
./pkg/fizhi/fizhi_swrad.F |
1437 |
SOLIR |
asyto=(asysto+asycl(i,j,k)*ssacl(i,j,k)*tauclb(i,j,k))/ |
|
./pkg/fizhi/fizhi_swrad.F |
1440 |
SOLIR |
call DELEDD(tauto,ssato,asyto,csm(i,j), |
|
./pkg/fizhi/fizhi_swrad.F |
1446 |
SOLIR |
asyto=(asysto+asycl(i,j,k)*ssacl(i,j,k)*tauclf(i,j,k))/ |
|
./pkg/fizhi/fizhi_swrad.F |
1449 |
SOLIR |
call SAGPOL (tauto,ssato,asyto,rs2t(i,j),ts2t(i,j)) |
|
./pkg/fizhi/fizhi_swrad.F |
1669 |
SOLUV |
_RL taurs,tauoz,tausto,ssatau,asysto,tauto,ssato,asyto |
|
./pkg/fizhi/fizhi_swrad.F |
1792 |
SOLUV |
asyto=asysto/(ssato*tauto) |
|
./pkg/fizhi/fizhi_swrad.F |
1794 |
SOLUV |
call DELEDD(tauto,ssato,asyto,csm(i,j), |
|
./pkg/fizhi/fizhi_swrad.F |
1797 |
SOLUV |
call SAGPOL (tauto,ssato,asyto,rs1t(i,j),ts1t(i,j)) |
|
./pkg/fizhi/fizhi_swrad.F |
1814 |
SOLUV |
asyto=(asysto+asycl(i,j,k)*tauclb(i,j,k))/(ssato*tauto) |
|
./pkg/fizhi/fizhi_swrad.F |
1816 |
SOLUV |
call DELEDD(tauto,ssato,asyto,csm(i,j), |
|
./pkg/fizhi/fizhi_swrad.F |
1822 |
SOLUV |
asyto=(asysto+asycl(i,j,k)*tauclf(i,j,k))/(ssato*tauto) |
|
./pkg/fizhi/fizhi_swrad.F |
1824 |
SOLUV |
call SAGPOL (tauto,ssato,asyto,rs2t(i,j),ts2t(i,j)) |