| File |
Line number |
Procedure |
Code |
|
./pkg/grdchk/grdchk_loc.F |
120 |
GRDCHK_LOC |
if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then |
|
./pkg/grdchk/grdchk_loc.F |
127 |
GRDCHK_LOC |
do irec = irecwrk, ncvarrecs(grdchkvarindex) |
|
./pkg/grdchk/grdchk_loc.F |
132 |
GRDCHK_LOC |
do k = kwrk, ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_loc.F |
141 |
GRDCHK_LOC |
do j = jwrk, ncvarymax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_loc.F |
142 |
GRDCHK_LOC |
do i = iwrk, ncvarxmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_loc.F |
144 |
GRDCHK_LOC |
if ( ncvargrd(grdchkvarindex) .eq. 'c' ) then |
|
./pkg/grdchk/grdchk_loc.F |
148 |
GRDCHK_LOC |
else if ( ncvargrd(grdchkvarindex) .eq. 's' ) then |
|
./pkg/grdchk/grdchk_loc.F |
152 |
GRDCHK_LOC |
else if ( ncvargrd(grdchkvarindex) .eq. 'w' ) then |
|
./pkg/grdchk/grdchk_loc.F |
156 |
GRDCHK_LOC |
else if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then |
|
./pkg/grdchk/grdchk_loc.F |
157 |
GRDCHK_LOC |
if ( grdchkvarindex .EQ. 11 ) then |
|
./pkg/grdchk/grdchk_loc.F |
163 |
GRDCHK_LOC |
else if ( grdchkvarindex .EQ. 12 ) then |
|
./pkg/grdchk/grdchk_loc.F |
169 |
GRDCHK_LOC |
else if ( grdchkvarindex .EQ. 13 ) then |
|
./pkg/grdchk/grdchk_loc.F |
175 |
GRDCHK_LOC |
else if ( grdchkvarindex .EQ. 14 ) then |
|
./pkg/grdchk/grdchk.h |
36 |
NO PROCEDURE |
& grdchkvarindex, |
|
./pkg/grdchk/grdchk.h |
47 |
NO PROCEDURE |
integer grdchkvarindex |
|
./pkg/grdchk/grdchk_init.F |
100 |
GRDCHK_INIT |
else if ( ncvargrd(grdchkvarindex) .eq. 'v' ) then |
|
./pkg/grdchk/grdchk_init.F |
103 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
108 |
GRDCHK_INIT |
else if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then |
|
./pkg/grdchk/grdchk_init.F |
111 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
113 |
GRDCHK_INIT |
if ( grdchkvarindex .eq. 11 ) then |
|
./pkg/grdchk/grdchk_init.F |
118 |
GRDCHK_INIT |
else if ( grdchkvarindex .eq. 12 ) then |
|
./pkg/grdchk/grdchk_init.F |
123 |
GRDCHK_INIT |
else if ( grdchkvarindex .eq. 13 ) then |
|
./pkg/grdchk/grdchk_init.F |
128 |
GRDCHK_INIT |
else if ( grdchkvarindex .eq. 14 ) then |
|
./pkg/grdchk/grdchk_init.F |
155 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
159 |
GRDCHK_INIT |
& ncvarxmax(grdchkvarindex)* |
|
./pkg/grdchk/grdchk_init.F |
160 |
GRDCHK_INIT |
& ncvarymax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
165 |
GRDCHK_INIT |
ncvarcomp = ncvarcomp*ncvarrecs(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
166 |
GRDCHK_INIT |
maxncvarcomps = maxncvarcomps*ncvarrecs(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
66 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
76 |
GRDCHK_INIT |
if ( ncvargrd(grdchkvarindex) .eq. 'c' ) then |
|
./pkg/grdchk/grdchk_init.F |
79 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
84 |
GRDCHK_INIT |
else if ( ncvargrd(grdchkvarindex) .eq. 's' ) then |
|
./pkg/grdchk/grdchk_init.F |
87 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_init.F |
92 |
GRDCHK_INIT |
else if ( ncvargrd(grdchkvarindex) .eq. 'w' ) then |
|
./pkg/grdchk/grdchk_init.F |
95 |
GRDCHK_INIT |
do k = 1,ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_setxx.F |
107 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 2 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
130 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 3 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
153 |
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 |
199 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 6 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
222 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 7 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
245 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 8 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
268 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 9 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
291 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 10 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
314 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 11 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
337 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 12 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
360 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 13 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
383 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 14 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
406 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 17 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
429 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 18 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
452 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 18 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
475 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 20 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
513 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 21 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
537 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 22 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
80 |
GRDCHK_SETXX |
if ( grdchkvarindex .eq. 0 ) then |
|
./pkg/grdchk/grdchk_setxx.F |
84 |
GRDCHK_SETXX |
else if ( grdchkvarindex .eq. 1 ) then |
|
./pkg/grdchk/grdchk_readparms.F |
65 |
GRDCHK_READPARMS |
& grdchkvarindex, |
|
./pkg/grdchk/grdchk_getadxx.F |
112 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 3 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
127 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 4 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
142 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 5 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
157 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 6 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
172 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 7 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
187 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 8 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
202 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 9 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
217 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 10 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
232 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 11 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
247 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 12 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
262 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 13 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
277 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 14 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
292 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 17 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
307 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 18 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
322 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 19 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
337 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 20 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
363 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 21 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
378 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 22 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
78 |
GRDCHK_GETADXX |
if ( grdchkvarindex .eq. 0 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
82 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 1 ) then |
|
./pkg/grdchk/grdchk_getadxx.F |
97 |
GRDCHK_GETADXX |
else if ( grdchkvarindex .eq. 2 ) then |
|
./pkg/grdchk/grdchk_get_position.F |
108 |
GRDCHK_GET_POSITION |
if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then |
|
./pkg/grdchk/grdchk_get_position.F |
115 |
GRDCHK_GET_POSITION |
do irec = irecwrk, ncvarrecs(grdchkvarindex) |
|
./pkg/grdchk/grdchk_get_position.F |
119 |
GRDCHK_GET_POSITION |
do k = kwrk, ncvarnrmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_get_position.F |
126 |
GRDCHK_GET_POSITION |
do j = jwrk, ncvarymax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_get_position.F |
127 |
GRDCHK_GET_POSITION |
do i = iwrk, ncvarxmax(grdchkvarindex) |
|
./pkg/grdchk/grdchk_get_position.F |
129 |
GRDCHK_GET_POSITION |
if ( ncvargrd(grdchkvarindex) .eq. 'c' ) then |
|
./pkg/grdchk/grdchk_get_position.F |
134 |
GRDCHK_GET_POSITION |
else if ( ncvargrd(grdchkvarindex) .eq. 's' ) then |
|
./pkg/grdchk/grdchk_get_position.F |
139 |
GRDCHK_GET_POSITION |
else if ( ncvargrd(grdchkvarindex) .eq. 'w' ) then |
|
./pkg/grdchk/grdchk_get_position.F |
144 |
GRDCHK_GET_POSITION |
else if ( ncvargrd(grdchkvarindex) .eq. 'm' ) then |
|
./pkg/grdchk/grdchk_get_position.F |
145 |
GRDCHK_GET_POSITION |
if ( grdchkvarindex .EQ. 11 ) then |
|
./pkg/grdchk/grdchk_get_position.F |
152 |
GRDCHK_GET_POSITION |
else if ( grdchkvarindex .EQ. 12 ) then |
|
./pkg/grdchk/grdchk_get_position.F |
159 |
GRDCHK_GET_POSITION |
else if ( grdchkvarindex .EQ. 13 ) then |
|
./pkg/grdchk/grdchk_get_position.F |
166 |
GRDCHK_GET_POSITION |
else if ( grdchkvarindex .EQ. 14 ) then |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
113 |
GRDCHK_GET_OBCS_MASK |
else if ( grdchkvarindex .EQ. 13 ) then |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
136 |
GRDCHK_GET_OBCS_MASK |
else if ( grdchkvarindex .EQ. 14 ) then |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
67 |
GRDCHK_GET_OBCS_MASK |
if ( grdchkvarindex .EQ. 11 ) then |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
90 |
GRDCHK_GET_OBCS_MASK |
else if ( grdchkvarindex .EQ. 12 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
112 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 2 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
137 |
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 |
187 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 5 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
212 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 6 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
237 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 7 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
262 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 8 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
287 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 9 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
312 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 10 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
337 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 11 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
362 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 12 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
387 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 13 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
412 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 14 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
437 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 17 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
462 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 18 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
487 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 19 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
512 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 20 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
554 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 21 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
580 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 22 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
83 |
GRDCHK_GETXX |
if ( grdchkvarindex .eq. 0 ) then |
|
./pkg/grdchk/grdchk_getxx.F |
87 |
GRDCHK_GETXX |
else if ( grdchkvarindex .eq. 1 ) then |