| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_gwdrag.F |
394 |
GWDD |
dz(i,L) = agrav*roiave*( pl(i,Lm+2-L)-pl(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 |
513 |
GWDD |
delz = dz(i,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 |
602 |
GWDD |
delz = dz(i,L) |
|
./pkg/fizhi/fizhi_rayleigh.F |
47 |
RAYLEIGH |
_RL dz(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/fizhi_rayleigh.F |
75 |
RAYLEIGH |
z(i,j,lm) = zsurf(i,j) + 0.5 * dz(i,j,lm) |
|
./pkg/fizhi/fizhi_rayleigh.F |
82 |
RAYLEIGH |
z(i,j,L) = z(i,j,L+1) + 0.5 * (dz(i,j,L)+dz(i,j,L+1)) |
|
./pkg/kl10/kl10_calc.F |
188 |
KL10_CALC |
dz = 0.5*(drF(K)*hfacW(I+di,J-1,K,bi,bj) |
|
./pkg/kl10/kl10_calc.F |
190 |
KL10_CALC |
IF (dz.GT.0.00001) THEN |
|
./pkg/kl10/kl10_calc.F |
192 |
KL10_CALC |
& -1,K,bi,bj))/dz |
|
./pkg/kl10/kl10_calc.F |
195 |
KL10_CALC |
ec=ec+epsw(di)*dz |
|
./pkg/kl10/kl10_calc.F |
196 |
KL10_CALC |
zsum = zsum+dz |
|
./pkg/kl10/kl10_calc.F |
201 |
KL10_CALC |
dz=0.5*(drF(Km1)*hfacW(I+di,J-1,Km1,bi ,bj)) |
|
./pkg/kl10/kl10_calc.F |
202 |
KL10_CALC |
ec=ec+epsw(di)*dz |
|
./pkg/kl10/kl10_calc.F |
203 |
KL10_CALC |
zsum = zsum+dz |
|
./pkg/kl10/kl10_calc.F |
207 |
KL10_CALC |
dz = 0.5*(drF(K)*hfacS(I-1,J+di,K,bi,bj) |
|
./pkg/kl10/kl10_calc.F |
209 |
KL10_CALC |
IF (dz.GT.0.00001) THEN |
|
./pkg/kl10/kl10_calc.F |
211 |
KL10_CALC |
& +di,K,bi,bj))/dz |
|
./pkg/kl10/kl10_calc.F |
214 |
KL10_CALC |
es = es+epss(di)*dz |
|
./pkg/kl10/kl10_calc.F |
215 |
KL10_CALC |
zsums = zsums+dz |
|
./pkg/kl10/kl10_calc.F |
220 |
KL10_CALC |
dz=+0.5*(drF(Km1)*hfacS(I-1,J+di,Km1 ,bi,bj)) |
|
./pkg/kl10/kl10_calc.F |
221 |
KL10_CALC |
es = es+epss(di)*dz |
|
./pkg/kl10/kl10_calc.F |
222 |
KL10_CALC |
zsums = zsums+dz |
|
./pkg/kl10/kl10_calc.F |
66 |
KL10_CALC |
_RL dzp,ec,ep,es,epss(-1:0),epsw(-1:0),dz,KTemp |
|
./pkg/opps/opps_calc.F |
566 |
NLOPPS |
real ta(imt,km),sa(imt,km),gcmdz(km),dz(km) |
|
./pkg/opps/opps_calc.F |
625 |
NLOPPS |
dz(k) = 0.01*gcmdz(k) |
|
./pkg/opps/opps_calc.F |
629 |
NLOPPS |
GridThickness(k) = dz(k) |
|
./pkg/opps/opps_calc.F |
820 |
NLOPPS |
dt = min(dt,dz(k2)/wd(k2)) |
|
./pkg/opps/opps_calc.F |
834 |
NLOPPS |
mda(k2) = (md(k2)*dz(k2)+md(k2+1)*dz(k2+1))/ |
|
./pkg/opps/opps_calc.F |
835 |
NLOPPS |
* (dz(k2)+dz(k2+1)) |
|
./pkg/opps/opps_calc.F |
837 |
NLOPPS |
wda(k2) = (wd(k2)*dz(k2)+wd(k2+1)*dz(k2+1))/ |
|
./pkg/opps/opps_calc.F |
838 |
NLOPPS |
* (dz(k2)+dz(k2+1)) |
|
./pkg/ebm/EBM.h |
72 |
NO PROCEDURE |
_RL trans_eff, Hw, Nw, Tw, At, dz, htil, tau |
|
./pkg/ebm/EBM.h |
74 |
NO PROCEDURE |
PARAMETER ( Tw = 300. _d 0 , At = 3. _d 0 , dz = 450. _d 0 ) |
|
./pkg/ebm/ebm_atmosphere.F |
195 |
EBM_ATMOSPHERE |
& -1. _d 0 /(1. _d 0 /Hw+1. _d 0 /De+1. _d 0 /dz) ) |
|
./pkg/ebm/ebm_atmosphere.F |
199 |
EBM_ATMOSPHERE |
& +1. _d 0/dz)) |