| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1001 |
CLDSCALE |
_RL cc(m,n,3),tauclb(m,n,np),tauclf(m,n,np) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1075 |
CLDSCALE |
tauclb(i,j,k) = 0.0 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1125 |
CLDSCALE |
tauclb(i,j,k) = taux*xai |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1152 |
SOLIR |
subroutine SOLIR (m,n,ndim,np,wh,taucld,tauclb,tauclf,reff, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1228 |
SOLIR |
_RL tauclb(m,n,np),tauclf(m,n,np),cc(m,n,3) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1425 |
SOLIR |
if (tauclb(i,j,k) .lt. 0.01) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1435 |
SOLIR |
tauto=tausto+tauclb(i,j,k) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1436 |
SOLIR |
ssato=(ssatau+ssacl(i,j,k)*tauclb(i,j,k))/tauto+1.0e-8 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1438 |
SOLIR |
asyto=(asysto+asycl(i,j,k)*ssacl(i,j,k)*tauclb(i,j,k))/ |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1562 |
SOLUV |
subroutine SOLUV (m,n,ndim,np,oh,dp,taucld,tauclb,tauclf,reff, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1650 |
SOLUV |
_RL tauclb(m,n,np),tauclf(m,n,np),cc(m,n,3) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1802 |
SOLUV |
if (tauclb(i,j,k) .lt. 0.01) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1812 |
SOLUV |
tauto=tausto+tauclb(i,j,k) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1813 |
SOLUV |
ssato=(ssatau+tauclb(i,j,k))/tauto+1.0e-8 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1815 |
SOLUV |
asyto=(asysto+asycl(i,j,k)*tauclb(i,j,k))/(ssato*tauto) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
781 |
SORAD |
_RL cc(m,n,3),tauclb(m,n,np),tauclf(m,n,np) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
835 |
SORAD |
* cc,tauclb,tauclf) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
852 |
SORAD |
call SOLIR (m,n,ndim,np,wh,taucld,tauclb,tauclf,reff,ict,icb |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
857 |
SORAD |
call SOLUV (m,n,ndim,np,oh,dp,taucld,tauclb,tauclf,reff,ict,icb |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
953 |
CLDSCALE |
* cc,tauclb,tauclf) |
|
./pkg/fizhi/fizhi_swrad.F |
1000 |
CLDSCALE |
_RL cc(m,n,3),tauclb(m,n,np),tauclf(m,n,np) |
|
./pkg/fizhi/fizhi_swrad.F |
1074 |
CLDSCALE |
tauclb(i,j,k) = 0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1124 |
CLDSCALE |
tauclb(i,j,k) = taux*xai |
|
./pkg/fizhi/fizhi_swrad.F |
1151 |
SOLIR |
subroutine SOLIR (m,n,ndim,np,wh,taucld,tauclb,tauclf,reff, |
|
./pkg/fizhi/fizhi_swrad.F |
1227 |
SOLIR |
_RL tauclb(m,n,np),tauclf(m,n,np),cc(m,n,3) |
|
./pkg/fizhi/fizhi_swrad.F |
1424 |
SOLIR |
if (tauclb(i,j,k) .lt. 0.01) then |
|
./pkg/fizhi/fizhi_swrad.F |
1434 |
SOLIR |
tauto=tausto+tauclb(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
1435 |
SOLIR |
ssato=(ssatau+ssacl(i,j,k)*tauclb(i,j,k))/tauto+1.0e-8 |
|
./pkg/fizhi/fizhi_swrad.F |
1437 |
SOLIR |
asyto=(asysto+asycl(i,j,k)*ssacl(i,j,k)*tauclb(i,j,k))/ |
|
./pkg/fizhi/fizhi_swrad.F |
1561 |
SOLUV |
subroutine SOLUV (m,n,ndim,np,oh,dp,taucld,tauclb,tauclf,reff, |
|
./pkg/fizhi/fizhi_swrad.F |
1649 |
SOLUV |
_RL tauclb(m,n,np),tauclf(m,n,np),cc(m,n,3) |
|
./pkg/fizhi/fizhi_swrad.F |
1801 |
SOLUV |
if (tauclb(i,j,k) .lt. 0.01) then |
|
./pkg/fizhi/fizhi_swrad.F |
1811 |
SOLUV |
tauto=tausto+tauclb(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
1812 |
SOLUV |
ssato=(ssatau+tauclb(i,j,k))/tauto+1.0e-8 |
|
./pkg/fizhi/fizhi_swrad.F |
1814 |
SOLUV |
asyto=(asysto+asycl(i,j,k)*tauclb(i,j,k))/(ssato*tauto) |
|
./pkg/fizhi/fizhi_swrad.F |
780 |
SORAD |
_RL cc(m,n,3),tauclb(m,n,np),tauclf(m,n,np) |
|
./pkg/fizhi/fizhi_swrad.F |
834 |
SORAD |
* cc,tauclb,tauclf) |
|
./pkg/fizhi/fizhi_swrad.F |
851 |
SORAD |
call SOLIR (m,n,ndim,np,wh,taucld,tauclb,tauclf,reff,ict,icb |
|
./pkg/fizhi/fizhi_swrad.F |
856 |
SORAD |
call SOLUV (m,n,ndim,np,oh,dp,taucld,tauclb,tauclf,reff,ict,icb |
|
./pkg/fizhi/fizhi_swrad.F |
952 |
CLDSCALE |
* cc,tauclb,tauclf) |