<p><b>duda</b> 2011-12-06 14:00:00 -0700 (Tue, 06 Dec 2011)</p><p>BRANCH COMMIT<br>
<br>
Add debugging print statements before each call to PIO_initdecomp.<br>
<br>
<br>
M    src/registry/gen_inc.c<br>
</p><hr noshade><pre><font color="gray">Modified: branches/pio/src/registry/gen_inc.c
===================================================================
--- branches/pio/src/registry/gen_inc.c        2011-12-06 19:36:47 UTC (rev 1238)
+++ branches/pio/src/registry/gen_inc.c        2011-12-06 21:00:00 UTC (rev 1239)
@@ -2574,12 +2574,14 @@
             }
 
             fortprintf(fd, &quot;         write(0,*) \'Calling PIO_initdecomp for %s\'</font>
<font color="blue">&quot;, temp);
+            fortprintf(fd, &quot;         call mpas_timer_start(\'%s\')</font>
<font color="black">&quot;, temp);
             if (var_ptr-&gt;vtype == INTEGER) 
                fortprintf(fd, &quot;         call PIO_initdecomp(output_obj %% pio_iosystem, PIO_INT, dimids(1:%i), compdof, output_obj %% iodesc%s)</font>
<font color="black">&quot;, var_ptr-&gt;ndims, temp);
             else if (var_ptr-&gt;vtype == REAL) 
                fortprintf(fd, &quot;         call PIO_initdecomp(output_obj %% pio_iosystem, PIO_DOUBLE, dimids(1:%i), compdof, output_obj %% iodesc%s)</font>
<font color="black">&quot;, var_ptr-&gt;ndims, temp);
             else
                fortprintf(fd, &quot;         call PIO_initdecomp(output_obj %% pio_iosystem, PIO_INT, dimids(1:%i), compdof, output_obj %% iodesc%s)</font>
<font color="blue">&quot;, var_ptr-&gt;ndims, temp);
+            fortprintf(fd, &quot;         call mpas_timer_stop(\'%s\')</font>
<font color="black">&quot;, temp);
 
             fortprintf(fd, &quot;         deallocate(compdof)</font>
<font color="black">&quot;);
             fortprintf(fd, &quot;</font>
<font color="black">&quot;);

</font>
</pre>