Changeset 3822

Timestamp:

Feb 4, 2021, 11:30:26 PM (4 years ago)

Author:

lguez

Message:

Remove elemental prefix

Because the function includes YOMCST.h, which contains an OpenMP
directive. A pure or elemental function may contain such a directive
only in OpenMP version >= 5.0. For the moment, we want to be
compatible with lower OpenMP standard.

File:

• LMDZ6/trunk/libf/phylmd/Ocean_skin/sens_heat_rain.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/Ocean_skin/sens_heat_rain.F90

@@ -5 +5 @@
 contains
 
-  elemental real function sens_heat_rain(rain, t, q, rhoa, xlv, t_int, p)
+  real function sens_heat_rain(rain, t, q, rhoa, xlv, t_int, p)
 
-    ! Computes heat flux due to rainfall, in W m-2, positive upward.
+    ! Computes heat flux due to rainfall, in W m-2, positive
+    ! upward.
+
+    ! Do not declare this function as elemental because it may include
+    ! YOMCST.h, which contains an OpenMP directive, and that only
+    ! works in OpenMP 5.0.
 
     use const, only: cpa, cpw, rgas