Introduce missing if clause

34b60161 · Andreas Marek · 813aa440 · 34b60161
Commit 34b60161 authored Oct 05, 2016 by Andreas Marek
--- a/src/mod_compute_hh_trafo_real.F90
+++ b/src/mod_compute_hh_trafo_real.F90
@@ -125,7 +125,15 @@ module compute_hh_trafo_real
         call timer%start("compute_hh_trafo_real_cpu")
 #endif
 #endif
-         ttt = mpi_wtime()
+
+#ifdef WITH_OPENMP
+         if (my_thread==1) then
+#endif
+           ttt = mpi_wtime()
+#ifdef WITH_OPENMP
+         endif
+#endif
+

 #ifndef WITH_OPENMP
         nl = merge(stripe_width, last_stripe_width, istripe<stripe_count)