| File |
Line number |
Procedure |
Code |
|
./pkg/gridalt/make_phys_grid.F |
139 |
MAKE_PHYS_GRID |
nlphys = 0 |
|
./pkg/gridalt/make_phys_grid.F |
145 |
MAKE_PHYS_GRID |
nlphys = nlphys + 1 |
|
./pkg/gridalt/make_phys_grid.F |
146 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = dptry(Lnew) |
|
./pkg/gridalt/make_phys_grid.F |
154 |
MAKE_PHYS_GRID |
nlphys = nlphys + 1 |
|
./pkg/gridalt/make_phys_grid.F |
155 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = |
|
./pkg/gridalt/make_phys_grid.F |
159 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = dpphys(i,j,nlphys,bi,bj) + |
|
./pkg/gridalt/make_phys_grid.F |
166 |
MAKE_PHYS_GRID |
nlperdyn(i,j,Lbotij,bi,bj) = nlphys |
|
./pkg/gridalt/make_phys_grid.F |
173 |
MAKE_PHYS_GRID |
if(nlphys.lt.ntry)then |
|
./pkg/gridalt/make_phys_grid.F |
175 |
MAKE_PHYS_GRID |
nstart = nlphys + 1 |
|
./pkg/gridalt/make_phys_grid.F |
178 |
MAKE_PHYS_GRID |
nlphys = nlphys + 1 |
|
./pkg/gridalt/make_phys_grid.F |
179 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = dptry(Lnew) |
|
./pkg/gridalt/make_phys_grid.F |
189 |
MAKE_PHYS_GRID |
nlphys = nlphys + 1 |
|
./pkg/gridalt/make_phys_grid.F |
190 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = |
|
./pkg/gridalt/make_phys_grid.F |
195 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = dpphys(i,j,nlphys,bi,bj) + |
|
./pkg/gridalt/make_phys_grid.F |
205 |
MAKE_PHYS_GRID |
if(nlphys.ge.ntry)then |
|
./pkg/gridalt/make_phys_grid.F |
207 |
MAKE_PHYS_GRID |
nlphys = nlphys + 1 |
|
./pkg/gridalt/make_phys_grid.F |
208 |
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 |
213 |
MAKE_PHYS_GRID |
elseif(nlphys.eq.ntry)then |
|
./pkg/gridalt/make_phys_grid.F |
217 |
MAKE_PHYS_GRID |
nlphys = nlphys + 1 |
|
./pkg/gridalt/make_phys_grid.F |
218 |
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 |
220 |
MAKE_PHYS_GRID |
nlphys = nlphys + 1 |
|
./pkg/gridalt/make_phys_grid.F |
221 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L,bi,bj)*drF(L) |
|
./pkg/gridalt/make_phys_grid.F |
223 |
MAKE_PHYS_GRID |
nlphys = nlphys + 1 |
|
./pkg/gridalt/make_phys_grid.F |
224 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L,bi,bj)*drF(L) |
|
./pkg/gridalt/make_phys_grid.F |
229 |
MAKE_PHYS_GRID |
nlphys = nlphys + 1 |
|
./pkg/gridalt/make_phys_grid.F |
230 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L,bi,bj)*drF(L) |
|
./pkg/gridalt/make_phys_grid.F |
232 |
MAKE_PHYS_GRID |
nlperdyn(i,j,L,bi,bj) = nlphys |
|
./pkg/gridalt/make_phys_grid.F |
237 |
MAKE_PHYS_GRID |
if(nlphys.lt.numlevphys)then |
|
./pkg/gridalt/make_phys_grid.F |
238 |
MAKE_PHYS_GRID |
nlevs = numlevphys-nlphys |
|
./pkg/gridalt/make_phys_grid.F |
239 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj)=dpphys(i,j,nlphys,bi,bj)-thindp*nlevs |
|
./pkg/gridalt/make_phys_grid.F |
240 |
MAKE_PHYS_GRID |
do Lnew = nlphys+1,numlevphys |
|
./pkg/gridalt/make_phys_grid.F |
71 |
MAKE_PHYS_GRID |
integer nlbotmax, nstart, nlevs, nlphys, ndone |