Changeset 5695 for LMDZ6/trunk/libf/phylmd/cv3_estatmix.f90

Timestamp:

Jun 13, 2025, 7:41:53 PM (7 weeks ago)

Author:

yann meurdesoif

Message:

Convection GPU porting : replace saved variables by PARAMETER when possible
YM

File:

• LMDZ6/trunk/libf/phylmd/cv3_estatmix.f90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/cv3_estatmix.f90

@@ -60 +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