| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/getpwhere.F |
103 |
GETPWHERE |
& ' , ntry =', ntry, |
|
./pkg/fizhi/getpwhere.F |
105 |
GETPWHERE |
WRITE(ioUnit,'(10F10.4)') (pref(L),L=1,ntry) |
|
./pkg/fizhi/getpwhere.F |
112 |
GETPWHERE |
DO L = ntry+1,Nrphys |
|
./pkg/fizhi/getpwhere.F |
122 |
GETPWHERE |
IF ( rC_dyn(L).GE.dptry_pedge(ntry+1) ) dynlev = L |
|
./pkg/fizhi/getpwhere.F |
124 |
GETPWHERE |
DO L = ntry+1,MIN(Nrphys,ntry+Nr-dynlev) |
|
./pkg/fizhi/getpwhere.F |
125 |
GETPWHERE |
pref(L) = rC_dyn(dynlev+L-ntry) |
|
./pkg/fizhi/getpwhere.F |
139 |
GETPWHERE |
if(rF_pmid(L).ge.pref(ntry)) dynlev = L |
|
./pkg/fizhi/getpwhere.F |
142 |
GETPWHERE |
IF ( rF_pmid(dynlev).ge.pref(ntry)-25. ) THEN |
|
./pkg/fizhi/getpwhere.F |
143 |
GETPWHERE |
upperBnd = ntry+Nr-dynlev |
|
./pkg/fizhi/getpwhere.F |
145 |
GETPWHERE |
upperBnd = ntry+Nr-dynlev-1 |
|
./pkg/fizhi/getpwhere.F |
156 |
GETPWHERE |
if(rF_pmid(dynlev).ge.pref(ntry)-25.) then |
|
./pkg/fizhi/getpwhere.F |
157 |
GETPWHERE |
do L = ntry+1,Nrphys-1 |
|
./pkg/fizhi/getpwhere.F |
158 |
GETPWHERE |
pref(L) = rF_pmid(dynlev+L-ntry) |
|
./pkg/fizhi/getpwhere.F |
161 |
GETPWHERE |
pref(ntry) = rF_pmid(dynlev) |
|
./pkg/fizhi/getpwhere.F |
162 |
GETPWHERE |
do L = ntry+1,Nrphys-1 |
|
./pkg/fizhi/getpwhere.F |
163 |
GETPWHERE |
pref(L) = rF_pmid(dynlev+L-ntry+1) |
|
./pkg/fizhi/getpwhere.F |
186 |
GETPWHERE |
WRITE(ioUnit,'(10F10.4)') (pref(L),L=ntry,Nrphys) |
|
./pkg/fizhi/getpwhere.F |
53 |
GETPWHERE |
integer ntry,ntry10,ntry40 |
|
./pkg/fizhi/getpwhere.F |
72 |
GETPWHERE |
ntry = ntry10 |
|
./pkg/fizhi/getpwhere.F |
73 |
GETPWHERE |
do L = 1,ntry |
|
./pkg/fizhi/getpwhere.F |
77 |
GETPWHERE |
ntry = ntry40 |
|
./pkg/fizhi/getpwhere.F |
78 |
GETPWHERE |
do L = 1,ntry |
|
./pkg/fizhi/getpwhere.F |
92 |
GETPWHERE |
do L = 1,ntry |
|
./pkg/fizhi/getpwhere.F |
95 |
GETPWHERE |
do L = 1,ntry |
|
./pkg/gridalt/make_phys_grid.F |
113 |
MAKE_PHYS_GRID |
numlevphys = Nr - nlevs + ntry + 1 |
|
./pkg/gridalt/make_phys_grid.F |
116 |
MAKE_PHYS_GRID |
do Lnew = 2,ntry |
|
./pkg/gridalt/make_phys_grid.F |
128 |
MAKE_PHYS_GRID |
do Lnew = 1,ntry |
|
./pkg/gridalt/make_phys_grid.F |
135 |
MAKE_PHYS_GRID |
nlbotmax = ntry |
|
./pkg/gridalt/make_phys_grid.F |
174 |
MAKE_PHYS_GRID |
if(nlphys.lt.ntry)then |
|
./pkg/gridalt/make_phys_grid.F |
177 |
MAKE_PHYS_GRID |
do Lnew = nstart,ntry |
|
./pkg/gridalt/make_phys_grid.F |
206 |
MAKE_PHYS_GRID |
if(nlphys.ge.ntry)then |
|
./pkg/gridalt/make_phys_grid.F |
214 |
MAKE_PHYS_GRID |
elseif(nlphys.eq.ntry)then |
|
./pkg/gridalt/make_phys_grid.F |
59 |
MAKE_PHYS_GRID |
integer ntry,ntry10,ntry40 |
|
./pkg/gridalt/make_phys_grid.F |
76 |
MAKE_PHYS_GRID |
ntry = ntry10 |
|
./pkg/gridalt/make_phys_grid.F |
78 |
MAKE_PHYS_GRID |
do L = 1,ntry |
|
./pkg/gridalt/make_phys_grid.F |
82 |
MAKE_PHYS_GRID |
ntry = ntry40 |
|
./pkg/gridalt/make_phys_grid.F |
84 |
MAKE_PHYS_GRID |
do L = 1,ntry |