Changeset 2616 for trunk/LMDZ.MARS/libf/phymars/writediagmicrofi.F

Timestamp:

Jan 18, 2022, 4:28:31 PM (3 years ago)

Author:

romain.vande

Message:

LMDZ_MARS RV : Open_MP;
Put all the "save" variables as "!$OMP THREADPRIVATE" in phymars.
The code can now be tested, see README for more info

File:

• trunk/LMDZ.MARS/libf/phymars/writediagmicrofi.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/writediagmicrofi.F

@@ -75 +75 @@
       real*4,save :: date
       real*4,save :: subdate=0.
-!$OMP THREADPRIVATE(date)
+!$OMP THREADPRIVATE(date,subdate)
 
       REAL phis((nbp_lon+1),nbp_lat)