Changeset 5791 for LMDZ6/branches/contrails/libf/phylmd/cv3_enthalpmix.f90

Timestamp:

Jul 28, 2025, 7:23:15 PM (7 days ago)

Author:

aborella

Message:

Merge with trunk r5789

Location:

LMDZ6/branches/contrails

Files:

• . (modified) (1 prop)
• libf/phylmd/cv3_enthalpmix.f90 (modified) (3 diffs)

LMDZ6/branches/contrails/libf/phylmd/cv3_enthalpmix.f90

@@ +1 @@
+MODULE cv3_enthalpmix_mod
+  PRIVATE
+
+  PUBLIC cv3_enthalpmix
+
+CONTAINS
+
 SUBROUTINE cv3_enthalpmix(len, nd, iflag, plim1, plim2, p, ph, &
                        t, q, u, v, w, &
@@ -50 +57 @@
   REAL                                      :: cpn
   REAL                                      :: x, y, p0, p0m1, zdelta, zcor
-  REAL, SAVE                                :: dpmin=1.
-!$OMP THREADPRIVATE(dpmin)
+  REAL, PARAMETER                           :: dpmin=1.
   REAL, DIMENSION(len)                      :: plim2p  ! = min(plim2(:),plim1(:)-dpmin)
   REAL, DIMENSION(len)                      :: akm     ! mixture enthalpy
@@ -214 +220 @@
 END SUBROUTINE cv3_enthalpmix
 
+END MODULE cv3_enthalpmix_mod