| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diagnostics_set_levels.F |
180 |
DIAGNOSTICS_SET_LEVELS |
IF ( nlevels(n).GT.nlevs ) THEN |
|
./pkg/diagnostics/diagnostics_set_levels.F |
186 |
DIAGNOSTICS_SET_LEVELS |
& ' number of lev= ', nlevels(n), ' exceeds Max=',nlevs |
|
./pkg/diagnostics/DIAGNOSTICS.h |
64 |
NO PROCEDURE |
integer nlevels(numlists) |
|
./pkg/diagnostics/DIAGNOSTICS.h |
79 |
NO PROCEDURE |
& freq, phase, levs, nlevels, |
|
./pkg/diagnostics/diagnostics_out.F |
135 |
DIAGNOSTICS_OUT |
WRITE(dn(1),'(a,i6.6)') 'Zmd', nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
136 |
DIAGNOSTICS_OUT |
dim(1) = nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
138 |
DIAGNOSTICS_OUT |
ie(1) = nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
165 |
DIAGNOSTICS_OUT |
WRITE(dn(1),'(3a,i6.6)') 'Z',ctmp(i:i),'d',nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
178 |
DIAGNOSTICS_OUT |
DO j = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
185 |
DIAGNOSTICS_OUT |
DO j = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
192 |
DIAGNOSTICS_OUT |
DO j = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
241 |
DIAGNOSTICS_OUT |
DO k = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
291 |
DIAGNOSTICS_OUT |
DO k = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
303 |
DIAGNOSTICS_OUT |
nlevsout = nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
346 |
DIAGNOSTICS_OUT |
DO k = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
365 |
DIAGNOSTICS_OUT |
DO k = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
380 |
DIAGNOSTICS_OUT |
DO k = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
382 |
DIAGNOSTICS_OUT |
if(hFacC(i,j,nlevels(listId)-k+1,bi,bj).ne.0.) then |
|
./pkg/diagnostics/diagnostics_out.F |
383 |
DIAGNOSTICS_OUT |
qinp(i,j,k) = qtmp1(i,j,nlevels(listId)-k+1,bi,bj) |
|
./pkg/diagnostics/diagnostics_out.F |
387 |
DIAGNOSTICS_OUT |
pkz(i,j,k) = qtmp2(i,j,nlevels(listId)-k+1,bi,bj)**kappa |
|
./pkg/diagnostics/diagnostics_out.F |
403 |
DIAGNOSTICS_OUT |
. nlevels(listId) ) |
|
./pkg/diagnostics/diagnostics_out.F |
485 |
DIAGNOSTICS_OUT |
WRITE(dn(3),'(a,i6.6)') 'Zd', nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
488 |
DIAGNOSTICS_OUT |
WRITE(dn(3),'(a,i6.6)') 'Zmd', nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
492 |
DIAGNOSTICS_OUT |
WRITE(dn(3),'(a,i6.6)') 'Zld', nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
496 |
DIAGNOSTICS_OUT |
WRITE(dn(3),'(a,i6.6)') 'Zud', nlevels(listId) |
|
./pkg/diagnostics/diagnostics_out.F |
500 |
DIAGNOSTICS_OUT |
ie(3) = nlevels(listId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
143 |
DIAGSTATS_MNC_OUT |
WRITE(dn(1),'(3a,i6.6)') 'Z',ctmp(i:i),'d',nlevels(listId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
156 |
DIAGSTATS_MNC_OUT |
DO j = 1,nlevels(listId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
163 |
DIAGSTATS_MNC_OUT |
DO j = 1,nlevels(listId) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
170 |
DIAGSTATS_MNC_OUT |
DO j = 1,nlevels(listId) |
|
./pkg/diagnostics/diagnostics_summary.F |
95 |
DIAGNOSTICS_SUMMARY |
& freq(ld), phase(ld), ' |', nlevels(ld) |
|
./pkg/diagnostics/diagnostics_summary.F |
96 |
DIAGNOSTICS_SUMMARY |
DO k1=1,nlevels(ld),50 |
|
./pkg/diagnostics/diagnostics_summary.F |
97 |
DIAGNOSTICS_SUMMARY |
k2 = MIN(nlevels(ld),k1+49) |
|
./pkg/diagnostics/diagnostics_readparms.F |
158 |
DIAGNOSTICS_READPARMS |
nlevels(n) = 0 |
|
./pkg/diagnostics/diagnostics_readparms.F |
201 |
DIAGNOSTICS_READPARMS |
nlevels(n) = 0 |
|
./pkg/diagnostics/diagnostics_readparms.F |
205 |
DIAGNOSTICS_READPARMS |
& nlevels(n).LT.numLevels ) THEN |
|
./pkg/diagnostics/diagnostics_readparms.F |
206 |
DIAGNOSTICS_READPARMS |
nlevels(n) = nlevels(n) + 1 |
|
./pkg/diagnostics/diagnostics_readparms.F |
207 |
DIAGNOSTICS_READPARMS |
levs(nlevels(n),n) = levels(k,l) |
|
./pkg/diagnostics/diagnostics_readparms.F |
223 |
DIAGNOSTICS_READPARMS |
nlevels(n) = -1 |
|
./pkg/diagnostics/diagnostics_readparms.F |
369 |
DIAGNOSTICS_READPARMS |
IF ( nlevels(n).EQ.-1 ) THEN |
|
./pkg/diagnostics/diagnostics_readparms.F |
373 |
DIAGNOSTICS_READPARMS |
DO l=1,nlevels(n),20 |
|
./pkg/diagnostics/diagnostics_readparms.F |
374 |
DIAGNOSTICS_READPARMS |
m = MIN(nlevels(n),l+19) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
157 |
DIAGNOSTICS_SET_POINTERS |
IF ( nlevels(ld).EQ.-1 ) THEN |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
171 |
DIAGNOSTICS_SET_POINTERS |
nlevels(ld) = kLev |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
179 |
DIAGNOSTICS_SET_POINTERS |
DO k1=1,nlevels(ld),20 |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
180 |
DIAGNOSTICS_SET_POINTERS |
k2 = MIN(nlevels(ld),k1+19) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
189 |
DIAGNOSTICS_SET_POINTERS |
DO k=1,nlevels(ld) |