| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
2260 |
TRBFLX |
qqcolmin(i) = qq(i,nlev)*0.1 |
|
./pkg/fizhi/fizhi_turb.F |
2261 |
TRBFLX |
qqcolmax(i) = qq(i,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
2266 |
TRBFLX |
IF ( (qq(i,l).gt.qqcolmax(I)).and.(levpbl(i).eq.nlev))then |
|
./pkg/fizhi/fizhi_turb.F |
2267 |
TRBFLX |
qqcolmax(i) = qq(i,l) |
|
./pkg/fizhi/fizhi_turb.F |
2270 |
TRBFLX |
if((qq(i,l).lt.qqcolmin(i)).and.(levpbl(i).eq.nlev)) |
|
./pkg/fizhi/fizhi_turb.F |
2278 |
TRBFLX |
1 ( (ple(i,lp+2)-ple(i,lp+1))*(qq(i,lp+1)-qqcolmin(i)) |
|
./pkg/fizhi/fizhi_turb.F |
2279 |
TRBFLX |
2 / (qq(i,lp+1)-qq(i,lp)) ) ) * aitr |
|
./pkg/fizhi/fizhi_turb.F |
2282 |
TRBFLX |
1 ( (ple(i,2)-ple(i,1))*(qq(i,1)-qqcolmin(i)) |
|
./pkg/fizhi/fizhi_turb.F |
2283 |
TRBFLX |
2 / qq(i,1) ) ) * aitr |
|
./pkg/fizhi/fizhi_turb.F |
485 |
TURBIO |
call STRIPIT (tke,qq,nchptot,nchp,istrip,nlay-1,nn) |
|
./pkg/fizhi/fizhi_turb.F |
617 |
TURBIO |
call TRBFLX(nn,th,thv,sh,u,v,qq,p,pe,pk,pke,dpstr,stwatr,stz0, |
|
./pkg/fizhi/fizhi_turb.F |
626 |
TURBIO |
call PASTIT (qq,tke,istrip,nchp,nchptot,nlay,nn) |
|
./pkg/fizhi/do_fizhi.F |
129 |
DO_FIZHI |
_RL qq(sNx,sNy,Nrphys,Nsx,Nsy) |
|
./pkg/fizhi/do_fizhi.F |
158 |
DO_FIZHI |
common /saver/ qq |
|
./pkg/fizhi/do_fizhi.F |
260 |
DO_FIZHI |
. fccavesw,fccavelw,qq(1,1,1,bi,bj)) |
|
./pkg/fizhi/do_fizhi.F |
306 |
DO_FIZHI |
call FIZHI_STEP_DIAG(myid,p,uphy,vphy,thphy,sphy,qq,pkl,dpres, |