| File |
Line number |
Procedure |
Code |
|
./pkg/gridalt/make_phys_grid.F |
140 |
MAKE_PHYS_GRID |
nlphys = 0 |
|
./pkg/gridalt/make_phys_grid.F |
146 |
MAKE_PHYS_GRID |
nlphys = nlphys + 1 |
|
./pkg/gridalt/make_phys_grid.F |
147 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = dptry(Lnew) |
|
./pkg/gridalt/make_phys_grid.F |
155 |
MAKE_PHYS_GRID |
nlphys = nlphys + 1 |
|
./pkg/gridalt/make_phys_grid.F |
156 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = |
|
./pkg/gridalt/make_phys_grid.F |
160 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = dpphys(i,j,nlphys,bi,bj) + |
|
./pkg/gridalt/make_phys_grid.F |
167 |
MAKE_PHYS_GRID |
nlperdyn(i,j,Lbotij,bi,bj) = nlphys |
|
./pkg/gridalt/make_phys_grid.F |
174 |
MAKE_PHYS_GRID |
if(nlphys.lt.ntry)then |
|
./pkg/gridalt/make_phys_grid.F |
176 |
MAKE_PHYS_GRID |
nstart = nlphys + 1 |
|
./pkg/gridalt/make_phys_grid.F |
179 |
MAKE_PHYS_GRID |
nlphys = nlphys + 1 |
|
./pkg/gridalt/make_phys_grid.F |
180 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = dptry(Lnew) |
|
./pkg/gridalt/make_phys_grid.F |
190 |
MAKE_PHYS_GRID |
nlphys = nlphys + 1 |
|
./pkg/gridalt/make_phys_grid.F |
191 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = |
|
./pkg/gridalt/make_phys_grid.F |
196 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = dpphys(i,j,nlphys,bi,bj) + |
|
./pkg/gridalt/make_phys_grid.F |
206 |
MAKE_PHYS_GRID |
if(nlphys.ge.ntry)then |
|
./pkg/gridalt/make_phys_grid.F |
208 |
MAKE_PHYS_GRID |
nlphys = nlphys + 1 |
|
./pkg/gridalt/make_phys_grid.F |
209 |
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 |
214 |
MAKE_PHYS_GRID |
elseif(nlphys.eq.ntry)then |
|
./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-1,bi,bj)*drF(L-1) |
|
./pkg/gridalt/make_phys_grid.F |
221 |
MAKE_PHYS_GRID |
nlphys = nlphys + 1 |
|
./pkg/gridalt/make_phys_grid.F |
222 |
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 |
230 |
MAKE_PHYS_GRID |
nlphys = nlphys + 1 |
|
./pkg/gridalt/make_phys_grid.F |
231 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L,bi,bj)*drF(L) |
|
./pkg/gridalt/make_phys_grid.F |
233 |
MAKE_PHYS_GRID |
nlperdyn(i,j,L,bi,bj) = nlphys |
|
./pkg/gridalt/make_phys_grid.F |
238 |
MAKE_PHYS_GRID |
if(nlphys.lt.numlevphys)then |
|
./pkg/gridalt/make_phys_grid.F |
239 |
MAKE_PHYS_GRID |
nlevs = numlevphys-nlphys |
|
./pkg/gridalt/make_phys_grid.F |
240 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj)=dpphys(i,j,nlphys,bi,bj)-thindp*nlevs |
|
./pkg/gridalt/make_phys_grid.F |
241 |
MAKE_PHYS_GRID |
do Lnew = nlphys+1,numlevphys |
|
./pkg/gridalt/make_phys_grid.F |
72 |
MAKE_PHYS_GRID |
integer nlbotmax, nstart, nlevs, nlphys, ndone |