<p><b>laura@ucar.edu</b> 2010-07-23 17:23:46 -0600 (Fri, 23 Jul 2010)</p><p>merged with revision 390 from trunk<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/registry/gen_inc.c
===================================================================
--- branches/atmos_physics/src/registry/gen_inc.c        2010-07-23 23:13:55 UTC (rev 435)
+++ branches/atmos_physics/src/registry/gen_inc.c        2010-07-23 23:23:46 UTC (rev 436)
@@ -421,6 +421,7 @@
dimlist_ptr = dimlist_ptr->next;
}
fortprintf(fd, "))</font>
<font color="blue">");
+ fortprintf(fd, " g %% %s %% array = 0</font>
<font color="black">", var_ptr2->super_array ); /* initialize field to zero */
if (var_ptr2->iostreams & INPUT0)
fortprintf(fd, " g %% %s %% ioinfo %% input = .true.</font>
<font color="gray">", var_ptr2->super_array);
@@ -463,7 +464,8 @@
dimlist_ptr = dimlist_ptr->next;
}
fortprintf(fd, "))</font>
<font color="red">");
-
+ fortprintf(fd, " g %% %s %% array = 0</font>
<font color="blue">", var_ptr->name_in_code ); /* initialize field to zero */
+
}
if (var_ptr->iostreams & INPUT0)
fortprintf(fd, " g %% %s %% ioinfo %% input = .true.</font>
<font color="black">", var_ptr->name_in_code);
</font>
</pre>