| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1037 |
CLDSCALE |
cc(i,j,1)=max(cc(i,j,1),fcld(i,j,k)) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1045 |
CLDSCALE |
cc(i,j,2)=max(cc(i,j,2),fcld(i,j,k)) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1053 |
CLDSCALE |
cc(i,j,3)=max(cc(i,j,3),fcld(i,j,k)) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1079 |
CLDSCALE |
if (taux.gt.0.05 .and. fcld(i,j,k).gt.0.01) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1083 |
CLDSCALE |
fa=fcld(i,j,k)/cc(i,j,kk) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1153 |
SOLIR |
* ict,icb,fcld,cc,taual,csm,rsirbm,rsirdf,flx,flc,fdirir,fdifir) |
|
./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 |
1347 |
SOLIR |
if (taux.gt.0.05 .and. fcld(i,j,k).gt.0.01) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1563 |
SOLUV |
* ict,icb,fcld,cc,taual,csm,rsuvbm,rsuvdf,flx,flc |
|
./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 |
1738 |
SOLUV |
if (taux.gt.0.05 .and. fcld(i,j,k).gt.0.01) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
659 |
SORAD |
* taucld,reff,fcld,ict,icb, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
767 |
SORAD |
_RL fcld(m,ndim,np),taual(m,ndim,np) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
834 |
SORAD |
call CLDSCALE(m,n,ndim,np,cosz,fcld,taucld,ict,icb, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
853 |
SORAD |
* ,fcld,cc,taual,csm,rsirbm,rsirdf,flx,flc,fdirir,fdifir) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
858 |
SORAD |
* ,fcld,cc,taual,csm,rsuvbm,rsuvdf,flx,flc |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
927 |
SORAD |
if(fcld(i,j,k).gt.0.01) then |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
928 |
SORAD |
sdf(i,j)=sdf(i,j)+df(i,j,k)*sclr(i,j)*fcld(i,j,k) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
929 |
SORAD |
sclr(i,j)=sclr(i,j)*(1.-fcld(i,j,k)) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
952 |
CLDSCALE |
subroutine CLDSCALE (m,n,ndim,np,cosz,fcld,taucld,ict,icb, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
997 |
CLDSCALE |
_RL cosz(m,ndim),fcld(m,ndim,np),taucld(m,ndim,np,2) |
|
./pkg/fizhi/fizhi_swrad.F |
1036 |
CLDSCALE |
cc(i,j,1)=max(cc(i,j,1),fcld(i,j,k)) |
|
./pkg/fizhi/fizhi_swrad.F |
1044 |
CLDSCALE |
cc(i,j,2)=max(cc(i,j,2),fcld(i,j,k)) |
|
./pkg/fizhi/fizhi_swrad.F |
1052 |
CLDSCALE |
cc(i,j,3)=max(cc(i,j,3),fcld(i,j,k)) |
|
./pkg/fizhi/fizhi_swrad.F |
1078 |
CLDSCALE |
if (taux.gt.0.05 .and. fcld(i,j,k).gt.0.01) then |
|
./pkg/fizhi/fizhi_swrad.F |
1082 |
CLDSCALE |
fa=fcld(i,j,k)/cc(i,j,kk) |
|
./pkg/fizhi/fizhi_swrad.F |
1152 |
SOLIR |
* ict,icb,fcld,cc,taual,csm,rsirbm,rsirdf,flx,flc,fdirir,fdifir) |
|
./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 |
1346 |
SOLIR |
if (taux.gt.0.05 .and. fcld(i,j,k).gt.0.01) then |
|
./pkg/fizhi/fizhi_swrad.F |
1562 |
SOLUV |
* ict,icb,fcld,cc,taual,csm,rsuvbm,rsuvdf,flx,flc |
|
./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 |
1737 |
SOLUV |
if (taux.gt.0.05 .and. fcld(i,j,k).gt.0.01) then |
|
./pkg/fizhi/fizhi_swrad.F |
658 |
SORAD |
* taucld,reff,fcld,ict,icb, |
|
./pkg/fizhi/fizhi_swrad.F |
766 |
SORAD |
_RL fcld(m,ndim,np),taual(m,ndim,np) |
|
./pkg/fizhi/fizhi_swrad.F |
833 |
SORAD |
call CLDSCALE(m,n,ndim,np,cosz,fcld,taucld,ict,icb, |
|
./pkg/fizhi/fizhi_swrad.F |
852 |
SORAD |
* ,fcld,cc,taual,csm,rsirbm,rsirdf,flx,flc,fdirir,fdifir) |
|
./pkg/fizhi/fizhi_swrad.F |
857 |
SORAD |
* ,fcld,cc,taual,csm,rsuvbm,rsuvdf,flx,flc |
|
./pkg/fizhi/fizhi_swrad.F |
926 |
SORAD |
if(fcld(i,j,k).gt.0.01) then |
|
./pkg/fizhi/fizhi_swrad.F |
927 |
SORAD |
sdf(i,j)=sdf(i,j)+df(i,j,k)*sclr(i,j)*fcld(i,j,k) |
|
./pkg/fizhi/fizhi_swrad.F |
928 |
SORAD |
sclr(i,j)=sclr(i,j)*(1.-fcld(i,j,k)) |
|
./pkg/fizhi/fizhi_swrad.F |
951 |
CLDSCALE |
subroutine CLDSCALE (m,n,ndim,np,cosz,fcld,taucld,ict,icb, |
|
./pkg/fizhi/fizhi_swrad.F |
996 |
CLDSCALE |
_RL cosz(m,ndim),fcld(m,ndim,np),taucld(m,ndim,np,2) |
|
./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) |