| File |
Line number |
Procedure |
Code |
|
./pkg/gridalt/make_phys_grid.F |
134 |
MAKE_PHYS_GRID |
nlphys = 0 |
|
./pkg/gridalt/make_phys_grid.F |
140 |
MAKE_PHYS_GRID |
nlphys = nlphys + 1 |
|
./pkg/gridalt/make_phys_grid.F |
141 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = dptry(Lnew) |
|
./pkg/gridalt/make_phys_grid.F |
149 |
MAKE_PHYS_GRID |
nlphys = nlphys + 1 |
|
./pkg/gridalt/make_phys_grid.F |
150 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = |
|
./pkg/gridalt/make_phys_grid.F |
154 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = dpphys(i,j,nlphys,bi,bj) + |
|
./pkg/gridalt/make_phys_grid.F |
161 |
MAKE_PHYS_GRID |
nlperdyn(i,j,Lbotij,bi,bj) = nlphys |
|
./pkg/gridalt/make_phys_grid.F |
168 |
MAKE_PHYS_GRID |
if(nlphys.lt.ntry)then |
|
./pkg/gridalt/make_phys_grid.F |
170 |
MAKE_PHYS_GRID |
nstart = nlphys + 1 |
|
./pkg/gridalt/make_phys_grid.F |
173 |
MAKE_PHYS_GRID |
nlphys = nlphys + 1 |
|
./pkg/gridalt/make_phys_grid.F |
174 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = dptry(Lnew) |
|
./pkg/gridalt/make_phys_grid.F |
184 |
MAKE_PHYS_GRID |
nlphys = nlphys + 1 |
|
./pkg/gridalt/make_phys_grid.F |
185 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = |
|
./pkg/gridalt/make_phys_grid.F |
190 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = dpphys(i,j,nlphys,bi,bj) + |
|
./pkg/gridalt/make_phys_grid.F |
200 |
MAKE_PHYS_GRID |
if(nlphys.ge.ntry)then |
|
./pkg/gridalt/make_phys_grid.F |
202 |
MAKE_PHYS_GRID |
nlphys = nlphys + 1 |
|
./pkg/gridalt/make_phys_grid.F |
203 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L-1,bi,bj)*drF(L-1) |
|
./pkg/gridalt/make_phys_grid.F |
208 |
MAKE_PHYS_GRID |
elseif(nlphys.eq.ntry)then |
|
./pkg/gridalt/make_phys_grid.F |
212 |
MAKE_PHYS_GRID |
nlphys = nlphys + 1 |
|
./pkg/gridalt/make_phys_grid.F |
213 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L-1,bi,bj)*drF(L-1) |
|
./pkg/gridalt/make_phys_grid.F |
215 |
MAKE_PHYS_GRID |
nlphys = nlphys + 1 |
|
./pkg/gridalt/make_phys_grid.F |
216 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L,bi,bj)*drF(L) |
|
./pkg/gridalt/make_phys_grid.F |
218 |
MAKE_PHYS_GRID |
nlphys = nlphys + 1 |
|
./pkg/gridalt/make_phys_grid.F |
219 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L,bi,bj)*drF(L) |
|
./pkg/gridalt/make_phys_grid.F |
224 |
MAKE_PHYS_GRID |
nlphys = nlphys + 1 |
|
./pkg/gridalt/make_phys_grid.F |
225 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L,bi,bj)*drF(L) |
|
./pkg/gridalt/make_phys_grid.F |
227 |
MAKE_PHYS_GRID |
nlperdyn(i,j,L,bi,bj) = nlphys |
|
./pkg/gridalt/make_phys_grid.F |
232 |
MAKE_PHYS_GRID |
if(nlphys.lt.numlevphys)then |
|
./pkg/gridalt/make_phys_grid.F |
233 |
MAKE_PHYS_GRID |
nlevs = numlevphys-nlphys |
|
./pkg/gridalt/make_phys_grid.F |
234 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = dpphys(i,j,nlphys,bi,bj)-100. * nlevs |
|
./pkg/gridalt/make_phys_grid.F |
235 |
MAKE_PHYS_GRID |
do Lnew = nlphys+1,numlevphys |
|
./pkg/gridalt/make_phys_grid.F |
69 |
MAKE_PHYS_GRID |
integer nlbotmax, nstart, nlevs, nlphys, ndone |