| 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 |
4 |
GWDRAG |
subroutine GWDRAG (myid,pz,pl,ple,dpres,pkz,uz,vz,tz,qz,phis_var, |
|
./pkg/fizhi/fizhi_gwdrag.F |
51 |
GWDRAG |
_RL tz(im,jm,Lm) |
|
./pkg/fizhi/fizhi_lwrad.F |
24 |
LWRIO |
_RL tz(im,jm,lm),qz(im,jm,lm),oz(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_moist.F |
1105 |
MOISTIO |
. * ( tz(i,j,L) + dtmoist(i,j,L)*tmstp/pz(i,j) ) |
|
./pkg/fizhi/fizhi_moist.F |
25 |
MOISTIO |
_RL tz(im,jm,lm),qz(im,jm,lm,ntracerin) |
|
./pkg/fizhi/fizhi_moist.F |
283 |
MOISTIO |
thgather(indx,L) = tz(i,j,L) |
|
./pkg/fizhi/fizhi_moist.F |
7 |
MOISTIO |
. pz,plz,plze,dpres,pkht,pkl,uz,vz,tz,qz,bi,bj,ntracerin,ptracer, |
|
./pkg/fizhi/fizhi_swrad.F |
117 |
SWRIO |
tdry(i,j,L) = tz(i,j,L)*pkz(i,j,L) |
|
./pkg/fizhi/fizhi_swrad.F |
24 |
SWRIO |
_RL tz(im,jm,lm),qz(im,jm,lm) |
|
./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 |
1204 |
TURBIO |
tmpdiag(i,1) = tz(i,1,nlay) * pkht(i,1,nlay) |
|
./pkg/fizhi/fizhi_turb.F |
121 |
TURBIO |
_RL tz(im*jm,1,nlay),qz(im*jm,1,nlay,ntracers) |
|
./pkg/fizhi/fizhi_turb.F |
27 |
TURBIO |
1 ,ndturb,nltop,ptop, pz, uz, vz, tz, qz, ntracers,ptracers |
|
./pkg/fizhi/fizhi_turb.F |
443 |
TURBIO |
call STRIP2TILE(tz,igrd,th,nchp,ijall,istrip,nlay,nn) |
|
./pkg/fizhi/fizhi_turb.F |
893 |
TURBIO |
call STRIP2TILE(tz(1,1,l),igrd,tmpstrip,nchp,ijall, |