| File |
Line number |
Procedure |
Code |
|
./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) |
|
./pkg/fizhi/fizhi_swrad.F |
1248 |
SOLIR |
_RL xk(nk),hk(nband,nk),ssaal(nband),asyal(nband) |
|
./pkg/fizhi/fizhi_swrad.F |
1285 |
SOLIR |
data ssaal,asyal/nband*0.999,nband*0.850/ |
|
./pkg/fizhi/fizhi_swrad.F |
1402 |
SOLIR |
ssatau=ssaal(ib)*taual(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
1403 |
SOLIR |
asysto=asyal(ib)*ssaal(ib)*taual(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
1672 |
SOLUV |
_RL asyal(nband),ssaal(nband),aig(3),awg(3) |
|
./pkg/fizhi/fizhi_swrad.F |
1705 |
SOLUV |
data ssaal,asyal/nband*0.999,nband*0.850/ |
|
./pkg/fizhi/fizhi_swrad.F |
1792 |
SOLUV |
ssatau=ssaal(ib)*taual(i,j,k)+taurs |
|
./pkg/fizhi/fizhi_swrad.F |
1793 |
SOLUV |
asysto=asyal(ib)*ssaal(ib)*taual(i,j,k) |