File |
Line number |
Procedure |
Code |
./pkg/fizhi/do_fizhi.F |
130 |
DO_FIZHI |
_RL qq(sNx,sNy,Nrphys,nSx,nSy) |
./pkg/fizhi/do_fizhi.F |
159 |
DO_FIZHI |
COMMON /saver/ qq |
./pkg/fizhi/do_fizhi.F |
266 |
DO_FIZHI |
& fccavesw,fccavelw,qq(1,1,1,bi,bj)) |
./pkg/fizhi/do_fizhi.F |
312 |
DO_FIZHI |
call FIZHI_STEP_DIAG(myid,p,u,v,t,q,qq,pkl,dpres, |
./pkg/fizhi/fizhi_driver.F |
20 |
FIZHI_DRIVER |
& qliqavelw,fccavesw,fccavelw,qq) |
./pkg/fizhi/fizhi_driver.F |
212 |
FIZHI_DRIVER |
& imstturblw,imstturbsw,qliqavelw,qliqavesw,fccavelw,fccavesw,qq, |
./pkg/fizhi/fizhi_driver.F |
247 |
FIZHI_DRIVER |
& p,pl,ple,dpres,pkht,pkl,u,v,t,q,bi,bj,ntracer,ptracer,qq, |
./pkg/fizhi/fizhi_driver.F |
99 |
FIZHI_DRIVER |
_RL qq(im,jm,lm) |
./pkg/fizhi/fizhi_step_diag.F |
19 |
FIZHI_STEP_DIAG |
_RL qq(im2,jm2,Nrphys,Nbi,Nbj),pk(im2,jm2,Nrphys,Nbi,Nbj) |
./pkg/fizhi/fizhi_step_diag.F |
308 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = qq(i,j,L,bi,bj) |
./pkg/fizhi/fizhi_step_diag.F |
5 |
FIZHI_STEP_DIAG |
SUBROUTINE FIZHI_STEP_DIAG(myid,p,uphy,vphy,thphy,sphy,qq,pk,dp, |
./pkg/fizhi/fizhi_turb.F |
219 |
TURBIO |
_RL pk(istrip,nlay), qq(istrip,nlay), p(istrip,nlay) |
./pkg/fizhi/fizhi_turb.F |
2228 |
TRBFLX |
qqcolmin(i) = qq(i,nlev)*0.1 |
./pkg/fizhi/fizhi_turb.F |
2229 |
TRBFLX |
qqcolmax(i) = qq(i,nlev) |
./pkg/fizhi/fizhi_turb.F |
2234 |
TRBFLX |
IF ( (qq(i,l).gt.qqcolmax(I)).and.(levpbl(i).eq.nlev))then |
./pkg/fizhi/fizhi_turb.F |
2235 |
TRBFLX |
qqcolmax(i) = qq(i,l) |
./pkg/fizhi/fizhi_turb.F |
2238 |
TRBFLX |
if((qq(i,l).lt.qqcolmin(i)).and.(levpbl(i).eq.nlev)) |
./pkg/fizhi/fizhi_turb.F |
2246 |
TRBFLX |
1 ( (ple(i,lp+2)-ple(i,lp+1))*(qq(i,lp+1)-qqcolmin(i)) |
./pkg/fizhi/fizhi_turb.F |
2247 |
TRBFLX |
2 / (qq(i,lp+1)-qq(i,lp)) ) ) * aitr |
./pkg/fizhi/fizhi_turb.F |
2250 |
TRBFLX |
1 ( (ple(i,2)-ple(i,1))*(qq(i,1)-qqcolmin(i)) |
./pkg/fizhi/fizhi_turb.F |
2251 |
TRBFLX |
2 / qq(i,1) ) ) * aitr |
./pkg/fizhi/fizhi_turb.F |
458 |
TURBIO |
call STRIPIT (tke,qq,nchptot,nchp,istrip,nlay-1,nn) |
./pkg/fizhi/fizhi_turb.F |
594 |
TURBIO |
call TRBFLX(nn,th,thv,sh,u,v,qq,p,pe,pk,pke,dpstr,stwatr,stz0, |
./pkg/fizhi/fizhi_turb.F |
603 |
TURBIO |
call PASTIT (qq,tke,istrip,nchp,nchptot,nlay,nn) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
130 |
DO_FIZHI |
_RL qq(sNx,sNy,Nrphys,nSx,nSy) |