| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_gwdrag.F |
138 |
GWDRAG |
tv(i,j,L) = tz(i,j,L)*pkz(i,j,L)*(1.+.609*qz(i,j,L)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
195 |
GWDRAG |
dtdt(i,j,L) = dtdt(i,j,L) + dragt(i,j,L)*pz(i,j)/pkz(i,j,L) |
|
./pkg/fizhi/fizhi_gwdrag.F |
48 |
GWDRAG |
_RL pkz(im,jm,Lm) |
|
./pkg/fizhi/fizhi_gwdrag.F |
4 |
GWDRAG |
subroutine GWDRAG (myid,pz,pl,ple,dpres,pkz,uz,vz,tz,qz,phis_var, |
|
./pkg/fizhi/fizhi_lwrad.F |
23 |
LWRIO |
_RL dpres(im,jm,lm),pkht(im,jm,lm+1),pkz(im,jm,lm) |
|
./pkg/fizhi/fizhi_lwrad.F |
290 |
LWRIO |
tmpdiag(i,j) = tz(i,j,L)*pkz(i,j,L) |
|
./pkg/fizhi/fizhi_lwrad.F |
8 |
LWRIO |
. pz,plz,plze,dpres,pkht,pkz,tz,qz,oz, |
|
./pkg/fizhi/fizhi_swrad.F |
117 |
SWRIO |
tdry(i,j,L) = tz(i,j,L)*pkz(i,j,L) |
|
./pkg/fizhi/fizhi_swrad.F |
23 |
SWRIO |
_RL pkht(im,jm,lm+1),pkz(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
420 |
SWRIO |
CALL STRIP ( pkz , pk ,im*jm,ISTRIP,lm ,NN) |
|
./pkg/fizhi/fizhi_swrad.F |
7 |
SWRIO |
. pz,plz,plze,dpres,pkht,pkz,tz,qz,oz,co2, |
|
./pkg/fizhi/fizhi_turb.F |
1170 |
TURBIO |
call CTEI ( tz,qz,fcctmp,qliqtmp,plz,pkz,pkht,im*jm,nlay ) |
|
./pkg/fizhi/fizhi_turb.F |
1226 |
TURBIO |
tmpdiag(i,1) = dtturb(i,1,l) * pkz(i,1,l)*atimstp*secday |
|
./pkg/fizhi/fizhi_turb.F |
123 |
TURBIO |
_RL pkht(im*jm,1,nlay+1),pkz(im*jm,1,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
28 |
TURBIO |
2 ,plz,plze,dpres,pkht,pkz,ctmt,xxmt,yymt,zetamt,xlmt,khmt,tke |
|
./pkg/fizhi/fizhi_turb.F |
448 |
TURBIO |
call STRIP2TILE(pkz,igrd,pk,nchp,ijall,istrip,nlay,nn) |
|
./pkg/fizhi/fizhi_utils.F |
904 |
PKAPPA |
subroutine PKAPPA (im,jm,lm,ple,pkle,pkz) |
|
./pkg/fizhi/fizhi_utils.F |
922 |
PKAPPA |
_RL pkz(im,jm,lm) |
|
./pkg/fizhi/fizhi_utils.F |
932 |
PKAPPA |
pkz(i,j,L) = ( ple (i,j,l+1)*pkle(i,j,l+1) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
107 |
DIAGNOSTICS_INTERP_P2P |
IF ( pk.LE.pkz(i,1) .AND. pk.GE.pktop ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
108 |
DIAGNOSTICS_INTERP_P2P |
temp = ( pk-pkz(i,1) ) / ( pkz(i,2)-pkz(i,1) ) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
121 |
DIAGNOSTICS_INTERP_P2P |
IF ( pk.GE.pkz(i,lm) .AND. pk.LE.pksrf(i) ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
122 |
DIAGNOSTICS_INTERP_P2P |
temp = ( pk-pkz(i,lm) ) / ( pkz(i,lm-1)-pkz(i,lm) ) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
12 |
DIAGNOSTICS_INTERP_P2P |
I qinp,pkz,pksrf,pktop,pk, |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
140 |
DIAGNOSTICS_INTERP_P2P |
pkmin = pkz(1,L+1) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
141 |
DIAGNOSTICS_INTERP_P2P |
pkmax = pkz(1,L) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
144 |
DIAGNOSTICS_INTERP_P2P |
IF ( pkz(i,L+1).LT.pkmin ) pkmin = pkz(i,L+1) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
145 |
DIAGNOSTICS_INTERP_P2P |
IF ( pkz(i,L) .GT.pkmax ) pkmax = pkz(i,L) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
150 |
DIAGNOSTICS_INTERP_P2P |
IF ( pk.LE.pkz(i,L) .AND. pk.GE.pkz(i,L+1) ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
151 |
DIAGNOSTICS_INTERP_P2P |
temp = ( pk-pkz(i,L) ) / ( pkz(i,L+1)-pkz(i,L) ) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
170 |
DIAGNOSTICS_INTERP_P2P |
IF ( pk.LE.pkz(i,lm) .AND. pk.GE.pktop ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
171 |
DIAGNOSTICS_INTERP_P2P |
temp = ( pk-pkz(i,lm) ) / ( pkz(i,lm-1)-pkz(i,lm) ) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
184 |
DIAGNOSTICS_INTERP_P2P |
IF ( pk.GE.pkz(i,1) .AND. pk.LE.pksrf(i) ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
185 |
DIAGNOSTICS_INTERP_P2P |
temp = ( pk-pkz(i,1) ) / ( pkz(i,2)-pkz(i,1) ) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
49 |
DIAGNOSTICS_INTERP_P2P |
_RL pkz (ijm,lm) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
77 |
DIAGNOSTICS_INTERP_P2P |
pkmin = pkz(1,L) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
78 |
DIAGNOSTICS_INTERP_P2P |
pkmax = pkz(1,L+1) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
81 |
DIAGNOSTICS_INTERP_P2P |
IF ( pkz(i,L) .LT.pkmin ) pkmin = pkz(i,L) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
82 |
DIAGNOSTICS_INTERP_P2P |
IF ( pkz(i,L+1).GT.pkmax ) pkmax = pkz(i,L+1) |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
87 |
DIAGNOSTICS_INTERP_P2P |
IF ( pk.GE.pkz(i,L) .AND. pk.LE.pkz(i,L+1) ) THEN |
|
./pkg/diagnostics/diagnostics_interp_p2p.F |
88 |
DIAGNOSTICS_INTERP_P2P |
temp = ( pk-pkz(i,L) ) / ( pkz(i,L+1)-pkz(i,L) ) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
163 |
DIAGNOSTICS_INTERP_VERT |
pkz(i,j,k) = qtmp2(i,j,k,bi,bj)**kappa |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
180 |
DIAGNOSTICS_INTERP_VERT |
pkz(i,j,k) = qtmp2(i,j,kLev,bi,bj)**kappa |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
191 |
DIAGNOSTICS_INTERP_VERT |
I qinp,pkz,pksrf,pkTop,pk, |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
72 |
DIAGNOSTICS_INTERP_VERT |
_RL pkz (sNx,sNy,NrMax) |