<p><b>duda</b> 2012-07-13 12:19:50 -0600 (Fri, 13 Jul 2012)</p><p>BRANCH COMMIT<br>
<br>
Registry fix: get an updated value for struct_deref in each iteration of the loop of the code<br>
that produces non_decomp_copy_input_fields.inc, regardless of whether the field is decomposed<br>
or not.<br>
<br>
<br>
M src/registry/gen_inc.c<br>
</p><hr noshade><pre><font color="gray">Modified: branches/omp_blocks/multiple_blocks/src/registry/gen_inc.c
===================================================================
--- branches/omp_blocks/multiple_blocks/src/registry/gen_inc.c        2012-07-12 20:50:30 UTC (rev 2021)
+++ branches/omp_blocks/multiple_blocks/src/registry/gen_inc.c        2012-07-13 18:19:50 UTC (rev 2022)
@@ -2128,15 +2128,16 @@
i = 1;
while (dimlist_ptr) {
if (i == var_ptr->ndims) {
- if (!strncmp(dimlist_ptr->dim->name_in_file, "nCells", 1024) ||
- !strncmp(dimlist_ptr->dim->name_in_file, "nEdges", 1024) ||
- !strncmp(dimlist_ptr->dim->name_in_file, "nVertices", 1024)) {
-
+
if (var_ptr->ntime_levs > 1) {
snprintf(struct_deref, 1024, "domain %% blocklist %% %s %% time_levs(1) %% %s", group_ptr->name, group_ptr->name);
                                 } else {
snprintf(struct_deref, 1024, "domain %% blocklist %% %s", group_ptr->name);
                                 }
+
+ if (!strncmp(dimlist_ptr->dim->name_in_file, "nCells", 1024) ||
+ !strncmp(dimlist_ptr->dim->name_in_file, "nEdges", 1024) ||
+ !strncmp(dimlist_ptr->dim->name_in_file, "nVertices", 1024)) {
if (strncmp(var_ptr->super_array, "-", 1024) != 0) {
fortprintf(fd, " if ((%s %% %s %% ioinfo %% input .and. input_obj %% stream == STREAM_INPUT) .or. &</font>
<font color="black">", struct_deref, var_ptr->super_array);
</font>
</pre>