| File |
Line number |
Procedure |
Code |
|
./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 |
1234 |
SOLIR |
_RL flx(m,ndim,np+1),flc(m,ndim,np+1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1537 |
SOLIR |
flx(i,j,k) = flx(i,j,k)+fall(i,j,k)*hk(ib,ik) |
|
./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 |
1656 |
SOLUV |
_RL flx(m,ndim,np+1),flc(m,ndim,np+1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1908 |
SOLUV |
flx(i,j,k)=flx(i,j,k)+fall(i,j,k)*hk(ib) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
661 |
SORAD |
* flx,flc,fdirir,fdifir,fdirpar,fdifpar, |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
773 |
SORAD |
_RL flx(m,ndim,np+1),flc(m,ndim,np+1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
843 |
SORAD |
flx(i,j,k)=0. |
|
./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 |
931 |
SORAD |
flx(i,j,k+1)=flx(i,j,k+1)-sdf(i,j)-df(i,j,k+1)*sclr(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1152 |
SOLIR |
* ict,icb,fcld,cc,taual,csm,rsirbm,rsirdf,flx,flc,fdirir,fdifir) |
|
./pkg/fizhi/fizhi_swrad.F |
1233 |
SOLIR |
_RL flx(m,ndim,np+1),flc(m,ndim,np+1) |
|
./pkg/fizhi/fizhi_swrad.F |
1536 |
SOLIR |
flx(i,j,k) = flx(i,j,k)+fall(i,j,k)*hk(ib,ik) |
|
./pkg/fizhi/fizhi_swrad.F |
1562 |
SOLUV |
* ict,icb,fcld,cc,taual,csm,rsuvbm,rsuvdf,flx,flc |
|
./pkg/fizhi/fizhi_swrad.F |
1655 |
SOLUV |
_RL flx(m,ndim,np+1),flc(m,ndim,np+1) |
|
./pkg/fizhi/fizhi_swrad.F |
1907 |
SOLUV |
flx(i,j,k)=flx(i,j,k)+fall(i,j,k)*hk(ib) |
|
./pkg/fizhi/fizhi_swrad.F |
660 |
SORAD |
* flx,flc,fdirir,fdifir,fdirpar,fdifpar, |
|
./pkg/fizhi/fizhi_swrad.F |
772 |
SORAD |
_RL flx(m,ndim,np+1),flc(m,ndim,np+1) |
|
./pkg/fizhi/fizhi_swrad.F |
842 |
SORAD |
flx(i,j,k)=0. |
|
./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 |
930 |
SORAD |
flx(i,j,k+1)=flx(i,j,k+1)-sdf(i,j)-df(i,j,k+1)*sclr(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
1685 |
IRRAD |
flx(i,j,k)=flx(i,j,k)+flxd(i,j,k)+flxu(i,j,k) |
|
./pkg/fizhi/fizhi_lwrad.F |
1698 |
IRRAD |
flx(i,j,k)=flx(i,j,k)+rflx(i,j,k) |
|
./pkg/fizhi/fizhi_lwrad.F |
217 |
LWRIO |
. high,trace,flx,flxclr,dfdts,sgmt4 ) |
|
./pkg/fizhi/fizhi_lwrad.F |
225 |
LWRIO |
dtrad(i,L) = ( flx(i,L)- flx(i,L+1))*adelpl(i,L) |
|
./pkg/fizhi/fizhi_lwrad.F |
226 |
LWRIO |
tmpstrip(i,L) = flx(i,L) |
|
./pkg/fizhi/fizhi_lwrad.F |
237 |
LWRIO |
flx (i,1) = -flx (i,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
239 |
LWRIO |
flx (i,lm+1) = -flx (i,lm+1) |
|
./pkg/fizhi/fizhi_lwrad.F |
245 |
LWRIO |
CALL PASTE ( flx (1,lm+1),RADLWG,ISTRIP,im*jm,1,NN ) |
|
./pkg/fizhi/fizhi_lwrad.F |
255 |
LWRIO |
CALL PASTE(flx(1,1),tempor1,ISTRIP,im*jm,1,NN) |
|
./pkg/fizhi/fizhi_lwrad.F |
350 |
IRRAD |
* high,trace,flx,flc,dfdts,st4) |
|
./pkg/fizhi/fizhi_lwrad.F |
54 |
LWRIO |
_RL flx(ISTRIP,lm+1),flxclr(ISTRIP,lm+1) |
|
./pkg/fizhi/fizhi_lwrad.F |
579 |
IRRAD |
_RL flx(m,ndim,np+1),flc(m,ndim,np+1),dfdts(m,ndim,np+1), |
|
./pkg/fizhi/fizhi_lwrad.F |
980 |
IRRAD |
flx(i,j,k) = 0.0 |