| File |
Line number |
Procedure |
Code |
|
./pkg/gridalt/make_phys_grid.F |
107 |
MAKE_PHYS_GRID |
numlevphys = Nr - nlevs + ntry + 1 |
|
./pkg/gridalt/make_phys_grid.F |
110 |
MAKE_PHYS_GRID |
do Lnew = 2,ntry |
|
./pkg/gridalt/make_phys_grid.F |
122 |
MAKE_PHYS_GRID |
do Lnew = 1,ntry |
|
./pkg/gridalt/make_phys_grid.F |
129 |
MAKE_PHYS_GRID |
nlbotmax = ntry |
|
./pkg/gridalt/make_phys_grid.F |
168 |
MAKE_PHYS_GRID |
if(nlphys.lt.ntry)then |
|
./pkg/gridalt/make_phys_grid.F |
171 |
MAKE_PHYS_GRID |
do Lnew = nstart,ntry |
|
./pkg/gridalt/make_phys_grid.F |
200 |
MAKE_PHYS_GRID |
if(nlphys.ge.ntry)then |
|
./pkg/gridalt/make_phys_grid.F |
208 |
MAKE_PHYS_GRID |
elseif(nlphys.eq.ntry)then |
|
./pkg/gridalt/make_phys_grid.F |
58 |
MAKE_PHYS_GRID |
integer ntry,ntry10,ntry40 |
|
./pkg/gridalt/make_phys_grid.F |
73 |
MAKE_PHYS_GRID |
ntry = ntry10 |
|
./pkg/gridalt/make_phys_grid.F |
74 |
MAKE_PHYS_GRID |
do L = 1,ntry |
|
./pkg/gridalt/make_phys_grid.F |
78 |
MAKE_PHYS_GRID |
ntry = ntry40 |
|
./pkg/gridalt/make_phys_grid.F |
79 |
MAKE_PHYS_GRID |
do L = 1,ntry |
|
./pkg/gridalt/make_phys_grid.F |
87 |
MAKE_PHYS_GRID |
nextra = ntry |
|
./pkg/fizhi/getpwhere.F |
100 |
GETPWHERE |
do L = ntry+1,Nrphys-1 |
|
./pkg/fizhi/getpwhere.F |
101 |
GETPWHERE |
pref(L) = rF_pmid(dynlev+L-ntry+1) |
|
./pkg/fizhi/getpwhere.F |
43 |
GETPWHERE |
integer ntry,ntry10,ntry40 |
|
./pkg/fizhi/getpwhere.F |
58 |
GETPWHERE |
ntry = ntry10 |
|
./pkg/fizhi/getpwhere.F |
59 |
GETPWHERE |
do L = 1,ntry |
|
./pkg/fizhi/getpwhere.F |
63 |
GETPWHERE |
ntry = ntry40 |
|
./pkg/fizhi/getpwhere.F |
64 |
GETPWHERE |
do L = 1,ntry |
|
./pkg/fizhi/getpwhere.F |
74 |
GETPWHERE |
do L = 2,ntry+1 |
|
./pkg/fizhi/getpwhere.F |
77 |
GETPWHERE |
do L = 1,ntry |
|
./pkg/fizhi/getpwhere.F |
92 |
GETPWHERE |
if(rF_pmid(L).ge.pref(ntry)) dynlev = L |
|
./pkg/fizhi/getpwhere.F |
94 |
GETPWHERE |
if(rF_pmid(dynlev).ge.pref(ntry)-25.) then |
|
./pkg/fizhi/getpwhere.F |
95 |
GETPWHERE |
do L = ntry+1,Nrphys-1 |
|
./pkg/fizhi/getpwhere.F |
96 |
GETPWHERE |
pref(L) = rF_pmid(dynlev+L-ntry) |
|
./pkg/fizhi/getpwhere.F |
99 |
GETPWHERE |
pref(ntry) = rF_pmid(dynlev) |