Changeset 3746 for LMDZ6

Timestamp:

Jul 2, 2020, 10:04:09 AM (4 years ago)

Author:

adurocher

Message:

Fixed undefined reference to omp_get_team_size in physics timers

File:

• LMDZ6/branches/Optimisation_LMDZ/libf/phy_common/profiling_physic.F90 (modified) (2 diffs)

LMDZ6/branches/Optimisation_LMDZ/libf/phy_common/profiling_physic.F90

@@ -206 +206 @@
   END SUBROUTINE print_profile
 
+#ifdef CPP_OMP
   subroutine checked_omp_barrier(message)
     use omp_lib, only : omp_get_team_size
@@ -220 +221 @@
        call abort_physic(modname, "Timer barrier",1)
      end if
-   end subroutine checked_omp_barrier
+  end subroutine checked_omp_barrier
+#else
+  subroutine checked_omp_barrier(message)
+    character(*), intent(in) :: message
+  end subroutine checked_omp_barrier
+#endif
     
 END MODULE profiling_physic_mod