Changeset 2616 for trunk/LMDZ.MARS/libf/phymars/dust_rad_adjust_mod.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/dust_rad_adjust_mod.F90 (modified) (1 diff)

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

@@ -40 +40 @@
   real :: weight ! interpolation weight
   real,save :: zday_prev_call=-666. ! stored value of zday from previous call
+  
+!$OMP THREADPRIVATE(  local_time,local_time_prevdt,zday_scenario,zday_scenario_next)
+!$OMP THREADPRIVATE(firstcall,tau_pref_scenario_next,zday_prev_call)
+
   
   ! 0. preliminary stuff