| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1241 |
SOLIR |
_RL xk(nk),hk(nband,nk),ssaal(nband),asyal(nband) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1278 |
SOLIR |
data ssaal,asyal/nband*0.999,nband*0.850/ |
|
./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 |
1396 |
SOLIR |
asysto=asyal(ib)*ssaal(ib)*taual(i,j,k) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1665 |
SOLUV |
_RL asyal(nband),ssaal(nband),aig(3),awg(3) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1698 |
SOLUV |
data ssaal,asyal/nband*0.999,nband*0.850/ |
|
./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 |
1786 |
SOLUV |
asysto=asyal(ib)*ssaal(ib)*taual(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
1240 |
SOLIR |
_RL xk(nk),hk(nband,nk),ssaal(nband),asyal(nband) |
|
./pkg/fizhi/fizhi_swrad.F |
1277 |
SOLIR |
data ssaal,asyal/nband*0.999,nband*0.850/ |
|
./pkg/fizhi/fizhi_swrad.F |
1394 |
SOLIR |
ssatau=ssaal(ib)*taual(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
1395 |
SOLIR |
asysto=asyal(ib)*ssaal(ib)*taual(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
1664 |
SOLUV |
_RL asyal(nband),ssaal(nband),aig(3),awg(3) |
|
./pkg/fizhi/fizhi_swrad.F |
1697 |
SOLUV |
data ssaal,asyal/nband*0.999,nband*0.850/ |
|
./pkg/fizhi/fizhi_swrad.F |
1784 |
SOLUV |
ssatau=ssaal(ib)*taual(i,j,k)+taurs |
|
./pkg/fizhi/fizhi_swrad.F |
1785 |
SOLUV |
asysto=asyal(ib)*ssaal(ib)*taual(i,j,k) |
|
./pkg/fizhi/fizhi_lwrad.F |
1534 |
IRRAD |
taux=taual(i,j,k2-1,ib)*(1.-ssaal(i,j,k2-1,ib)*ff) |
|
./pkg/fizhi/fizhi_lwrad.F |
192 |
LWRIO |
ssaal(i,L,n) = 0. |
|
./pkg/fizhi/fizhi_lwrad.F |
216 |
LWRIO |
. taual,ssaal,asyal, |
|
./pkg/fizhi/fizhi_lwrad.F |
349 |
IRRAD |
* taual,ssaal,asyal, |
|
./pkg/fizhi/fizhi_lwrad.F |
574 |
IRRAD |
_RL taual(m,ndim,np,10),ssaal(m,ndim,np,10),asyal(m,ndim,np,10) |
|
./pkg/fizhi/fizhi_lwrad.F |
60 |
LWRIO |
_RL ssaal(istrip,lm,10) |