| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_fillnegs.F |
28 |
QCHECK |
_RL qz(idim1:idim2,jdim1:jdim2,ldim,Nsx,Nsy) |
|
./pkg/fizhi/fizhi_fillnegs.F |
41 |
QCHECK |
if( qz(i,j,LM1,bi,bj).lt.0.0 _d 0) then |
|
./pkg/fizhi/fizhi_fillnegs.F |
42 |
QCHECK |
qz(i,j,L,bi,bj ) = qz(i,j,L,bi,bj) + qz(i,j,LM1,bi,bj)*ddsig |
|
./pkg/fizhi/fizhi_fillnegs.F |
43 |
QCHECK |
qz(i,j,LM1,bi,bj) = 0.0 _d 0 |
|
./pkg/fizhi/fizhi_fillnegs.F |
51 |
QCHECK |
if(qz(i,j,Ldim,bi,bj).lt.0.0 _d 0)qz(i,j,Ldim,bi,bj) = 0.0 _d 0 |
|
./pkg/fizhi/fizhi_fillnegs.F |
6 |
QCHECK |
. jm1,jm2,bi,bj,dp,qz) |
|
./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 |
52 |
GWDRAG |
_RL qz(im,jm,Lm) |
|
./pkg/fizhi/fizhi_init_chem.F |
105 |
READ_QZ |
qz(lat,lev,time0) = qz(lat,lev,time0)*voltomas |
|
./pkg/fizhi/fizhi_init_chem.F |
48 |
READ_QZ |
subroutine READ_QZ (ku,qz,lats,levs,nlat,nlev,ntime) |
|
./pkg/fizhi/fizhi_init_chem.F |
67 |
READ_QZ |
_RL qz(nlat,nlev,ntime) |
|
./pkg/fizhi/fizhi_init_chem.F |
96 |
READ_QZ |
read(ku,1000) (qz(lat,lev,time0),lev=1,nlev) |
|
./pkg/fizhi/fizhi_lwrad.F |
134 |
LWRIO |
CALL STRIP (qz,SHZL ,im*jm,ISTRIP,lm ,NN) |
|
./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 |
299 |
LWRIO |
tmpdiag(i,j) = qz(i,j,L)*1000. |
|
./pkg/fizhi/fizhi_lwrad.F |
8 |
LWRIO |
. pz,plz,plze,dpres,pkht,pkz,tz,qz,oz, |
|
./pkg/fizhi/fizhi_moist.F |
25 |
MOISTIO |
_RL tz(im,jm,lm),qz(im,jm,lm,ntracerin) |
|
./pkg/fizhi/fizhi_moist.F |
284 |
MOISTIO |
shgather(indx,L) = qz(i,j,L,1) |
|
./pkg/fizhi/fizhi_moist.F |
300 |
MOISTIO |
ugather(indx,L,nt) = qz(i,j,L,nt+ptracer) |
|
./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 |
24 |
SWRIO |
_RL tz(im,jm,lm),qz(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
423 |
SWRIO |
CALL STRIP ( qz , qzl ,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 |
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 |
444 |
TURBIO |
call STRIP2TILE(qz(1,1,1,1),igrd,sh,nchp,ijall,istrip,nlay,nn) |
|
./pkg/fizhi/fizhi_turb.F |
901 |
TURBIO |
call STRIP2TILE(qz(1,1,l,1),igrd,tmpstrip,nchp,ijall, |
|
./pkg/fizhi/update_chemistry_exports.F |
111 |
INTERP_CHEMISTRY |
. qz,plz,xlat,im,jm,lm,nSx,nSy,bi,bj,ozrad,qzrad) |
|
./pkg/fizhi/update_chemistry_exports.F |
122 |
INTERP_CHEMISTRY |
_RL qz(im,jm,lm),plz(im,jm,lm) |
|
./pkg/fizhi/update_chemistry_exports.F |
132 |
INTERP_CHEMISTRY |
. bi,bj, xlat,lm,plz,qz,qzrad(1,1,1,bi,bj)) |