Changeset 2616 for trunk/LMDZ.MARS/libf/phymars/watercloud_mod.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/watercloud_mod.F (modified) (3 diffs)

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

@@ -97 +97 @@
       REAL,SAVE :: microtimestep_prev=-999
       
+      !$OMP THREADPRIVATE(imicro,microtimestep)
+      !$OMP THREADPRIVATE(microtimestep_prev)
       ! tendency given by clouds (inside the micro loop)
       REAL subpdqcloud(ngrid,nlay,nq) ! cf. pdqcloud
@@ -111 +113 @@
       INTEGER iq,ig,l
       LOGICAL,SAVE :: firstcall=.true.
+      
+      !$OMP THREADPRIVATE(firstcall)
 
 ! Representation of sub-grid water ice clouds A. Pottier 2013
@@ -128 +132 @@
       REAL :: mincloud ! min cloud frac
       LOGICAL, save :: flagcloud=.true. 
+      
+      !$OMP THREADPRIVATE(flagcloud)
 
 c    ** un petit test de coherence