Commit edf8d8e0 authored by Karsten Bolding's avatar Karsten Bolding

first hack at timing flexible output

parent 1566b07e
......@@ -73,6 +73,8 @@
! This is for do_input and do_output
integer, parameter :: TIM_INPUT = 90 ! input
integer, parameter :: TIM_OUTPUT = 92 ! output
integer, parameter :: TIM_FLEX_OUTPUT = 95 ! output_manager
integer, parameter :: TIM_OUTPUT_PROC = 96 ! output_processing
! These catch stuff that are *also* measured somewhere else:
integer, parameter :: TIM_ADV = 100 ! 2d advection
integer, parameter :: TIM_ADVH = 101 ! 2d advection halo parts
......@@ -177,7 +179,9 @@
timernames(TIM_METEO) = 'do_meteo'
timernames(TIM_INPUT) = 'do_input'
timernames(TIM_OUTPUT) = 'do_output'
timernames(TIM_OUTPUT) = 'output'
timernames(TIM_FLEX_OUTPUT) = 'output_manager_save'
timernames(TIM_OUTPUT_PROC) = 'do_output_processing'
#ifdef GETM_PARALLEL
timernames(TIM_MOMENTUMH) = ' momentum-halo'
......
......@@ -68,6 +68,7 @@
use nesting, only: nesting_file
#endif
use output_manager
use getm_timers, only: tic, toc, TIM_FLEX_OUTPUT, TIM_OUTPUT_PROC
IMPLICIT NONE
!
! !INPUT PARAMETERS:
......@@ -101,7 +102,9 @@
LEVEL1 t_(1:2),':',t_(3:4),':',t_(5:10),' n=',n
end if
call tic(TIM_FLEX_OUTPUT)
call output_manager_prepare_save(julianday, int(secondsofday), 0, int(n))
call toc(TIM_FLEX_OUTPUT)
#ifndef NO_3D
do_3d = (runtype .ge. 2 .and. mod(n,M) .eq. 0)
......@@ -154,8 +157,12 @@
call nesting_file(WRITING)
end if
#endif
call tic(TIM_OUTPUT_PROC)
call do_output_processing()
call toc(TIM_OUTPUT_PROC)
call tic(TIM_FLEX_OUTPUT)
call output_manager_save(julianday,secondsofday,n)
call toc(TIM_FLEX_OUTPUT)
call update_time(n)
#ifndef NO_3D
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment