| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_utils.F |
355 |
QSAT |
if(t.lt.-70.0) then |
|
./pkg/fizhi/fizhi_utils.F |
356 |
QSAT |
qx = f0+t*(f1+t*(f2+t*(f3+t*(f4+t*(f5+t*f6))))) |
|
./pkg/fizhi/fizhi_utils.F |
358 |
QSAT |
dqx = g0+t*(g1+t*(g2+t*(g3+t*(g4+t*(g5+t*g6))))) |
|
./pkg/fizhi/fizhi_gwdrag.F |
295 |
GWDD |
SUBROUTINE GWDD ( ps,u,v,t,dudt,dvdt,xdrag,ydrag, |
|
./pkg/fizhi/fizhi_gwdrag.F |
342 |
GWDD |
_RL u(irun,Lm), v(irun,Lm), t(irun,Lm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
385 |
GWDD |
ro(i,L) = pl(i,Lm+1-L)/(rgas*t(i,Lm+1-L)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
432 |
GWDD |
vai1 = (t(i,Lm+1-L)-t(i,Lm+2-L))/dz(i,L)+gocp |
|
./pkg/fizhi/fizhi_gwdrag.F |
436 |
GWDD |
vai2 = 2.0*grav/( t(i,Lm+1-L)+t(i,Lm+2-L) ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
570 |
GWDD |
vai1 = (t(i,Lm+1-L)-t(i,Lm+2-L))/dz(i,L)+gocp |
|
./pkg/fizhi/fizhi_gwdrag.F |
578 |
GWDD |
vai2 = 2.0*grav/(t(i,Lm+1-L)+t(i,Lm+2-L)) |
|
./pkg/fizhi/fizhi_rayleigh.F |
41 |
RAYLEIGH |
_RL u(im,jm,lm),v(im,jm,lm),t(im,jm,lm),s(im,jm,lm) |
|
./pkg/fizhi/fizhi_rayleigh.F |
5 |
RAYLEIGH |
subroutine RAYLEIGH(myid,pres,pkap,pekap,zsurf,u,v,t,s,im,jm,lm, |
|
./pkg/fizhi/fizhi_rayleigh.F |
67 |
RAYLEIGH |
dz(i,j,L) = cpog * (pekap(i,j,L+1)-pekap(i,j,L)) * t(i,j,L) * |
|
./pkg/fizhi/do_fizhi.F |
104 |
DO_FIZHI |
_RL u(sNx,sNy,Nrphys),v(sNx,sNy,Nrphys),t(sNx,sNy,Nrphys) |
|
./pkg/fizhi/do_fizhi.F |
203 |
DO_FIZHI |
t(i,j,L) = thphy(i,j,L,bi,bj)/p0kappa |
|
./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), |