Changeset 2596

Timestamp:

Dec 16, 2021, 3:11:09 PM (3 years ago)

Author:

emillour

Message:

Mars GCM:
Missing OpenMP Threadprivate.
JL+EM

File:

• trunk/LMDZ.MARS/libf/phymars/nonoro_gwd_ran_mod.F90 (modified) (2 diffs)

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

@@ -45 +45 @@
       use comcstfi_h, only: g, pi, r
       USE ioipsl_getin_p_mod, ONLY : getin_p
-      use assert_m, only : assert
       use vertical_layers_mod, only : presnivs
       use geometry_mod, only: cell_area
@@ -159 +158 @@
 
     LOGICAL,SAVE :: firstcall = .true.
-
+!$OMP THREADPRIVATE(firstcall)
 
 !-----------------------------------------------------------------------------------------------------------------------