File |
Line number |
Procedure |
Code |
./pkg/diagnostics/diagnostics_set_levels.F |
118 |
DIAGNOSTICS_SET_LEVELS |
ncount = ncount + 1 |
./pkg/diagnostics/diagnostics_set_levels.F |
121 |
DIAGNOSTICS_SET_LEVELS |
IF ( ncount.GT.0 ) THEN |
./pkg/diagnostics/diagnostics_set_levels.F |
123 |
DIAGNOSTICS_SET_LEVELS |
& 'found', ncount, ' invalid parser "gdiag(10)" => STOP' |
./pkg/diagnostics/diagnostics_set_levels.F |
129 |
DIAGNOSTICS_SET_LEVELS |
ncount = 0 |
./pkg/diagnostics/diagnostics_set_levels.F |
137 |
DIAGNOSTICS_SET_LEVELS |
ncount = ncount + 1 |
./pkg/diagnostics/diagnostics_set_levels.F |
140 |
DIAGNOSTICS_SET_LEVELS |
IF ( ncount.GT.0 ) THEN |
./pkg/diagnostics/diagnostics_set_levels.F |
142 |
DIAGNOSTICS_SET_LEVELS |
& 'found', ncount, ' inconsistent parser "gdiag" => STOP' |
./pkg/diagnostics/diagnostics_set_levels.F |
148 |
DIAGNOSTICS_SET_LEVELS |
ncount = 0 |
./pkg/diagnostics/diagnostics_set_levels.F |
154 |
DIAGNOSTICS_SET_LEVELS |
ncount = ncount + 1 |
./pkg/diagnostics/diagnostics_set_levels.F |
163 |
DIAGNOSTICS_SET_LEVELS |
ncount = ncount + 1 |
./pkg/diagnostics/diagnostics_set_levels.F |
166 |
DIAGNOSTICS_SET_LEVELS |
IF ( ncount.GT.0 ) THEN |
./pkg/diagnostics/diagnostics_set_levels.F |
168 |
DIAGNOSTICS_SET_LEVELS |
& 'found', ncount, ' unvalid/missing mate number(s) => STOP' |
./pkg/diagnostics/diagnostics_set_levels.F |
63 |
DIAGNOSTICS_SET_LEVELS |
INTEGER l, n, ncount |
./pkg/diagnostics/diagnostics_set_levels.F |
87 |
DIAGNOSTICS_SET_LEVELS |
ncount = 0 |
./pkg/down_slope/dwnslp_init_fixed.F |
111 |
DWNSLP_INIT_FIXED |
ncount = ncount + 1 |
./pkg/down_slope/dwnslp_init_fixed.F |
112 |
DWNSLP_INIT_FIXED |
IF ( ncount.LE.DWNSLP_size ) THEN |
./pkg/down_slope/dwnslp_init_fixed.F |
113 |
DWNSLP_INIT_FIXED |
DWNSLP_ijDeep(ncount,bi,bj) = |
./pkg/down_slope/dwnslp_init_fixed.F |
115 |
DWNSLP_INIT_FIXED |
DWNSLP_shVsD(ncount,bi,bj) = -xSize |
./pkg/down_slope/dwnslp_init_fixed.F |
120 |
DWNSLP_INIT_FIXED |
ncount = ncount + 1 |
./pkg/down_slope/dwnslp_init_fixed.F |
121 |
DWNSLP_INIT_FIXED |
IF ( ncount.LE.DWNSLP_size ) THEN |
./pkg/down_slope/dwnslp_init_fixed.F |
122 |
DWNSLP_INIT_FIXED |
DWNSLP_ijDeep(ncount,bi,bj) = |
./pkg/down_slope/dwnslp_init_fixed.F |
124 |
DWNSLP_INIT_FIXED |
DWNSLP_shVsD(ncount,bi,bj) = xSize |
./pkg/down_slope/dwnslp_init_fixed.F |
142 |
DWNSLP_INIT_FIXED |
ncount = ncount + 1 |
./pkg/down_slope/dwnslp_init_fixed.F |
143 |
DWNSLP_INIT_FIXED |
IF ( ncount.LE.DWNSLP_size ) THEN |
./pkg/down_slope/dwnslp_init_fixed.F |
144 |
DWNSLP_INIT_FIXED |
DWNSLP_ijDeep(ncount,bi,bj) = |
./pkg/down_slope/dwnslp_init_fixed.F |
146 |
DWNSLP_INIT_FIXED |
DWNSLP_shVsD(ncount,bi,bj) = -1 |
./pkg/down_slope/dwnslp_init_fixed.F |
151 |
DWNSLP_INIT_FIXED |
ncount = ncount + 1 |
./pkg/down_slope/dwnslp_init_fixed.F |
152 |
DWNSLP_INIT_FIXED |
IF ( ncount.LE.DWNSLP_size ) THEN |
./pkg/down_slope/dwnslp_init_fixed.F |
153 |
DWNSLP_INIT_FIXED |
DWNSLP_ijDeep(ncount,bi,bj) = |
./pkg/down_slope/dwnslp_init_fixed.F |
155 |
DWNSLP_INIT_FIXED |
DWNSLP_shVsD(ncount,bi,bj) = 1 |
./pkg/down_slope/dwnslp_init_fixed.F |
170 |
DWNSLP_INIT_FIXED |
ncount = ncount + 1 |
./pkg/down_slope/dwnslp_init_fixed.F |
171 |
DWNSLP_INIT_FIXED |
IF ( ncount.LE.DWNSLP_size ) THEN |
./pkg/down_slope/dwnslp_init_fixed.F |
172 |
DWNSLP_INIT_FIXED |
DWNSLP_ijDeep(ncount,bi,bj) = |
./pkg/down_slope/dwnslp_init_fixed.F |
174 |
DWNSLP_INIT_FIXED |
DWNSLP_shVsD(ncount,bi,bj) = -xSize |
./pkg/down_slope/dwnslp_init_fixed.F |
179 |
DWNSLP_INIT_FIXED |
ncount = ncount + 1 |
./pkg/down_slope/dwnslp_init_fixed.F |
180 |
DWNSLP_INIT_FIXED |
IF ( ncount.LE.DWNSLP_size ) THEN |
./pkg/down_slope/dwnslp_init_fixed.F |
181 |
DWNSLP_INIT_FIXED |
DWNSLP_ijDeep(ncount,bi,bj) = |
./pkg/down_slope/dwnslp_init_fixed.F |
183 |
DWNSLP_INIT_FIXED |
DWNSLP_shVsD(ncount,bi,bj) = xSize |
./pkg/down_slope/dwnslp_init_fixed.F |
195 |
DWNSLP_INIT_FIXED |
DWNSLP_NbSite(bi,bj) = ncount |
./pkg/down_slope/dwnslp_init_fixed.F |
198 |
DWNSLP_INIT_FIXED |
IF (ncount.GT.DWNSLP_size) THEN |
./pkg/down_slope/dwnslp_init_fixed.F |
203 |
DWNSLP_INIT_FIXED |
& ' DWNSLP_INIT: min needed for tile',bi,bj,' :', ncount |
./pkg/down_slope/dwnslp_init_fixed.F |
45 |
DWNSLP_INIT_FIXED |
INTEGER n, ncount, ijd, ijr |
./pkg/down_slope/dwnslp_init_fixed.F |
72 |
DWNSLP_INIT_FIXED |
ncount = 0 |
./pkg/down_slope/dwnslp_init_fixed.F |
83 |
DWNSLP_INIT_FIXED |
ncount = ncount + 1 |
./pkg/down_slope/dwnslp_init_fixed.F |
84 |
DWNSLP_INIT_FIXED |
IF ( ncount.LE.DWNSLP_size ) THEN |
./pkg/down_slope/dwnslp_init_fixed.F |
85 |
DWNSLP_INIT_FIXED |
DWNSLP_ijDeep(ncount,bi,bj) = |
./pkg/down_slope/dwnslp_init_fixed.F |
87 |
DWNSLP_INIT_FIXED |
DWNSLP_shVsD(ncount,bi,bj) = -1 |
./pkg/down_slope/dwnslp_init_fixed.F |
92 |
DWNSLP_INIT_FIXED |
ncount = ncount + 1 |
./pkg/down_slope/dwnslp_init_fixed.F |
93 |
DWNSLP_INIT_FIXED |
IF ( ncount.LE.DWNSLP_size ) THEN |
./pkg/down_slope/dwnslp_init_fixed.F |
94 |
DWNSLP_INIT_FIXED |
DWNSLP_ijDeep(ncount,bi,bj) = |
./pkg/down_slope/dwnslp_init_fixed.F |
96 |
DWNSLP_INIT_FIXED |
DWNSLP_shVsD(ncount,bi,bj) = 1 |