| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
1547 |
IRRAD |
if( k2 .le. ict ) then |
|
./pkg/fizhi/fizhi_lwrad.F |
1549 |
IRRAD |
elseif( k2 .gt. ict .and. k2 .le. icb ) then |
|
./pkg/fizhi/fizhi_lwrad.F |
348 |
IRRAD |
* cldwater,cwc,taucl,reff,fcld,ict,icb, |
|
./pkg/fizhi/fizhi_lwrad.F |
568 |
IRRAD |
integer m,n,ndim,np,ict,icb |
|
./pkg/fizhi/fizhi_swrad.F |
1003 |
CLDSCALE |
integer m,n,ndim,np,ict,icb |
|
./pkg/fizhi/fizhi_swrad.F |
1041 |
CLDSCALE |
do k=1,ict-1 |
|
./pkg/fizhi/fizhi_swrad.F |
1049 |
CLDSCALE |
do k=ict,icb-1 |
|
./pkg/fizhi/fizhi_swrad.F |
1071 |
CLDSCALE |
if(k.lt.ict) then |
|
./pkg/fizhi/fizhi_swrad.F |
1073 |
CLDSCALE |
elseif(k.ge.ict .and. k.lt.icb) then |
|
./pkg/fizhi/fizhi_swrad.F |
1160 |
SOLIR |
* ict,icb,fcld,cc,taual,csm,rsirbm,rsirdf,flx,flc,fdirir,fdifir) |
|
./pkg/fizhi/fizhi_swrad.F |
1233 |
SOLIR |
integer m,n,ndim,np,ict,icb |
|
./pkg/fizhi/fizhi_swrad.F |
1538 |
SOLIR |
call CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts, |
|
./pkg/fizhi/fizhi_swrad.F |
1570 |
SOLUV |
* ict,icb,fcld,cc,taual,csm,rsuvbm,rsuvdf,flx,flc |
|
./pkg/fizhi/fizhi_swrad.F |
1655 |
SOLUV |
integer m,n,ndim,np,ict,icb |
|
./pkg/fizhi/fizhi_swrad.F |
1909 |
SOLUV |
call CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts, |
|
./pkg/fizhi/fizhi_swrad.F |
2160 |
CLDFLX |
subroutine CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts, |
|
./pkg/fizhi/fizhi_swrad.F |
2196 |
CLDFLX |
integer m,n,np,ict,icb |
|
./pkg/fizhi/fizhi_swrad.F |
2258 |
CLDFLX |
do k= 2, ict-1 |
|
./pkg/fizhi/fizhi_swrad.F |
2279 |
CLDFLX |
do k= ict, icb-1 |
|
./pkg/fizhi/fizhi_swrad.F |
2332 |
CLDFLX |
do k= icb-1,ict,-1 |
|
./pkg/fizhi/fizhi_swrad.F |
2438 |
CLDFLX |
do k= ict-1,1,-1 |
|
./pkg/fizhi/fizhi_swrad.F |
666 |
SORAD |
* taucld,reff,fcld,ict,icb, |
|
./pkg/fizhi/fizhi_swrad.F |
771 |
SORAD |
integer m,n,ndim,np,ict,icb |
|
./pkg/fizhi/fizhi_swrad.F |
841 |
SORAD |
call CLDSCALE(m,n,ndim,np,cosz,fcld,taucld,ict,icb, |
|
./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 |
959 |
CLDSCALE |
subroutine CLDSCALE (m,n,ndim,np,cosz,fcld,taucld,ict,icb, |