<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-&gt;next;
             }
             fortprintf(fd, &quot;))</font>
<font color="blue">&quot;);
+            fortprintf(fd, &quot;      g %% %s %% array = 0</font>
<font color="black">&quot;, var_ptr2-&gt;super_array ); /* initialize field to zero */
 
             if (var_ptr2-&gt;iostreams &amp; INPUT0) 
                fortprintf(fd, &quot;      g %% %s %% ioinfo %% input = .true.</font>
<font color="gray">&quot;, var_ptr2-&gt;super_array);
@@ -463,7 +464,8 @@
                   dimlist_ptr = dimlist_ptr-&gt;next;
                }
                fortprintf(fd, &quot;))</font>
<font color="red">&quot;);
-   
+               fortprintf(fd, &quot;      g %% %s %% array = 0</font>
<font color="blue">&quot;, var_ptr-&gt;name_in_code ); /* initialize field to zero */
+
             }
             if (var_ptr-&gt;iostreams &amp; INPUT0) 
                fortprintf(fd, &quot;      g %% %s %% ioinfo %% input = .true.</font>
<font color="black">&quot;, var_ptr-&gt;name_in_code);

</font>
</pre>