| 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 |
101 |
GRDCHK_GET_OBCS_MASK |
else if ( grdchkvarindex .EQ. 12 ) then |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
124 |
GRDCHK_GET_OBCS_MASK |
else if ( grdchkvarindex .EQ. 13 ) then |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
147 |
GRDCHK_GET_OBCS_MASK |
else if ( grdchkvarindex .EQ. 14 ) then |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
78 |
GRDCHK_GET_OBCS_MASK |
if ( grdchkvarindex .EQ. 11 ) then |
|
./pkg/grdchk/grdchk_get_position.F |
119 |
GRDCHK_GET_POSITION |
if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then |
|
./pkg/grdchk/grdchk_get_position.F |
126 |
GRDCHK_GET_POSITION |
do irec = irecwrk, ncvarrecs(grdchkvarindex) |
|
./pkg/grdchk/grdchk_get_position.F |
132 |
GRDCHK_GET_POSITION |
do k = kwrk, ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_get_position.F |
141 |
GRDCHK_GET_POSITION |
do j = jwrk, ncvarymax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_get_position.F |
142 |
GRDCHK_GET_POSITION |
do i = iwrk, ncvarxmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_get_position.F |
144 |
GRDCHK_GET_POSITION |
if ( ncvargrd(grdchkvarindex) .eq. 'c' ) then |
|
./pkg/grdchk/grdchk_get_position.F |
149 |
GRDCHK_GET_POSITION |
else if ( ncvargrd(grdchkvarindex) .eq. 's' ) then |
|
./pkg/grdchk/grdchk_get_position.F |
154 |
GRDCHK_GET_POSITION |
else if ( ncvargrd(grdchkvarindex) .eq. 'w' ) then |
|
./pkg/grdchk/grdchk_get_position.F |
161 |
GRDCHK_GET_POSITION |
else if ( ncvargrd(grdchkvarindex) .eq. 'i' ) then |
|
./pkg/grdchk/grdchk_get_position.F |
167 |
GRDCHK_GET_POSITION |
else if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then |
|
./pkg/grdchk/grdchk_get_position.F |
168 |
GRDCHK_GET_POSITION |
if ( grdchkvarindex .EQ. 11 ) then |
|
./pkg/grdchk/grdchk_get_position.F |
176 |
GRDCHK_GET_POSITION |
else if ( grdchkvarindex .EQ. 12 ) then |
|
./pkg/grdchk/grdchk_get_position.F |
184 |
GRDCHK_GET_POSITION |
else if ( grdchkvarindex .EQ. 13 ) then |
|
./pkg/grdchk/grdchk_get_position.F |
192 |
GRDCHK_GET_POSITION |
else if ( grdchkvarindex .EQ. 14 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
102 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 1 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
110 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 2 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
118 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 27 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
126 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 28 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
134 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 3 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
142 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 4 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
150 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 5 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
158 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 6 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
166 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 7 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
174 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 8 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
182 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 9 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
190 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 10 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
200 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 11 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
208 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 12 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
216 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 13 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
224 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 14 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
234 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 15 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
242 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 16 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
250 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 44 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
258 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 17 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
266 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 18 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
274 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 19 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
282 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 20 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
290 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 21 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
298 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 22 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
306 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 23 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
314 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 24 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
322 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 30 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
330 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 31 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
338 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 32 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
346 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 33 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
354 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 34 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
362 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 35 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
370 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 36 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
378 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 37 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
386 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 38 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
394 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 39 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
402 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 40 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
410 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 41 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
418 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 42 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
426 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 43 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
434 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 45 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
442 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 29 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
452 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .ge. 101 .and. |
|
./pkg/grdchk/grdchk_getadxx.F |
453 |
GRDCHK_GETADXX |
& grdchkvarindex .le. 100+maxCtrlArr2D ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
455 |
GRDCHK_GETADXX |
if ( grdchkvarindex .eq. 100+iarr ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
465 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .ge. 201 .and. |
|
./pkg/grdchk/grdchk_getadxx.F |
466 |
GRDCHK_GETADXX |
& grdchkvarindex .le. 200+maxCtrlArr3D ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
468 |
GRDCHK_GETADXX |
if ( grdchkvarindex .eq. 200+iarr ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
478 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .ge. 301 .and. |
|
./pkg/grdchk/grdchk_getadxx.F |
479 |
GRDCHK_GETADXX |
& grdchkvarindex .le. 300+maxCtrlTim2D ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
481 |
GRDCHK_GETADXX |
if ( grdchkvarindex .eq. 300+iarr ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
495 |
GRDCHK_GETADXX |
if ( grdchkvarindex.EQ.1 .OR. grdchkvarindex.EQ.2 .OR. |
|
./pkg/grdchk/grdchk_getadxx.F |
496 |
GRDCHK_GETADXX |
& grdchkvarindex.EQ.27 .OR. grdchkvarindex.EQ.28 .OR. |
|
./pkg/grdchk/grdchk_getadxx.F |
497 |
GRDCHK_GETADXX |
& grdchkvarindex.EQ.15 .OR. grdchkvarindex.EQ.16 .OR. |
|
./pkg/grdchk/grdchk_getadxx.F |
498 |
GRDCHK_GETADXX |
& grdchkvarindex.EQ.17 .OR. grdchkvarindex.EQ.21 .OR. |
|
./pkg/grdchk/grdchk_getadxx.F |
499 |
GRDCHK_GETADXX |
& grdchkvarindex.EQ.22 .OR. grdchkvarindex.EQ.31 .OR. |
|
./pkg/grdchk/grdchk_getadxx.F |
500 |
GRDCHK_GETADXX |
& grdchkvarindex.EQ.44 |
|
./pkg/grdchk/grdchk_getadxx.F |
502 |
GRDCHK_GETADXX |
& .OR. ( grdchkvarindex .ge. 201 .and. |
|
./pkg/grdchk/grdchk_getadxx.F |
503 |
GRDCHK_GETADXX |
& grdchkvarindex .le. 200+maxCtrlArr3D ) |
|
./pkg/grdchk/grdchk_getadxx.F |
514 |
GRDCHK_GETADXX |
elseif ( grdchkvarindex.EQ.11 .OR. grdchkvarindex.EQ.12) then |
|
./pkg/grdchk/grdchk_getadxx.F |
523 |
GRDCHK_GETADXX |
elseif ( grdchkvarindex.EQ.13 .OR. grdchkvarindex.EQ.14) then |
|
./pkg/grdchk/grdchk_getadxx.F |
96 |
GRDCHK_GETADXX |
if ( grdchkvarindex .eq. 0 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
101 |
GRDCHK_GETXX |
if ( grdchkvarindex .eq. 0 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
107 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 1 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
119 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 2 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
131 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 27 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
143 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 28 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
155 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 3 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
167 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 4 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
179 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 5 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
191 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 6 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
203 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 7 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
215 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 8 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
227 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 9 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
239 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 10 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
253 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 11 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
265 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 12 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
277 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 13 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
289 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 14 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
303 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 15 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
315 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 16 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
327 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 44 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
339 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 17 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
351 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 18 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
363 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 19 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
375 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 20 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
387 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 21 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
400 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 22 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
413 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 23 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
425 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 24 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
437 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 30 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
449 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 31 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
461 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 32 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
473 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 33 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
485 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 34 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
497 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 35 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
509 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 36 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
521 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 37 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
533 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 38 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
545 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 39 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
557 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 40 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
569 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 41 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
581 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 42 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
593 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 43 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
605 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 45 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
617 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 29 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
631 |
GRDCHK_GETXX |
else if ( grdchkvarindex .ge. 101 .and. |
|
./pkg/grdchk/grdchk_getxx.F |
632 |
GRDCHK_GETXX |
& grdchkvarindex .le. 100+maxCtrlArr2D ) then |
|
./pkg/grdchk/grdchk_getxx.F |
634 |
GRDCHK_GETXX |
if ( grdchkvarindex .eq. 100+iarr ) then |
|
./pkg/grdchk/grdchk_getxx.F |
648 |
GRDCHK_GETXX |
else if ( grdchkvarindex .ge. 201 .and. |
|
./pkg/grdchk/grdchk_getxx.F |
649 |
GRDCHK_GETXX |
& grdchkvarindex .le. 200+maxCtrlArr3D ) then |
|
./pkg/grdchk/grdchk_getxx.F |
651 |
GRDCHK_GETXX |
if ( grdchkvarindex .eq. 200+iarr ) then |
|
./pkg/grdchk/grdchk_getxx.F |
665 |
GRDCHK_GETXX |
else if ( grdchkvarindex .ge. 301 .and. |
|
./pkg/grdchk/grdchk_getxx.F |
666 |
GRDCHK_GETXX |
& grdchkvarindex .le. 300+maxCtrlTim2D ) then |
|
./pkg/grdchk/grdchk_getxx.F |
668 |
GRDCHK_GETXX |
if ( grdchkvarindex .eq. 300+iarr ) then |
|
./pkg/grdchk/grdchk_getxx.F |
689 |
GRDCHK_GETXX |
if ( grdchkvarindex.EQ.1 .OR. grdchkvarindex.EQ.2 .OR. |
|
./pkg/grdchk/grdchk_getxx.F |
690 |
GRDCHK_GETXX |
& grdchkvarindex.EQ.27 .OR. grdchkvarindex.EQ.28 .OR. |
|
./pkg/grdchk/grdchk_getxx.F |
691 |
GRDCHK_GETXX |
& grdchkvarindex.EQ.15 .OR. grdchkvarindex.EQ.16 .OR. |
|
./pkg/grdchk/grdchk_getxx.F |
692 |
GRDCHK_GETXX |
& grdchkvarindex.EQ.17 .OR. grdchkvarindex.EQ.21 .OR. |
|
./pkg/grdchk/grdchk_getxx.F |
693 |
GRDCHK_GETXX |
& grdchkvarindex.EQ.22 .OR. grdchkvarindex.EQ.31 .OR. |
|
./pkg/grdchk/grdchk_getxx.F |
694 |
GRDCHK_GETXX |
& grdchkvarindex.EQ.44 |
|
./pkg/grdchk/grdchk_getxx.F |
696 |
GRDCHK_GETXX |
& .OR. ( grdchkvarindex .ge. 201 .and. |
|
./pkg/grdchk/grdchk_getxx.F |
697 |
GRDCHK_GETXX |
& grdchkvarindex .le. 200+maxCtrlArr3D ) |
|
./pkg/grdchk/grdchk_getxx.F |
715 |
GRDCHK_GETXX |
elseif ( grdchkvarindex.EQ.11 .OR. grdchkvarindex.EQ.12) then |
|
./pkg/grdchk/grdchk_getxx.F |
731 |
GRDCHK_GETXX |
elseif ( grdchkvarindex.EQ.13 .OR. grdchkvarindex.EQ.14) then |
|
./pkg/grdchk/grdchk_init.F |
104 |
GRDCHK_INIT |
else if ( ncvargrd(grdchkvarindex) .eq. 'v' ) then |
|
./pkg/grdchk/grdchk_init.F |
107 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
113 |
GRDCHK_INIT |
else if ( ncvargrd(grdchkvarindex) .eq. 'i' ) then |
|
./pkg/grdchk/grdchk_init.F |
116 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
122 |
GRDCHK_INIT |
else if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then |
|
./pkg/grdchk/grdchk_init.F |
125 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
127 |
GRDCHK_INIT |
if ( grdchkvarindex .eq. 11 ) then |
|
./pkg/grdchk/grdchk_init.F |
132 |
GRDCHK_INIT |
else if ( grdchkvarindex .eq. 12 ) then |
|
./pkg/grdchk/grdchk_init.F |
137 |
GRDCHK_INIT |
else if ( grdchkvarindex .eq. 13 ) then |
|
./pkg/grdchk/grdchk_init.F |
142 |
GRDCHK_INIT |
else if ( grdchkvarindex .eq. 14 ) then |
|
./pkg/grdchk/grdchk_init.F |
169 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
173 |
GRDCHK_INIT |
& ncvarxmax(grdchkvarindex)* |
|
./pkg/grdchk/grdchk_init.F |
174 |
GRDCHK_INIT |
& ncvarymax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
179 |
GRDCHK_INIT |
ncvarcomp = ncvarcomp*ncvarrecs(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
180 |
GRDCHK_INIT |
maxncvarcomps = maxncvarcomps*ncvarrecs(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
185 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
70 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
80 |
GRDCHK_INIT |
if ( ncvargrd(grdchkvarindex) .eq. 'c' ) then |
|
./pkg/grdchk/grdchk_init.F |
83 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
88 |
GRDCHK_INIT |
else if ( ncvargrd(grdchkvarindex) .eq. 's' ) then |
|
./pkg/grdchk/grdchk_init.F |
91 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
96 |
GRDCHK_INIT |
else if ( ncvargrd(grdchkvarindex) .eq. 'w' ) then |
|
./pkg/grdchk/grdchk_init.F |
99 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_loc.F |
142 |
GRDCHK_LOC |
if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then |
|
./pkg/grdchk/grdchk_loc.F |
153 |
GRDCHK_LOC |
do irec = irecwrk, ncvarrecs(grdchkvarindex) |
|
./pkg/grdchk/grdchk_loc.F |
160 |
GRDCHK_LOC |
do k = kwrk, ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_loc.F |
189 |
GRDCHK_LOC |
do j = jwrk, ncvarymax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_loc.F |
190 |
GRDCHK_LOC |
do i = iwrk, ncvarxmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_loc.F |
192 |
GRDCHK_LOC |
if ( ncvargrd(grdchkvarindex) .eq. 'c' ) then |
|
./pkg/grdchk/grdchk_loc.F |
198 |
GRDCHK_LOC |
else if ( ncvargrd(grdchkvarindex) .eq. 's' ) then |
|
./pkg/grdchk/grdchk_loc.F |
204 |
GRDCHK_LOC |
else if ( ncvargrd(grdchkvarindex) .eq. 'w' ) then |
|
./pkg/grdchk/grdchk_loc.F |
211 |
GRDCHK_LOC |
else if ( ncvargrd(grdchkvarindex) .eq. 'i' ) then |
|
./pkg/grdchk/grdchk_loc.F |
218 |
GRDCHK_LOC |
else if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then |
|
./pkg/grdchk/grdchk_loc.F |
219 |
GRDCHK_LOC |
if ( grdchkvarindex .EQ. 11 ) then |
|
./pkg/grdchk/grdchk_loc.F |
228 |
GRDCHK_LOC |
else if ( grdchkvarindex .EQ. 12 ) then |
|
./pkg/grdchk/grdchk_loc.F |
237 |
GRDCHK_LOC |
else if ( grdchkvarindex .EQ. 13 ) then |
|
./pkg/grdchk/grdchk_loc.F |
246 |
GRDCHK_LOC |
else if ( grdchkvarindex .EQ. 14 ) then |
|
./pkg/grdchk/grdchk_readparms.F |
70 |
GRDCHK_READPARMS |
& grdchkvarindex, |
|
./pkg/grdchk/grdchk_setxx.F |
104 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 1 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
116 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 2 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
128 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 27 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
140 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 28 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
152 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 3 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
164 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 4 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
176 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 5 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
188 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 6 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
200 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 7 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
212 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 8 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
224 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 9 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
236 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 10 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
250 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 11 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
262 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 12 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
275 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 13 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
288 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 14 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
303 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 15 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
316 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 16 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
329 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 44 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
342 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 17 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
355 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 18 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
367 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 19 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
379 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 20 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
391 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 21 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
404 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 22 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
417 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 23 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
429 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 24 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
441 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 30 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
453 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 31 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
466 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 32 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
478 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 33 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
490 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 34 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
502 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 35 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
514 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 36 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
526 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 37 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
538 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 38 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
550 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 39 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
562 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 40 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
574 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 41 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
586 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 42 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
598 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 43 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
610 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 45 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
622 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 29 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
636 |
GRDCHK_SETXX |
else if ( grdchkvarindex .ge. 101 .and. |
|
./pkg/grdchk/grdchk_setxx.F |
637 |
GRDCHK_SETXX |
& grdchkvarindex .le. 100+maxCtrlArr2D ) then |
|
./pkg/grdchk/grdchk_setxx.F |
639 |
GRDCHK_SETXX |
if ( grdchkvarindex .eq. 100+iarr ) then |
|
./pkg/grdchk/grdchk_setxx.F |
653 |
GRDCHK_SETXX |
else if ( grdchkvarindex .ge. 201 .and. |
|
./pkg/grdchk/grdchk_setxx.F |
654 |
GRDCHK_SETXX |
& grdchkvarindex .le. 200+maxCtrlArr3D ) then |
|
./pkg/grdchk/grdchk_setxx.F |
656 |
GRDCHK_SETXX |
if ( grdchkvarindex .eq. 200+iarr ) then |
|
./pkg/grdchk/grdchk_setxx.F |
670 |
GRDCHK_SETXX |
else if ( grdchkvarindex .ge. 301 .and. |
|
./pkg/grdchk/grdchk_setxx.F |
671 |
GRDCHK_SETXX |
& grdchkvarindex .le. 300+maxCtrlTim2D ) then |
|
./pkg/grdchk/grdchk_setxx.F |
673 |
GRDCHK_SETXX |
if ( grdchkvarindex .eq. 300+iarr ) then |
|
./pkg/grdchk/grdchk_setxx.F |
691 |
GRDCHK_SETXX |
if ( grdchkvarindex.EQ.1 .OR. grdchkvarindex.EQ.2 .OR. |
|
./pkg/grdchk/grdchk_setxx.F |
692 |
GRDCHK_SETXX |
& grdchkvarindex.EQ.27 .OR. grdchkvarindex.EQ.28 .OR. |
|
./pkg/grdchk/grdchk_setxx.F |
693 |
GRDCHK_SETXX |
& grdchkvarindex.EQ.15 .OR. grdchkvarindex.EQ.16 .OR. |
|
./pkg/grdchk/grdchk_setxx.F |
694 |
GRDCHK_SETXX |
& grdchkvarindex.EQ.17 .OR. grdchkvarindex.EQ.21 .OR. |
|
./pkg/grdchk/grdchk_setxx.F |
695 |
GRDCHK_SETXX |
& grdchkvarindex.EQ.22 .OR. grdchkvarindex.EQ.31 .OR. |
|
./pkg/grdchk/grdchk_setxx.F |
696 |
GRDCHK_SETXX |
& grdchkvarindex.EQ.44 |
|
./pkg/grdchk/grdchk_setxx.F |
698 |
GRDCHK_SETXX |
& .OR. ( grdchkvarindex .ge. 201 .and. |
|
./pkg/grdchk/grdchk_setxx.F |
699 |
GRDCHK_SETXX |
& grdchkvarindex .le. 200+maxCtrlArr3D ) |
|
./pkg/grdchk/grdchk_setxx.F |
713 |
GRDCHK_SETXX |
elseif ( grdchkvarindex.EQ.11 .OR. grdchkvarindex.EQ.12) then |
|
./pkg/grdchk/grdchk_setxx.F |
725 |
GRDCHK_SETXX |
elseif ( grdchkvarindex.EQ.13 .OR. grdchkvarindex.EQ.14) then |
|
./pkg/grdchk/grdchk_setxx.F |
98 |
GRDCHK_SETXX |
if ( grdchkvarindex .eq. 0 ) then |
|
./pkg/grdchk/grdchk_summary.F |
65 |
GRDCHK_SUMMARY |
&' grdchkvarindex : ',grdchkvarindex |