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

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

@@ -120 +120 @@
       LOGICAL,SAVE :: firstcall=.true.
 
+!$OMP THREADPRIVATE(firstcall)
 
 c     variable added for CO2 condensation:
@@ -127 +128 @@
       REAL,PARAMETER :: tcond1mb=136.27
       REAL,SAVE :: acond,bcond
+
+!$OMP THREADPRIVATE(acond,bcond)
       
 c     Subtimestep & implicit treatment of water vapor
@@ -175 +178 @@
       REAL,SAVE :: ccond
 
+!$OMP THREADPRIVATE(ccond)
+
 c     Theta_m formulation for mass-variation scheme :
 c     ~~~~~~~
@@ -183 +188 @@
       REAL vmr_co2(ngrid,nlay)
       REAL qco2,mmean
+
+!$OMP THREADPRIVATE(ico2,m_co2,m_noco2,A,B)
 
       REAL,INTENT(OUT) :: sensibFlux(ngrid)