| File |
Line number |
Procedure |
Code |
|
./pkg/grdchk/grdchk.h |
38 |
NO PROCEDURE |
& grdchkvarindex, |
|
./pkg/grdchk/grdchk.h |
54 |
NO PROCEDURE |
integer grdchkvarindex |
|
./pkg/grdchk/grdchk_check.F |
47 |
GRDCHK_CHECK |
IF ( ncvarindex(grdchkvarindex) .LE. 0 ) THEN |
|
./pkg/grdchk/grdchk_check.F |
50 |
GRDCHK_CHECK |
& grdchkvarindex |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
100 |
GRDCHK_GET_OBCS_MASK |
else if ( grdchkvarindex .EQ. 12 ) then |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
123 |
GRDCHK_GET_OBCS_MASK |
else if ( grdchkvarindex .EQ. 13 ) then |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
146 |
GRDCHK_GET_OBCS_MASK |
else if ( grdchkvarindex .EQ. 14 ) then |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
77 |
GRDCHK_GET_OBCS_MASK |
if ( grdchkvarindex .EQ. 11 ) then |
|
./pkg/grdchk/grdchk_get_position.F |
118 |
GRDCHK_GET_POSITION |
if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then |
|
./pkg/grdchk/grdchk_get_position.F |
125 |
GRDCHK_GET_POSITION |
do irec = irecwrk, ncvarrecs(grdchkvarindex) |
|
./pkg/grdchk/grdchk_get_position.F |
131 |
GRDCHK_GET_POSITION |
do k = kwrk, ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_get_position.F |
140 |
GRDCHK_GET_POSITION |
do j = jwrk, ncvarymax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_get_position.F |
141 |
GRDCHK_GET_POSITION |
do i = iwrk, ncvarxmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_get_position.F |
143 |
GRDCHK_GET_POSITION |
if ( ncvargrd(grdchkvarindex) .eq. 'c' ) then |
|
./pkg/grdchk/grdchk_get_position.F |
148 |
GRDCHK_GET_POSITION |
else if ( ncvargrd(grdchkvarindex) .eq. 's' ) then |
|
./pkg/grdchk/grdchk_get_position.F |
153 |
GRDCHK_GET_POSITION |
else if ( ncvargrd(grdchkvarindex) .eq. 'w' ) then |
|
./pkg/grdchk/grdchk_get_position.F |
160 |
GRDCHK_GET_POSITION |
else if ( ncvargrd(grdchkvarindex) .eq. 'i' ) then |
|
./pkg/grdchk/grdchk_get_position.F |
166 |
GRDCHK_GET_POSITION |
else if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then |
|
./pkg/grdchk/grdchk_get_position.F |
167 |
GRDCHK_GET_POSITION |
if ( grdchkvarindex .EQ. 11 ) then |
|
./pkg/grdchk/grdchk_get_position.F |
175 |
GRDCHK_GET_POSITION |
else if ( grdchkvarindex .EQ. 12 ) then |
|
./pkg/grdchk/grdchk_get_position.F |
183 |
GRDCHK_GET_POSITION |
else if ( grdchkvarindex .EQ. 13 ) then |
|
./pkg/grdchk/grdchk_get_position.F |
191 |
GRDCHK_GET_POSITION |
else if ( grdchkvarindex .EQ. 14 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
105 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 2 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
113 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 27 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
121 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 28 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
129 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 3 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
137 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 4 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
145 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 5 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
153 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 6 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
161 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 7 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
169 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 8 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
177 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 9 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
185 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 10 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
193 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 11 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
201 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 12 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
209 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 13 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
217 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 14 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
225 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 15 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
233 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 16 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
241 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 44 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
249 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 17 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
257 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 18 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
265 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 19 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
273 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 20 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
281 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 21 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
289 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 22 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
297 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 23 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
305 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 24 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
313 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 30 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
321 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 31 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
329 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 32 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
337 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 33 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
345 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 34 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
353 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 35 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
361 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 36 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
369 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 37 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
377 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 38 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
385 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 39 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
393 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 40 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
401 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 41 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
409 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 42 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
417 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 43 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
425 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 45 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
433 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 29 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
441 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .ge. 101 .and. |
|
./pkg/grdchk/grdchk_getadxx.F |
442 |
GRDCHK_GETADXX |
& grdchkvarindex .le. 100+maxCtrlArr2D ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
444 |
GRDCHK_GETADXX |
if ( grdchkvarindex .eq. 100+iarr ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
454 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .ge. 201 .and. |
|
./pkg/grdchk/grdchk_getadxx.F |
455 |
GRDCHK_GETADXX |
& grdchkvarindex .le. 200+maxCtrlArr3D ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
457 |
GRDCHK_GETADXX |
if ( grdchkvarindex .eq. 200+iarr ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
467 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .ge. 301 .and. |
|
./pkg/grdchk/grdchk_getadxx.F |
468 |
GRDCHK_GETADXX |
& grdchkvarindex .le. 300+maxCtrlTim2D ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
470 |
GRDCHK_GETADXX |
if ( grdchkvarindex .eq. 300+iarr ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
484 |
GRDCHK_GETADXX |
if ( grdchkvarindex.EQ.1 .OR. grdchkvarindex.EQ.2 .OR. |
|
./pkg/grdchk/grdchk_getadxx.F |
485 |
GRDCHK_GETADXX |
& grdchkvarindex.EQ.27 .OR. grdchkvarindex.EQ.28 .OR. |
|
./pkg/grdchk/grdchk_getadxx.F |
486 |
GRDCHK_GETADXX |
& grdchkvarindex.EQ.15 .OR. grdchkvarindex.EQ.16 .OR. |
|
./pkg/grdchk/grdchk_getadxx.F |
487 |
GRDCHK_GETADXX |
& grdchkvarindex.EQ.17 .OR. grdchkvarindex.EQ.21 .OR. |
|
./pkg/grdchk/grdchk_getadxx.F |
488 |
GRDCHK_GETADXX |
& grdchkvarindex.EQ.22 .OR. grdchkvarindex.EQ.31 .OR. |
|
./pkg/grdchk/grdchk_getadxx.F |
489 |
GRDCHK_GETADXX |
& grdchkvarindex.EQ.44 |
|
./pkg/grdchk/grdchk_getadxx.F |
491 |
GRDCHK_GETADXX |
& .OR. ( grdchkvarindex .ge. 201 .and. |
|
./pkg/grdchk/grdchk_getadxx.F |
492 |
GRDCHK_GETADXX |
& grdchkvarindex .le. 200+maxCtrlArr3D ) |
|
./pkg/grdchk/grdchk_getadxx.F |
503 |
GRDCHK_GETADXX |
elseif ( grdchkvarindex.EQ.11 .OR. grdchkvarindex.EQ.12) then |
|
./pkg/grdchk/grdchk_getadxx.F |
512 |
GRDCHK_GETADXX |
elseif ( grdchkvarindex.EQ.13 .OR. grdchkvarindex.EQ.14) then |
|
./pkg/grdchk/grdchk_getadxx.F |
93 |
GRDCHK_GETADXX |
if ( grdchkvarindex .eq. 0 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
97 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 1 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
102 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 1 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
114 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 2 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
126 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 27 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
138 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 28 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
150 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 3 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
162 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 4 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
174 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 5 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
186 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 6 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
198 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 7 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
210 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 8 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
222 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 9 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
234 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 10 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
246 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 11 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
258 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 12 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
270 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 13 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
282 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 14 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
294 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 15 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
306 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 16 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
318 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 44 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
330 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 17 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
342 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 18 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
354 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 19 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
366 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 20 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
378 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 21 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
391 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 22 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
404 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 23 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
416 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 24 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
428 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 30 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
440 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 31 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
452 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 32 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
464 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 33 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
476 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 34 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
488 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 35 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
500 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 36 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
512 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 37 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
524 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 38 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
536 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 39 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
548 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 40 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
560 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 41 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
572 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 42 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
584 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 43 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
596 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 45 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
608 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 29 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
620 |
GRDCHK_GETXX |
else if ( grdchkvarindex .ge. 101 .and. |
|
./pkg/grdchk/grdchk_getxx.F |
621 |
GRDCHK_GETXX |
& grdchkvarindex .le. 100+maxCtrlArr2D ) then |
|
./pkg/grdchk/grdchk_getxx.F |
623 |
GRDCHK_GETXX |
if ( grdchkvarindex .eq. 100+iarr ) then |
|
./pkg/grdchk/grdchk_getxx.F |
637 |
GRDCHK_GETXX |
else if ( grdchkvarindex .ge. 201 .and. |
|
./pkg/grdchk/grdchk_getxx.F |
638 |
GRDCHK_GETXX |
& grdchkvarindex .le. 200+maxCtrlArr3D ) then |
|
./pkg/grdchk/grdchk_getxx.F |
640 |
GRDCHK_GETXX |
if ( grdchkvarindex .eq. 200+iarr ) then |
|
./pkg/grdchk/grdchk_getxx.F |
654 |
GRDCHK_GETXX |
else if ( grdchkvarindex .ge. 301 .and. |
|
./pkg/grdchk/grdchk_getxx.F |
655 |
GRDCHK_GETXX |
& grdchkvarindex .le. 300+maxCtrlTim2D ) then |
|
./pkg/grdchk/grdchk_getxx.F |
657 |
GRDCHK_GETXX |
if ( grdchkvarindex .eq. 300+iarr ) then |
|
./pkg/grdchk/grdchk_getxx.F |
678 |
GRDCHK_GETXX |
if ( grdchkvarindex.EQ.1 .OR. grdchkvarindex.EQ.2 .OR. |
|
./pkg/grdchk/grdchk_getxx.F |
679 |
GRDCHK_GETXX |
& grdchkvarindex.EQ.27 .OR. grdchkvarindex.EQ.28 .OR. |
|
./pkg/grdchk/grdchk_getxx.F |
680 |
GRDCHK_GETXX |
& grdchkvarindex.EQ.15 .OR. grdchkvarindex.EQ.16 .OR. |
|
./pkg/grdchk/grdchk_getxx.F |
681 |
GRDCHK_GETXX |
& grdchkvarindex.EQ.17 .OR. grdchkvarindex.EQ.21 .OR. |
|
./pkg/grdchk/grdchk_getxx.F |
682 |
GRDCHK_GETXX |
& grdchkvarindex.EQ.22 .OR. grdchkvarindex.EQ.31 .OR. |
|
./pkg/grdchk/grdchk_getxx.F |
683 |
GRDCHK_GETXX |
& grdchkvarindex.EQ.44 |
|
./pkg/grdchk/grdchk_getxx.F |
685 |
GRDCHK_GETXX |
& .OR. ( grdchkvarindex .ge. 201 .and. |
|
./pkg/grdchk/grdchk_getxx.F |
686 |
GRDCHK_GETXX |
& grdchkvarindex .le. 200+maxCtrlArr3D ) |
|
./pkg/grdchk/grdchk_getxx.F |
704 |
GRDCHK_GETXX |
elseif ( grdchkvarindex.EQ.11 .OR. grdchkvarindex.EQ.12) then |
|
./pkg/grdchk/grdchk_getxx.F |
720 |
GRDCHK_GETXX |
elseif ( grdchkvarindex.EQ.13 .OR. grdchkvarindex.EQ.14) then |
|
./pkg/grdchk/grdchk_getxx.F |
98 |
GRDCHK_GETXX |
if ( grdchkvarindex .eq. 0 ) then |
|
./pkg/grdchk/grdchk_init.F |
103 |
GRDCHK_INIT |
else if ( ncvargrd(grdchkvarindex) .eq. 'v' ) then |
|
./pkg/grdchk/grdchk_init.F |
106 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
112 |
GRDCHK_INIT |
else if ( ncvargrd(grdchkvarindex) .eq. 'i' ) then |
|
./pkg/grdchk/grdchk_init.F |
115 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
121 |
GRDCHK_INIT |
else if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then |
|
./pkg/grdchk/grdchk_init.F |
124 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
126 |
GRDCHK_INIT |
if ( grdchkvarindex .eq. 11 ) then |
|
./pkg/grdchk/grdchk_init.F |
131 |
GRDCHK_INIT |
else if ( grdchkvarindex .eq. 12 ) then |
|
./pkg/grdchk/grdchk_init.F |
136 |
GRDCHK_INIT |
else if ( grdchkvarindex .eq. 13 ) then |
|
./pkg/grdchk/grdchk_init.F |
141 |
GRDCHK_INIT |
else if ( grdchkvarindex .eq. 14 ) then |
|
./pkg/grdchk/grdchk_init.F |
168 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
172 |
GRDCHK_INIT |
& ncvarxmax(grdchkvarindex)* |
|
./pkg/grdchk/grdchk_init.F |
173 |
GRDCHK_INIT |
& ncvarymax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
178 |
GRDCHK_INIT |
ncvarcomp = ncvarcomp*ncvarrecs(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
179 |
GRDCHK_INIT |
maxncvarcomps = maxncvarcomps*ncvarrecs(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
184 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
69 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
79 |
GRDCHK_INIT |
if ( ncvargrd(grdchkvarindex) .eq. 'c' ) then |
|
./pkg/grdchk/grdchk_init.F |
82 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
87 |
GRDCHK_INIT |
else if ( ncvargrd(grdchkvarindex) .eq. 's' ) then |
|
./pkg/grdchk/grdchk_init.F |
90 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
95 |
GRDCHK_INIT |
else if ( ncvargrd(grdchkvarindex) .eq. 'w' ) then |
|
./pkg/grdchk/grdchk_init.F |
98 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_loc.F |
141 |
GRDCHK_LOC |
if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then |
|
./pkg/grdchk/grdchk_loc.F |
152 |
GRDCHK_LOC |
do irec = irecwrk, ncvarrecs(grdchkvarindex) |
|
./pkg/grdchk/grdchk_loc.F |
159 |
GRDCHK_LOC |
do k = kwrk, ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_loc.F |
188 |
GRDCHK_LOC |
do j = jwrk, ncvarymax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_loc.F |
189 |
GRDCHK_LOC |
do i = iwrk, ncvarxmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_loc.F |
191 |
GRDCHK_LOC |
if ( ncvargrd(grdchkvarindex) .eq. 'c' ) then |
|
./pkg/grdchk/grdchk_loc.F |
197 |
GRDCHK_LOC |
else if ( ncvargrd(grdchkvarindex) .eq. 's' ) then |
|
./pkg/grdchk/grdchk_loc.F |
203 |
GRDCHK_LOC |
else if ( ncvargrd(grdchkvarindex) .eq. 'w' ) then |
|
./pkg/grdchk/grdchk_loc.F |
210 |
GRDCHK_LOC |
else if ( ncvargrd(grdchkvarindex) .eq. 'i' ) then |
|
./pkg/grdchk/grdchk_loc.F |
217 |
GRDCHK_LOC |
else if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then |
|
./pkg/grdchk/grdchk_loc.F |
218 |
GRDCHK_LOC |
if ( grdchkvarindex .EQ. 11 ) then |
|
./pkg/grdchk/grdchk_loc.F |
227 |
GRDCHK_LOC |
else if ( grdchkvarindex .EQ. 12 ) then |
|
./pkg/grdchk/grdchk_loc.F |
236 |
GRDCHK_LOC |
else if ( grdchkvarindex .EQ. 13 ) then |
|
./pkg/grdchk/grdchk_loc.F |
245 |
GRDCHK_LOC |
else if ( grdchkvarindex .EQ. 14 ) then |
|
./pkg/grdchk/grdchk_readparms.F |
70 |
GRDCHK_READPARMS |
& grdchkvarindex, |
|
./pkg/grdchk/grdchk_setxx.F |
111 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 2 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
123 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 27 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
135 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 28 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
147 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 3 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
159 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 4 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
171 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 5 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
183 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 6 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
195 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 7 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
207 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 8 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
219 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 9 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
231 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 10 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
243 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 11 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
255 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 12 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
268 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 13 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
281 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 14 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
294 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 15 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
307 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 16 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
320 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 44 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
333 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 17 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
346 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 18 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
358 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 19 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
370 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 20 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
382 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 21 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
395 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 22 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
408 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 23 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
420 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 24 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
432 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 30 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
444 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 31 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
457 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 32 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
469 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 33 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
481 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 34 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
493 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 35 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
505 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 36 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
517 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 37 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
529 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 38 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
541 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 39 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
553 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 40 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
565 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 41 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
577 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 42 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
589 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 43 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
601 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 45 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
613 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 29 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
625 |
GRDCHK_SETXX |
else if ( grdchkvarindex .ge. 101 .and. |
|
./pkg/grdchk/grdchk_setxx.F |
626 |
GRDCHK_SETXX |
& grdchkvarindex .le. 100+maxCtrlArr2D ) then |
|
./pkg/grdchk/grdchk_setxx.F |
628 |
GRDCHK_SETXX |
if ( grdchkvarindex .eq. 100+iarr ) then |
|
./pkg/grdchk/grdchk_setxx.F |
642 |
GRDCHK_SETXX |
else if ( grdchkvarindex .ge. 201 .and. |
|
./pkg/grdchk/grdchk_setxx.F |
643 |
GRDCHK_SETXX |
& grdchkvarindex .le. 200+maxCtrlArr3D ) then |
|
./pkg/grdchk/grdchk_setxx.F |
645 |
GRDCHK_SETXX |
if ( grdchkvarindex .eq. 200+iarr ) then |
|
./pkg/grdchk/grdchk_setxx.F |
659 |
GRDCHK_SETXX |
else if ( grdchkvarindex .ge. 301 .and. |
|
./pkg/grdchk/grdchk_setxx.F |
660 |
GRDCHK_SETXX |
& grdchkvarindex .le. 300+maxCtrlTim2D ) then |
|
./pkg/grdchk/grdchk_setxx.F |
662 |
GRDCHK_SETXX |
if ( grdchkvarindex .eq. 300+iarr ) then |
|
./pkg/grdchk/grdchk_setxx.F |
680 |
GRDCHK_SETXX |
if ( grdchkvarindex.EQ.1 .OR. grdchkvarindex.EQ.2 .OR. |
|
./pkg/grdchk/grdchk_setxx.F |
681 |
GRDCHK_SETXX |
& grdchkvarindex.EQ.27 .OR. grdchkvarindex.EQ.28 .OR. |
|
./pkg/grdchk/grdchk_setxx.F |
682 |
GRDCHK_SETXX |
& grdchkvarindex.EQ.15 .OR. grdchkvarindex.EQ.16 .OR. |
|
./pkg/grdchk/grdchk_setxx.F |
683 |
GRDCHK_SETXX |
& grdchkvarindex.EQ.17 .OR. grdchkvarindex.EQ.21 .OR. |
|
./pkg/grdchk/grdchk_setxx.F |
684 |
GRDCHK_SETXX |
& grdchkvarindex.EQ.22 .OR. grdchkvarindex.EQ.31 .OR. |
|
./pkg/grdchk/grdchk_setxx.F |
685 |
GRDCHK_SETXX |
& grdchkvarindex.EQ.44 |
|
./pkg/grdchk/grdchk_setxx.F |
687 |
GRDCHK_SETXX |
& .OR. ( grdchkvarindex .ge. 201 .and. |
|
./pkg/grdchk/grdchk_setxx.F |
688 |
GRDCHK_SETXX |
& grdchkvarindex .le. 200+maxCtrlArr3D ) |
|
./pkg/grdchk/grdchk_setxx.F |
702 |
GRDCHK_SETXX |
elseif ( grdchkvarindex.EQ.11 .OR. grdchkvarindex.EQ.12) then |
|
./pkg/grdchk/grdchk_setxx.F |
714 |
GRDCHK_SETXX |
elseif ( grdchkvarindex.EQ.13 .OR. grdchkvarindex.EQ.14) then |
|
./pkg/grdchk/grdchk_setxx.F |
95 |
GRDCHK_SETXX |
if ( grdchkvarindex .eq. 0 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
99 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 1 ) then |