| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diagnostics_set_levels.F |
117 |
DIAGNOSTICS_SET_LEVELS |
ncount = ncount + 1 |
|
./pkg/diagnostics/diagnostics_set_levels.F |
120 |
DIAGNOSTICS_SET_LEVELS |
IF ( ncount.GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_set_levels.F |
122 |
DIAGNOSTICS_SET_LEVELS |
& 'found', ncount, ' invalid parser "gdiag(10)" => STOP' |
|
./pkg/diagnostics/diagnostics_set_levels.F |
128 |
DIAGNOSTICS_SET_LEVELS |
ncount = 0 |
|
./pkg/diagnostics/diagnostics_set_levels.F |
136 |
DIAGNOSTICS_SET_LEVELS |
ncount = ncount + 1 |
|
./pkg/diagnostics/diagnostics_set_levels.F |
139 |
DIAGNOSTICS_SET_LEVELS |
IF ( ncount.GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_set_levels.F |
141 |
DIAGNOSTICS_SET_LEVELS |
& 'found', ncount, ' inconsistent parser "gdiag" => STOP' |
|
./pkg/diagnostics/diagnostics_set_levels.F |
147 |
DIAGNOSTICS_SET_LEVELS |
ncount = 0 |
|
./pkg/diagnostics/diagnostics_set_levels.F |
153 |
DIAGNOSTICS_SET_LEVELS |
ncount = ncount + 1 |
|
./pkg/diagnostics/diagnostics_set_levels.F |
156 |
DIAGNOSTICS_SET_LEVELS |
IF ( ncount.GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_set_levels.F |
158 |
DIAGNOSTICS_SET_LEVELS |
& 'found', ncount, ' unvalid mate number(s) => STOP' |
|
./pkg/diagnostics/diagnostics_set_levels.F |
63 |
DIAGNOSTICS_SET_LEVELS |
INTEGER l, n, ncount |
|
./pkg/diagnostics/diagnostics_set_levels.F |
86 |
DIAGNOSTICS_SET_LEVELS |
ncount = 0 |
|
./pkg/down_slope/dwnslp_init_fixed.F |
110 |
DWNSLP_INIT_FIXED |
ncount = ncount + 1 |
|
./pkg/down_slope/dwnslp_init_fixed.F |
111 |
DWNSLP_INIT_FIXED |
IF ( ncount.LE.DWNSLP_size ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
112 |
DWNSLP_INIT_FIXED |
DWNSLP_ijDeep(ncount,bi,bj) = |
|
./pkg/down_slope/dwnslp_init_fixed.F |
114 |
DWNSLP_INIT_FIXED |
DWNSLP_shVsD(ncount,bi,bj) = -xSize |
|
./pkg/down_slope/dwnslp_init_fixed.F |
119 |
DWNSLP_INIT_FIXED |
ncount = ncount + 1 |
|
./pkg/down_slope/dwnslp_init_fixed.F |
120 |
DWNSLP_INIT_FIXED |
IF ( ncount.LE.DWNSLP_size ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
121 |
DWNSLP_INIT_FIXED |
DWNSLP_ijDeep(ncount,bi,bj) = |
|
./pkg/down_slope/dwnslp_init_fixed.F |
123 |
DWNSLP_INIT_FIXED |
DWNSLP_shVsD(ncount,bi,bj) = xSize |
|
./pkg/down_slope/dwnslp_init_fixed.F |
141 |
DWNSLP_INIT_FIXED |
ncount = ncount + 1 |
|
./pkg/down_slope/dwnslp_init_fixed.F |
142 |
DWNSLP_INIT_FIXED |
IF ( ncount.LE.DWNSLP_size ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
143 |
DWNSLP_INIT_FIXED |
DWNSLP_ijDeep(ncount,bi,bj) = |
|
./pkg/down_slope/dwnslp_init_fixed.F |
145 |
DWNSLP_INIT_FIXED |
DWNSLP_shVsD(ncount,bi,bj) = -1 |
|
./pkg/down_slope/dwnslp_init_fixed.F |
150 |
DWNSLP_INIT_FIXED |
ncount = ncount + 1 |
|
./pkg/down_slope/dwnslp_init_fixed.F |
151 |
DWNSLP_INIT_FIXED |
IF ( ncount.LE.DWNSLP_size ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
152 |
DWNSLP_INIT_FIXED |
DWNSLP_ijDeep(ncount,bi,bj) = |
|
./pkg/down_slope/dwnslp_init_fixed.F |
154 |
DWNSLP_INIT_FIXED |
DWNSLP_shVsD(ncount,bi,bj) = 1 |
|
./pkg/down_slope/dwnslp_init_fixed.F |
169 |
DWNSLP_INIT_FIXED |
ncount = ncount + 1 |
|
./pkg/down_slope/dwnslp_init_fixed.F |
170 |
DWNSLP_INIT_FIXED |
IF ( ncount.LE.DWNSLP_size ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
171 |
DWNSLP_INIT_FIXED |
DWNSLP_ijDeep(ncount,bi,bj) = |
|
./pkg/down_slope/dwnslp_init_fixed.F |
173 |
DWNSLP_INIT_FIXED |
DWNSLP_shVsD(ncount,bi,bj) = -xSize |
|
./pkg/down_slope/dwnslp_init_fixed.F |
178 |
DWNSLP_INIT_FIXED |
ncount = ncount + 1 |
|
./pkg/down_slope/dwnslp_init_fixed.F |
179 |
DWNSLP_INIT_FIXED |
IF ( ncount.LE.DWNSLP_size ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
180 |
DWNSLP_INIT_FIXED |
DWNSLP_ijDeep(ncount,bi,bj) = |
|
./pkg/down_slope/dwnslp_init_fixed.F |
182 |
DWNSLP_INIT_FIXED |
DWNSLP_shVsD(ncount,bi,bj) = xSize |
|
./pkg/down_slope/dwnslp_init_fixed.F |
194 |
DWNSLP_INIT_FIXED |
DWNSLP_NbSite(bi,bj) = ncount |
|
./pkg/down_slope/dwnslp_init_fixed.F |
197 |
DWNSLP_INIT_FIXED |
IF (ncount.GT.DWNSLP_size) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
202 |
DWNSLP_INIT_FIXED |
& ' DWNSLP_INIT: min needed for tile',bi,bj,' :', ncount |
|
./pkg/down_slope/dwnslp_init_fixed.F |
44 |
DWNSLP_INIT_FIXED |
INTEGER n, ncount, ijd, ijr |
|
./pkg/down_slope/dwnslp_init_fixed.F |
71 |
DWNSLP_INIT_FIXED |
ncount = 0 |
|
./pkg/down_slope/dwnslp_init_fixed.F |
82 |
DWNSLP_INIT_FIXED |
ncount = ncount + 1 |
|
./pkg/down_slope/dwnslp_init_fixed.F |
83 |
DWNSLP_INIT_FIXED |
IF ( ncount.LE.DWNSLP_size ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
84 |
DWNSLP_INIT_FIXED |
DWNSLP_ijDeep(ncount,bi,bj) = |
|
./pkg/down_slope/dwnslp_init_fixed.F |
86 |
DWNSLP_INIT_FIXED |
DWNSLP_shVsD(ncount,bi,bj) = -1 |
|
./pkg/down_slope/dwnslp_init_fixed.F |
91 |
DWNSLP_INIT_FIXED |
ncount = ncount + 1 |
|
./pkg/down_slope/dwnslp_init_fixed.F |
92 |
DWNSLP_INIT_FIXED |
IF ( ncount.LE.DWNSLP_size ) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
93 |
DWNSLP_INIT_FIXED |
DWNSLP_ijDeep(ncount,bi,bj) = |
|
./pkg/down_slope/dwnslp_init_fixed.F |
95 |
DWNSLP_INIT_FIXED |
DWNSLP_shVsD(ncount,bi,bj) = 1 |