<p><b>ringler@lanl.gov</b> 2011-04-28 10:51:59 -0600 (Thu, 28 Apr 2011)</p><p><br>
add timer to measure time spent writing output<br>
</p><hr noshade><pre><font color="gray">Modified: branches/pv_based_swm/mpas/src/core_pvsw/module_mpas_core.F
===================================================================
--- branches/pv_based_swm/mpas/src/core_pvsw/module_mpas_core.F        2011-04-27 17:40:33 UTC (rev 804)
+++ branches/pv_based_swm/mpas/src/core_pvsw/module_mpas_core.F        2011-04-28 16:51:59 UTC (rev 805)
@@ -115,6 +115,7 @@
          ! Move time level 2 fields back into time level 1 for next time step
          call shift_time_levels_state(domain % blocklist % state)
    
+         call timer_start(&quot;model write&quot;)
          if (mod(itimestep, config_output_interval) == 0) then
             call write_output_frame(output_obj, output_frame, domain)
          end if
@@ -123,6 +124,8 @@
             call output_state_for_domain(restart_obj, domain, restart_frame)
             restart_frame = restart_frame + 1
          end if
+         call timer_stop(&quot;model write&quot;)
+
       end do
 
    end subroutine mpas_core_run

</font>
</pre>