| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_utils.F |
375 |
VQSAT |
subroutine VQSAT (tt,p,q,dqdt,ldqdt,n) |
|
./pkg/fizhi/fizhi_utils.F |
379 |
VQSAT |
_RL tt(n), p(n), q(n), dqdt(n) |
|
./pkg/fizhi/fizhi_utils.F |
386 |
VQSAT |
call QSAT ( tt(i),p(i),q(i),dqdt(i),ldqdt ) |
|
./pkg/fizhi/fizhi_turb.F |
203 |
TURBIO |
_RL pk(istrip,nlay), qq(istrip,nlay), p(istrip,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
473 |
TURBIO |
call STRIP2TILE(plz,igrd,p,nchp,ijall,istrip,nlay,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/do_fizhi.F |
103 |
DO_FIZHI |
_RL p(sNx,sNy,Nsx,Nsy) |
|
./pkg/fizhi/do_fizhi.F |
191 |
DO_FIZHI |
p(i,j,bi,bj) = pephy(i,j,Nrphys+1,bi,bj)/100. |
|
./pkg/fizhi/do_fizhi.F |
233 |
DO_FIZHI |
. xlons,p(1,1,bi,bj),u,v,t,q,pl(1,1,1,bi,bj),ple(1,1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
299 |
DO_FIZHI |
. swdt(i,j,L,bi,bj)*radswt(i,j,bi,bj) )*p0kappa ) / p(i,j,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
301 |
DO_FIZHI |
. /p(i,j,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
306 |
DO_FIZHI |
call FIZHI_STEP_DIAG(myid,p,uphy,vphy,thphy,sphy,qq,pkl,dpres, |