<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("model write")
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("model write")
+
end do
end subroutine mpas_core_run
</font>
</pre>