<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, " write(0,*) \'Calling PIO_initdecomp for %s\'</font>
<font color="blue">", temp);
+ fortprintf(fd, " call mpas_timer_start(\'%s\')</font>
<font color="black">", temp);
if (var_ptr->vtype == INTEGER)
fortprintf(fd, " call PIO_initdecomp(output_obj %% pio_iosystem, PIO_INT, dimids(1:%i), compdof, output_obj %% iodesc%s)</font>
<font color="black">", var_ptr->ndims, temp);
else if (var_ptr->vtype == REAL)
fortprintf(fd, " call PIO_initdecomp(output_obj %% pio_iosystem, PIO_DOUBLE, dimids(1:%i), compdof, output_obj %% iodesc%s)</font>
<font color="black">", var_ptr->ndims, temp);
else
fortprintf(fd, " call PIO_initdecomp(output_obj %% pio_iosystem, PIO_INT, dimids(1:%i), compdof, output_obj %% iodesc%s)</font>
<font color="blue">", var_ptr->ndims, temp);
+ fortprintf(fd, " call mpas_timer_stop(\'%s\')</font>
<font color="black">", temp);
fortprintf(fd, " deallocate(compdof)</font>
<font color="black">");
fortprintf(fd, "</font>
<font color="black">");
</font>
</pre>