| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
1098 |
IRRAD |
if (taux.gt.0.02 .and. fcld(i,j,k).gt.0.01) then |
|
./pkg/fizhi/fizhi_lwrad.F |
1128 |
IRRAD |
clr(i,j,k)=1.0-(fcld(i,j,k)*(1.0-exp(-1.66*taux))) |
|
./pkg/fizhi/fizhi_lwrad.F |
348 |
IRRAD |
* cldwater,cwc,taucl,reff,fcld,ict,icb, |
|
./pkg/fizhi/fizhi_lwrad.F |
573 |
IRRAD |
* fcld(m,ndim,np) |
|
./pkg/fizhi/fizhi_swrad.F |
1004 |
CLDSCALE |
_RL cosz(m,ndim),fcld(m,ndim,np),taucld(m,ndim,np,2) |
|
./pkg/fizhi/fizhi_swrad.F |
1044 |
CLDSCALE |
cc(i,j,1)=max(cc(i,j,1),fcld(i,j,k)) |
|
./pkg/fizhi/fizhi_swrad.F |
1052 |
CLDSCALE |
cc(i,j,2)=max(cc(i,j,2),fcld(i,j,k)) |
|
./pkg/fizhi/fizhi_swrad.F |
1060 |
CLDSCALE |
cc(i,j,3)=max(cc(i,j,3),fcld(i,j,k)) |
|
./pkg/fizhi/fizhi_swrad.F |
1086 |
CLDSCALE |
if (taux.gt.0.05 .and. fcld(i,j,k).gt.0.01) then |
|
./pkg/fizhi/fizhi_swrad.F |
1090 |
CLDSCALE |
fa=fcld(i,j,k)/cc(i,j,kk) |
|
./pkg/fizhi/fizhi_swrad.F |
1160 |
SOLIR |
* ict,icb,fcld,cc,taual,csm,rsirbm,rsirdf,flx,flc,fdirir,fdifir) |
|
./pkg/fizhi/fizhi_swrad.F |
1234 |
SOLIR |
_RL taucld(m,ndim,np,2),reff(m,ndim,np,2),fcld(m,ndim,np) |
|
./pkg/fizhi/fizhi_swrad.F |
1354 |
SOLIR |
if (taux.gt.0.05 .and. fcld(i,j,k).gt.0.01) then |
|
./pkg/fizhi/fizhi_swrad.F |
1570 |
SOLUV |
* ict,icb,fcld,cc,taual,csm,rsuvbm,rsuvdf,flx,flc |
|
./pkg/fizhi/fizhi_swrad.F |
1656 |
SOLUV |
_RL taucld(m,ndim,np,2),reff(m,ndim,np,2),fcld(m,ndim,np) |
|
./pkg/fizhi/fizhi_swrad.F |
1745 |
SOLUV |
if (taux.gt.0.05 .and. fcld(i,j,k).gt.0.01) then |
|
./pkg/fizhi/fizhi_swrad.F |
666 |
SORAD |
* taucld,reff,fcld,ict,icb, |
|
./pkg/fizhi/fizhi_swrad.F |
774 |
SORAD |
_RL fcld(m,ndim,np),taual(m,ndim,np) |
|
./pkg/fizhi/fizhi_swrad.F |
841 |
SORAD |
call CLDSCALE(m,n,ndim,np,cosz,fcld,taucld,ict,icb, |
|
./pkg/fizhi/fizhi_swrad.F |
860 |
SORAD |
* ,fcld,cc,taual,csm,rsirbm,rsirdf,flx,flc,fdirir,fdifir) |
|
./pkg/fizhi/fizhi_swrad.F |
865 |
SORAD |
* ,fcld,cc,taual,csm,rsuvbm,rsuvdf,flx,flc |
|
./pkg/fizhi/fizhi_swrad.F |
934 |
SORAD |
if(fcld(i,j,k).gt.0.01) then |
|
./pkg/fizhi/fizhi_swrad.F |
935 |
SORAD |
sdf(i,j)=sdf(i,j)+df(i,j,k)*sclr(i,j)*fcld(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
936 |
SORAD |
sclr(i,j)=sclr(i,j)*(1.-fcld(i,j,k)) |
|
./pkg/fizhi/fizhi_swrad.F |
959 |
CLDSCALE |
subroutine CLDSCALE (m,n,ndim,np,cosz,fcld,taucld,ict,icb, |