| File |
Line number |
Procedure |
Code |
|
./pkg/gridalt/make_phys_grid.F |
115 |
MAKE_PHYS_GRID |
do Lnew = 2,ntry |
|
./pkg/gridalt/make_phys_grid.F |
116 |
MAKE_PHYS_GRID |
dptry_accum(Lnew) = dptry_accum(Lnew-1) + dptry(Lnew) |
|
./pkg/gridalt/make_phys_grid.F |
127 |
MAKE_PHYS_GRID |
do Lnew = 1,ntry |
|
./pkg/gridalt/make_phys_grid.F |
129 |
MAKE_PHYS_GRID |
. (dptry_accum(Lnew).gt.(hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij))))then |
|
./pkg/gridalt/make_phys_grid.F |
130 |
MAKE_PHYS_GRID |
nlbotmax = Lnew |
|
./pkg/gridalt/make_phys_grid.F |
141 |
MAKE_PHYS_GRID |
do Lnew = 1,nlbotmax |
|
./pkg/gridalt/make_phys_grid.F |
144 |
MAKE_PHYS_GRID |
. deltap+dptry(Lnew))then |
|
./pkg/gridalt/make_phys_grid.F |
146 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = dptry(Lnew) |
|
./pkg/gridalt/make_phys_grid.F |
147 |
MAKE_PHYS_GRID |
deltap = deltap + dptry(Lnew) |
|
./pkg/gridalt/make_phys_grid.F |
151 |
MAKE_PHYS_GRID |
if((dptry(Lnew-1)+(hfacC(i,j,Lbotij,bi,bj)* |
|
./pkg/gridalt/make_phys_grid.F |
152 |
MAKE_PHYS_GRID |
. drF(Lbotij)-deltap)) .gt. (dptry(Lnew-1)*1.5) ) then |
|
./pkg/gridalt/make_phys_grid.F |
176 |
MAKE_PHYS_GRID |
do Lnew = nstart,ntry |
|
./pkg/gridalt/make_phys_grid.F |
177 |
MAKE_PHYS_GRID |
if((hfacC(i,j,L,bi,bj)*drF(L)).ge.deltap+dptry(Lnew))then |
|
./pkg/gridalt/make_phys_grid.F |
179 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = dptry(Lnew) |
|
./pkg/gridalt/make_phys_grid.F |
180 |
MAKE_PHYS_GRID |
deltap = deltap + dptry(Lnew) |
|
./pkg/gridalt/make_phys_grid.F |
186 |
MAKE_PHYS_GRID |
if( (dptry(Lnew-1)+(hfacC(i,j,L,bi,bj)*drF(L)-deltap)) |
|
./pkg/gridalt/make_phys_grid.F |
187 |
MAKE_PHYS_GRID |
. .gt. (dptry(Lnew-1)*1.5) ) then |
|
./pkg/gridalt/make_phys_grid.F |
240 |
MAKE_PHYS_GRID |
do Lnew = nlphys+1,numlevphys |
|
./pkg/gridalt/make_phys_grid.F |
241 |
MAKE_PHYS_GRID |
dpphys(i,j,Lnew,bi,bj) = thindp |
|
./pkg/gridalt/make_phys_grid.F |
55 |
MAKE_PHYS_GRID |
integer i,j,L,Lbotij,Lnew |