| 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/opps/opps_calc.F |
1005 |
NLOPPS |
mda(k2) = (md(k2)*dz(k2)+md(k2+1)*dz(k2+1))/ |
|
./pkg/opps/opps_calc.F |
1006 |
NLOPPS |
* (dz(k2)+dz(k2+1)) |
|
./pkg/opps/opps_calc.F |
1008 |
NLOPPS |
wda(k2) = (wd(k2)*dz(k2)+wd(k2+1)*dz(k2+1))/ |
|
./pkg/opps/opps_calc.F |
1009 |
NLOPPS |
* (dz(k2)+dz(k2+1)) |
|
./pkg/opps/opps_calc.F |
720 |
NLOPPS |
real ta(imt,km),sa(imt,km),gcmdz(km),dz(km) |
|
./pkg/opps/opps_calc.F |
786 |
NLOPPS |
dz(k) = 0.01*gcmdz(k) |
|
./pkg/opps/opps_calc.F |
790 |
NLOPPS |
GridThickness(k) = dz(k) |
|
./pkg/opps/opps_calc.F |
991 |
NLOPPS |
dt = min(dt,dz(k2)/wd(k2)) |
|
./pkg/ebm/EBM.h |
73 |
NO PROCEDURE |
_RL trans_eff, Hw, Nw, Tw, At, dz, htil, tau |
|
./pkg/ebm/EBM.h |
75 |
NO PROCEDURE |
PARAMETER ( Tw = 300. _d 0 , At = 3. _d 0 , dz = 450. _d 0 ) |
|
./pkg/ebm/ebm_atmosphere.F |
173 |
EBM_ATMOSPHERE |
& -1. _d 0 /(1. _d 0 /Hw+1. _d 0 /De+1. _d 0 /dz) ) |
|
./pkg/ebm/ebm_atmosphere.F |
177 |
EBM_ATMOSPHERE |
& +1. _d 0/dz)) |