Changeset 2616 for trunk/LMDZ.MARS/libf/phymars/co2cloud.F90

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/co2cloud.F90 (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/co2cloud.F90

@@ -208 +208 @@
   logical, save :: &
      firstcall = .true. ! Used to compute saved variables
+     
+!$OMP THREADPRIVATE(imicroco2,sigma_iceco2,microtimestep)
+!$OMP THREADPRIVATE(dev2,Qext1bins,Qextv1mic,radv,rb_cldco2)
+!$OMP THREADPRIVATE(firstcall)     
+
 !----------------------------------------------------------------------------------------------------------------------!
 !-----3) Variables: