| File |
Line number |
Procedure |
Code |
|
./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 |
1227 |
SOLIR |
_RL taucld(m,ndim,np,2),reff(m,ndim,np,2),fcld(m,ndim,np) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1349 |
SOLIR |
reff1=min(reff(i,j,k,1),130. _d 0) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1350 |
SOLIR |
reff2=min(reff(i,j,k,2),20.0 _d 0) |
|
./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 |
1649 |
SOLUV |
_RL taucld(m,ndim,np,2),reff(m,ndim,np,2),fcld(m,ndim,np) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1740 |
SOLUV |
reff1=min(reff(i,j,k,1),130. _d 0) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1741 |
SOLUV |
reff2=min(reff(i,j,k,2),20.0 _d 0) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
449 |
SWRIO |
reff(i,L,1) = reffi |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
450 |
SWRIO |
reff(i,L,2) = reffw |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
455 |
SWRIO |
. tauc,reff,clro,mid_level,low_level,taua, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
659 |
SORAD |
* taucld,reff,fcld,ict,icb, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
766 |
SORAD |
_RL taucld(m,ndim,np,2),reff(m,ndim,np,2) |
|
./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 |
88 |
SWRIO |
_RL reff (istrip,lm,2) |
|
./pkg/fizhi/fizhi_swrad.F |
1151 |
SOLIR |
subroutine SOLIR (m,n,ndim,np,wh,taucld,tauclb,tauclf,reff, |
|
./pkg/fizhi/fizhi_swrad.F |
1226 |
SOLIR |
_RL taucld(m,ndim,np,2),reff(m,ndim,np,2),fcld(m,ndim,np) |
|
./pkg/fizhi/fizhi_swrad.F |
1348 |
SOLIR |
reff1=min(reff(i,j,k,1),130. _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
1349 |
SOLIR |
reff2=min(reff(i,j,k,2),20.0 _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
1561 |
SOLUV |
subroutine SOLUV (m,n,ndim,np,oh,dp,taucld,tauclb,tauclf,reff, |
|
./pkg/fizhi/fizhi_swrad.F |
1648 |
SOLUV |
_RL taucld(m,ndim,np,2),reff(m,ndim,np,2),fcld(m,ndim,np) |
|
./pkg/fizhi/fizhi_swrad.F |
1739 |
SOLUV |
reff1=min(reff(i,j,k,1),130. _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
1740 |
SOLUV |
reff2=min(reff(i,j,k,2),20.0 _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
448 |
SWRIO |
reff(i,L,1) = reffi |
|
./pkg/fizhi/fizhi_swrad.F |
449 |
SWRIO |
reff(i,L,2) = reffw |
|
./pkg/fizhi/fizhi_swrad.F |
454 |
SWRIO |
. tauc,reff,clro,mid_level,low_level,taua, |
|
./pkg/fizhi/fizhi_swrad.F |
658 |
SORAD |
* taucld,reff,fcld,ict,icb, |
|
./pkg/fizhi/fizhi_swrad.F |
765 |
SORAD |
_RL taucld(m,ndim,np,2),reff(m,ndim,np,2) |
|
./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 |
88 |
SWRIO |
_RL reff (istrip,lm,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
1078 |
IRRAD |
* reff(i,j,k,1)**aib(3,ib)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1080 |
IRRAD |
* +awb(4,ib)*reff(i,j,k,2))*reff(i,j,k,2))*reff(i,j,k,2)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1100 |
IRRAD |
reff1=min(reff(i,j,k,1),130. _d 0) |
|
./pkg/fizhi/fizhi_lwrad.F |
1101 |
IRRAD |
reff2=min(reff(i,j,k,2),20.0 _d 0) |
|
./pkg/fizhi/fizhi_lwrad.F |
204 |
LWRIO |
reff(i,L,n) = 0. |
|
./pkg/fizhi/fizhi_lwrad.F |
215 |
LWRIO |
. cldwater,cwc,tauc,reff,clro,mid_level,low_level, |
|
./pkg/fizhi/fizhi_lwrad.F |
348 |
IRRAD |
* cldwater,cwc,taucl,reff,fcld,ict,icb, |
|
./pkg/fizhi/fizhi_lwrad.F |
572 |
IRRAD |
_RL cwc(m,ndim,np,3),taucl(m,ndim,np,3),reff(m,ndim,np,3), |
|
./pkg/fizhi/fizhi_lwrad.F |
63 |
LWRIO |
_RL reff(istrip,lm,3) |