| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/getpwhere.F |
56 |
GETPWHERE |
_RL dptry(ntry40), dptry10(ntry10), dptry40(ntry40) |
|
./pkg/fizhi/getpwhere.F |
74 |
GETPWHERE |
dptry(L) = dptry10(L) |
|
./pkg/fizhi/getpwhere.F |
79 |
GETPWHERE |
dptry(L) = dptry40(L) |
|
./pkg/fizhi/getpwhere.F |
93 |
GETPWHERE |
dptry_pedge(L+1) = dptry_pedge(L) - dptry(L) |
|
./pkg/gridalt/make_phys_grid.F |
115 |
MAKE_PHYS_GRID |
dptry_accum(1) = dptry(1) |
|
./pkg/gridalt/make_phys_grid.F |
117 |
MAKE_PHYS_GRID |
dptry_accum(Lnew) = dptry_accum(Lnew-1) + dptry(Lnew) |
|
./pkg/gridalt/make_phys_grid.F |
145 |
MAKE_PHYS_GRID |
& deltap+dptry(Lnew))then |
|
./pkg/gridalt/make_phys_grid.F |
147 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = dptry(Lnew) |
|
./pkg/gridalt/make_phys_grid.F |
148 |
MAKE_PHYS_GRID |
deltap = deltap + dptry(Lnew) |
|
./pkg/gridalt/make_phys_grid.F |
152 |
MAKE_PHYS_GRID |
if((dptry(Lnew-1)+(hfacC(i,j,Lbotij,bi,bj)* |
|
./pkg/gridalt/make_phys_grid.F |
153 |
MAKE_PHYS_GRID |
& drF(Lbotij)-deltap)) .gt. (dptry(Lnew-1)*1.5) ) then |
|
./pkg/gridalt/make_phys_grid.F |
178 |
MAKE_PHYS_GRID |
if((hfacC(i,j,L,bi,bj)*drF(L)).ge.deltap+dptry(Lnew))then |
|
./pkg/gridalt/make_phys_grid.F |
180 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = dptry(Lnew) |
|
./pkg/gridalt/make_phys_grid.F |
181 |
MAKE_PHYS_GRID |
deltap = deltap + dptry(Lnew) |
|
./pkg/gridalt/make_phys_grid.F |
187 |
MAKE_PHYS_GRID |
if( (dptry(Lnew-1)+(hfacC(i,j,L,bi,bj)*drF(L)-deltap)) |
|
./pkg/gridalt/make_phys_grid.F |
188 |
MAKE_PHYS_GRID |
& .gt. (dptry(Lnew-1)*1.5) ) then |
|
./pkg/gridalt/make_phys_grid.F |
62 |
MAKE_PHYS_GRID |
_RL dptry(15),dptry10(ntry10),dptry40(ntry40) |
|
./pkg/gridalt/make_phys_grid.F |
79 |
MAKE_PHYS_GRID |
dptry(L) = dptry10(L) |
|
./pkg/gridalt/make_phys_grid.F |
85 |
MAKE_PHYS_GRID |
dptry(L) = dptry40(L) |