timing verbosity

SCOREC · Jul 11, 2024 · 21954c3 · 21954c3
1 parent 50a4002
commit 21954c3
Show file tree

Hide file tree

Showing 4 changed files with 13 additions and 1 deletion.
diff --git a/src/pmpo_c.cpp b/src/pmpo_c.cpp
@@ -900,4 +900,8 @@ void polympo_enableTiming_f(){
 
 void polympo_summarizeTime_f(){
   pumipic::SummarizeTime();
+}
+
+void polympo_setTimingVerbosity_f(int v){
+  pumipic::SetTimingVerbosity(v);
 }
diff --git a/src/pmpo_c.h b/src/pmpo_c.h
@@ -88,6 +88,6 @@ void polympo_applyReconstruction_f(MPMesh_ptr p_mpmesh);
 // Timing
 void polympo_enableTiming_f();
 void polympo_summarizeTime_f();
-
+void polympo_setTimingVerbosity_f(int v);
 }
 #endif
diff --git a/src/pmpo_fortran.f90 b/src/pmpo_fortran.f90
@@ -714,6 +714,13 @@ subroutine polympo_enableTiming() bind(C, NAME='polympo_enableTiming_f')
   subroutine polympo_summarizeTime() bind(C, NAME='polympo_summarizeTime_f')
     use :: iso_c_binding
   end subroutine
+  !---------------------------------------------------------------------------
+  !> @brief set verbosity of timings collected
+  !---------------------------------------------------------------------------
+  subroutine polympo_setTimingVerbosity(v) bind(C, NAME='polympo_setTimingVerbosity_f')
+    use :: iso_c_binding
+    integer(c_int), value :: v
+  end subroutine
   end interface
   contains
   !---------------------------------------------------------------------------

diff --git a/test/testFortranMPAdvection.f90 b/test/testFortranMPAdvection.f90
@@ -37,6 +37,7 @@ program main
   call polympo_setMPICommunicator(mpi_comm_handle)
   call polympo_initialize()
   call polympo_enableTiming()
+  call polympo_setTimingVerbosity(1)
 
   call polympo_checkPrecisionForRealKind(MPAS_RKIND)
   argc = command_argument_count()