| 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 |
1395 |
SOLIR |
ssatau=ssaal(ib)*taual(i,j,k) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1401 |
SOLIR |
ssato=ssatau/tauto+1.0e-8 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1436 |
SOLIR |
ssato=(ssatau+ssacl(i,j,k)*tauclb(i,j,k))/tauto+1.0e-8 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1445 |
SOLIR |
ssato=(ssatau+ssacl(i,j,k)*tauclf(i,j,k))/tauto+1.0e-8 |
|
./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 |
1785 |
SOLUV |
ssatau=ssaal(ib)*taual(i,j,k)+taurs |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1791 |
SOLUV |
ssato=ssatau/tauto+1.0e-8 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1813 |
SOLUV |
ssato=(ssatau+tauclb(i,j,k))/tauto+1.0e-8 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1821 |
SOLUV |
ssato=(ssatau+tauclf(i,j,k))/tauto+1.0e-8 |
|
./pkg/fizhi/fizhi_swrad.F |
1252 |
SOLIR |
_RL tauwv,tausto,ssatau,asysto,tauto,ssato,asyto |
|
./pkg/fizhi/fizhi_swrad.F |
1394 |
SOLIR |
ssatau=ssaal(ib)*taual(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
1400 |
SOLIR |
ssato=ssatau/tauto+1.0e-8 |
|
./pkg/fizhi/fizhi_swrad.F |
1435 |
SOLIR |
ssato=(ssatau+ssacl(i,j,k)*tauclb(i,j,k))/tauto+1.0e-8 |
|
./pkg/fizhi/fizhi_swrad.F |
1444 |
SOLIR |
ssato=(ssatau+ssacl(i,j,k)*tauclf(i,j,k))/tauto+1.0e-8 |
|
./pkg/fizhi/fizhi_swrad.F |
1669 |
SOLUV |
_RL taurs,tauoz,tausto,ssatau,asysto,tauto,ssato,asyto |
|
./pkg/fizhi/fizhi_swrad.F |
1784 |
SOLUV |
ssatau=ssaal(ib)*taual(i,j,k)+taurs |
|
./pkg/fizhi/fizhi_swrad.F |
1790 |
SOLUV |
ssato=ssatau/tauto+1.0e-8 |
|
./pkg/fizhi/fizhi_swrad.F |
1812 |
SOLUV |
ssato=(ssatau+tauclb(i,j,k))/tauto+1.0e-8 |
|
./pkg/fizhi/fizhi_swrad.F |
1820 |
SOLUV |
ssato=(ssatau+tauclf(i,j,k))/tauto+1.0e-8 |