| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1153 |
SOLIR |
* ict,icb,fcld,cc,taual,csm,rsirbm,rsirdf,flx,flc,fdirir,fdifir) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1230 |
SOLIR |
_RL wh(m,n,np),taual(m,ndim,np),csm(m,n) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1394 |
SOLIR |
tausto=tauwv+taual(i,j,k)+1.0e-8 |
|
./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 |
1563 |
SOLUV |
* ict,icb,fcld,cc,taual,csm,rsuvbm,rsuvdf,flx,flc |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1651 |
SOLUV |
_RL oh(m,n,np),dp(m,n,np),taual(m,ndim,np) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1784 |
SOLUV |
tausto=taurs+tauoz+taual(i,j,k)+1.0e-8 |
|
./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) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
660 |
SORAD |
* taual,rsirbm,rsirdf,rsuvbm,rsuvdf,cosz, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
767 |
SORAD |
_RL fcld(m,ndim,np),taual(m,ndim,np) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
853 |
SORAD |
* ,fcld,cc,taual,csm,rsirbm,rsirdf,flx,flc,fdirir,fdifir) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
858 |
SORAD |
* ,fcld,cc,taual,csm,rsuvbm,rsuvdf,flx,flc |
|
./pkg/fizhi/fizhi_swrad.F |
1152 |
SOLIR |
* ict,icb,fcld,cc,taual,csm,rsirbm,rsirdf,flx,flc,fdirir,fdifir) |
|
./pkg/fizhi/fizhi_swrad.F |
1229 |
SOLIR |
_RL wh(m,n,np),taual(m,ndim,np),csm(m,n) |
|
./pkg/fizhi/fizhi_swrad.F |
1393 |
SOLIR |
tausto=tauwv+taual(i,j,k)+1.0e-8 |
|
./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 |
1562 |
SOLUV |
* ict,icb,fcld,cc,taual,csm,rsuvbm,rsuvdf,flx,flc |
|
./pkg/fizhi/fizhi_swrad.F |
1650 |
SOLUV |
_RL oh(m,n,np),dp(m,n,np),taual(m,ndim,np) |
|
./pkg/fizhi/fizhi_swrad.F |
1783 |
SOLUV |
tausto=taurs+tauoz+taual(i,j,k)+1.0e-8 |
|
./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_swrad.F |
659 |
SORAD |
* taual,rsirbm,rsirdf,rsuvbm,rsuvdf,cosz, |
|
./pkg/fizhi/fizhi_swrad.F |
766 |
SORAD |
_RL fcld(m,ndim,np),taual(m,ndim,np) |
|
./pkg/fizhi/fizhi_swrad.F |
852 |
SORAD |
* ,fcld,cc,taual,csm,rsirbm,rsirdf,flx,flc,fdirir,fdifir) |
|
./pkg/fizhi/fizhi_swrad.F |
857 |
SORAD |
* ,fcld,cc,taual,csm,rsuvbm,rsuvdf,flx,flc |
|
./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 |
191 |
LWRIO |
taual(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 |
59 |
LWRIO |
_RL taual(istrip,lm,10) |