<p><b>dwj07@fsu.edu</b> 2011-10-05 15:15:33 -0600 (Wed, 05 Oct 2011)</p><p><br>
        -- BRANCH COMMIT --<br>
<br>
        Making timer_ptr inout for timer_write().<br>
        This is because some of the fields are overwritten in the event that timer%total_time = 0.0d0.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/ocean_projects/performance/src/framework/module_timer.F
===================================================================
--- branches/ocean_projects/performance/src/framework/module_timer.F        2011-10-05 21:12:32 UTC (rev 1055)
+++ branches/ocean_projects/performance/src/framework/module_timer.F        2011-10-05 21:15:33 UTC (rev 1056)
@@ -193,7 +193,7 @@
         end subroutine timer_stop!}}}
 
         recursive subroutine timer_write(timer_ptr, total_ptr)!{{{
-          type (timer_node), pointer, intent(in), optional :: timer_ptr
+          type (timer_node), pointer, intent(inout), optional :: timer_ptr
           type (timer_node), pointer, intent(in), optional :: total_ptr
           character (len=10) :: tname
 

</font>
</pre>