Changeset 3043 for LMDZ6/trunk/libf/phylmd/cv3_estatmix.F90

Timestamp:

Oct 25, 2017, 2:01:57 PM (7 years ago)

Author:

Ehouarn Millour

Message:

Some fixes to enable compiling with the pgf compiler and updated arch files for pgf on Ciclad.
EM

File:

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

LMDZ6/trunk/libf/phylmd/cv3_estatmix.F90

@@ -53 +53 @@
   REAL                                      :: cpn
   REAL                                      :: x, y, p0, zdelta, zcor
-  REAL                                      :: dpmin=1.
+  REAL, SAVE                                :: dpmin=1.
 !$OMP THREADPRIVATE(dpmin)
   REAL, DIMENSION(len)                      :: plim2p  ! = min(plim2(:),plim1(:)-dpmin)