<p><b>duda</b> 2012-10-04 17:17:23 -0600 (Thu, 04 Oct 2012)</p><p>BRANCH COMMIT<br>
<br>
Grid dimensions used in model startup need to be read from the grid input stream.<br>
<br>
<br>
M    src/registry/gen_inc.c<br>
</p><hr noshade><pre><font color="gray">Modified: branches/asd_io_work/src/registry/gen_inc.c
===================================================================
--- branches/asd_io_work/src/registry/gen_inc.c        2012-10-04 23:16:17 UTC (rev 2191)
+++ branches/asd_io_work/src/registry/gen_inc.c        2012-10-04 23:17:23 UTC (rev 2192)
@@ -347,7 +347,7 @@
    fd = fopen(&quot;read_dims.inc&quot;, &quot;w&quot;);
    dim_ptr = dims;
    while (dim_ptr) {
-      if (dim_ptr-&gt;constant_value &lt; 0 &amp;&amp; !dim_ptr-&gt;namelist_defined &amp;&amp; !is_derived_dim(dim_ptr-&gt;name_in_code)) fortprintf(fd, &quot;      call MPAS_io_inq_dim(inputHandle, \'%s\', %s, ierr)</font>
<font color="blue">&quot;, dim_ptr-&gt;name_in_file, dim_ptr-&gt;name_in_code);
+      if (dim_ptr-&gt;constant_value &lt; 0 &amp;&amp; !dim_ptr-&gt;namelist_defined &amp;&amp; !is_derived_dim(dim_ptr-&gt;name_in_code)) fortprintf(fd, &quot;      call MPAS_io_inq_dim(gridInputHandle, \'%s\', %s, ierr)</font>
<font color="black">&quot;, dim_ptr-&gt;name_in_file, dim_ptr-&gt;name_in_code);
       else if (dim_ptr-&gt;constant_value &lt; 0 &amp;&amp; dim_ptr-&gt;namelist_defined &amp;&amp; !is_derived_dim(dim_ptr-&gt;name_in_code)) fortprintf(fd, &quot;      %s = %s</font>
<font color="black">&quot;, dim_ptr-&gt;name_in_file, dim_ptr-&gt;name_in_code);
       dim_ptr = dim_ptr-&gt;next;
    }

</font>
</pre>