integer :: level, onlevel(0:10)
common/timer_private/ level, onlevel
!$omp threadprivate(/timer_private/)