| File |
Line number |
Procedure |
Code |
|
./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 |
|
./pkg/fizhi/fizhi_swrad.F |
1160 |
SOLIR |
* ict,icb,fcld,cc,taual,csm,rsirbm,rsirdf,flx,flc,fdirir,fdifir) |
|
./pkg/fizhi/fizhi_swrad.F |
1241 |
SOLIR |
_RL flx(m,ndim,np+1),flc(m,ndim,np+1) |
|
./pkg/fizhi/fizhi_swrad.F |
1544 |
SOLIR |
flx(i,j,k) = flx(i,j,k)+fall(i,j,k)*hk(ib,ik) |
|
./pkg/fizhi/fizhi_swrad.F |
1570 |
SOLUV |
* ict,icb,fcld,cc,taual,csm,rsuvbm,rsuvdf,flx,flc |
|
./pkg/fizhi/fizhi_swrad.F |
1663 |
SOLUV |
_RL flx(m,ndim,np+1),flc(m,ndim,np+1) |
|
./pkg/fizhi/fizhi_swrad.F |
1915 |
SOLUV |
flx(i,j,k)=flx(i,j,k)+fall(i,j,k)*hk(ib) |
|
./pkg/fizhi/fizhi_swrad.F |
668 |
SORAD |
* flx,flc,fdirir,fdifir,fdirpar,fdifpar, |
|
./pkg/fizhi/fizhi_swrad.F |
780 |
SORAD |
_RL flx(m,ndim,np+1),flc(m,ndim,np+1) |
|
./pkg/fizhi/fizhi_swrad.F |
850 |
SORAD |
flx(i,j,k)=0. |
|
./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 |
938 |
SORAD |
flx(i,j,k+1)=flx(i,j,k+1)-sdf(i,j)-df(i,j,k+1)*sclr(i,j) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
301 |
GAD_IMPLICIT_R |
flx(i,j) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_implicit_r.F |
422 |
GAD_IMPLICIT_R |
flx(i,j) = flx(i,j) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
429 |
GAD_IMPLICIT_R |
af(i,j) = flx(i,j) - df(i,j) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
97 |
GAD_IMPLICIT_R |
_RL flx(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |