<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("read_dims.inc", "w");
dim_ptr = dims;
while (dim_ptr) {
- if (dim_ptr->constant_value < 0 && !dim_ptr->namelist_defined && !is_derived_dim(dim_ptr->name_in_code)) fortprintf(fd, " call MPAS_io_inq_dim(inputHandle, \'%s\', %s, ierr)</font>
<font color="blue">", dim_ptr->name_in_file, dim_ptr->name_in_code);
+ if (dim_ptr->constant_value < 0 && !dim_ptr->namelist_defined && !is_derived_dim(dim_ptr->name_in_code)) fortprintf(fd, " call MPAS_io_inq_dim(gridInputHandle, \'%s\', %s, ierr)</font>
<font color="black">", dim_ptr->name_in_file, dim_ptr->name_in_code);
else if (dim_ptr->constant_value < 0 && dim_ptr->namelist_defined && !is_derived_dim(dim_ptr->name_in_code)) fortprintf(fd, " %s = %s</font>
<font color="black">", dim_ptr->name_in_file, dim_ptr->name_in_code);
dim_ptr = dim_ptr->next;
}
</font>
</pre>