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

Timestamp:

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

Author:

aborella

Message:

Merge with trunk r5789

Location:

LMDZ6/branches/contrails

Files:

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

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

@@ +1 @@
+MODULE cv3_estatmix_mod
+  PRIVATE
+
+  PUBLIC cv3_estatmix
+
+CONTAINS
+
 SUBROUTINE cv3_estatmix(len, nd, iflag, plim1, plim2, p, ph, &
                        t, q, u, v, h, gz, w, &
@@ -53 +60 @@
   REAL                                      :: cpn
   REAL                                      :: x, y, p0, zdelta, zcor
-  REAL, SAVE                                :: dpmin=1.
-!$OMP THREADPRIVATE(dpmin)
+  REAL, PARAMETER                           :: dpmin=1.
   REAL, DIMENSION(len)                      :: plim2p  ! = min(plim2(:),plim1(:)-dpmin)
   REAL, DIMENSION(len)                      :: dpw, coef
@@ -197 +203 @@
 END SUBROUTINE cv3_estatmix
 
+END MODULE cv3_estatmix_mod