| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_swrad.F |
1008 |
CLDSCALE |
_RL cc(m,n,3),tauclb(m,n,np),tauclf(m,n,np) |
|
./pkg/fizhi/fizhi_swrad.F |
1083 |
CLDSCALE |
tauclf(i,j,k) = 0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1147 |
CLDSCALE |
tauclf(i,j,k) = taux*xai |
|
./pkg/fizhi/fizhi_swrad.F |
1159 |
SOLIR |
subroutine SOLIR (m,n,ndim,np,wh,taucld,tauclb,tauclf,reff, |
|
./pkg/fizhi/fizhi_swrad.F |
1235 |
SOLIR |
_RL tauclb(m,n,np),tauclf(m,n,np),cc(m,n,3) |
|
./pkg/fizhi/fizhi_swrad.F |
1451 |
SOLIR |
tauto=tausto+tauclf(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
1452 |
SOLIR |
ssato=(ssatau+ssacl(i,j,k)*tauclf(i,j,k))/tauto+1.0e-8 |
|
./pkg/fizhi/fizhi_swrad.F |
1454 |
SOLIR |
asyto=(asysto+asycl(i,j,k)*ssacl(i,j,k)*tauclf(i,j,k))/ |
|
./pkg/fizhi/fizhi_swrad.F |
1569 |
SOLUV |
subroutine SOLUV (m,n,ndim,np,oh,dp,taucld,tauclb,tauclf,reff, |
|
./pkg/fizhi/fizhi_swrad.F |
1657 |
SOLUV |
_RL tauclb(m,n,np),tauclf(m,n,np),cc(m,n,3) |
|
./pkg/fizhi/fizhi_swrad.F |
1827 |
SOLUV |
tauto=tausto+tauclf(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
1828 |
SOLUV |
ssato=(ssatau+tauclf(i,j,k))/tauto+1.0e-8 |
|
./pkg/fizhi/fizhi_swrad.F |
1830 |
SOLUV |
asyto=(asysto+asycl(i,j,k)*tauclf(i,j,k))/(ssato*tauto) |
|
./pkg/fizhi/fizhi_swrad.F |
788 |
SORAD |
_RL cc(m,n,3),tauclb(m,n,np),tauclf(m,n,np) |
|
./pkg/fizhi/fizhi_swrad.F |
842 |
SORAD |
* cc,tauclb,tauclf) |
|
./pkg/fizhi/fizhi_swrad.F |
859 |
SORAD |
call SOLIR (m,n,ndim,np,wh,taucld,tauclb,tauclf,reff,ict,icb |
|
./pkg/fizhi/fizhi_swrad.F |
864 |
SORAD |
call SOLUV (m,n,ndim,np,oh,dp,taucld,tauclb,tauclf,reff,ict,icb |
|
./pkg/fizhi/fizhi_swrad.F |
960 |
CLDSCALE |
* cc,tauclb,tauclf) |