| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
1532 |
IRRAD |
ff=0.5+(0.3739+(0.0076+0.1185*asyal(i,j,k2-1,ib)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1533 |
IRRAD |
* *asyal(i,j,k2-1,ib))*asyal(i,j,k2-1,ib) |
|
./pkg/fizhi/fizhi_lwrad.F |
193 |
LWRIO |
asyal(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 |
61 |
LWRIO |
_RL asyal(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 |
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 |
1793 |
SOLUV |
asysto=asyal(ib)*ssaal(ib)*taual(i,j,k) |