Changeset 5484 for LMDZ6/trunk/libf/phylmd

Timestamp:

Jan 17, 2025, 2:18:04 PM (5 days ago)

Author:

evignon

Message:

ajout omp thresprivate dans modd_csts

File:

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

LMDZ6/trunk/libf/phylmd/modd_csts.f90

@@ -88 +88 @@
 REAL,SAVE     :: XSURF_EPSILON       ! minimum space with 1.0
 !
+!$OMP THREADPRIVATE(XPI,XDAY,XSIYEA,XSIDAY,XKARMAN,XLIGHTSPEED,XPLANCK,XBOLTZ,XAVOGADRO)
+!$OMP THREADPRIVATE(XRADIUS,XOMEGA,XG,XP00,XSTEFAN,XI0,XMD,XMV,XRD,XRV)
+!$OMP THREADPRIVATE(XCPD,XCPV,XRHOLW,XCL,XCI,XTT,XTTSI,XTTS,XICEC,XLVTT,XLSTT,XLMTT,XESTT)
+!$OMP THREADPRIVATE(XALPW,XBETAW,XGAMW,XALPI,XBETAI,XGAMI,XTH00)
+!$OMP THREADPRIVATE(XRHOLI,XCONDI,NDAYSEC)
+!$OMP THREADPRIVATE(XSURF_TINY,XSURF_TINY_12,XSURF_EPSILON)
+
 END MODULE MODD_CSTS