Changeset 2550 for trunk/LMDZ.GENERIC/libf/phystd/nonoro_gwd_ran_mod.F90

Timestamp:

Jul 9, 2021, 5:31:31 PM (3 years ago)

Author:

emillour

Message:

Generic GCM:
Some OpenMP fixes in routines initracer.F, nonoro_gwd_ran_mod.F90,
phys_state_var_mod.F90 and sugas_corrk.F90
EM

File:

• trunk/LMDZ.GENERIC/libf/phystd/nonoro_gwd_ran_mod.F90 (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/nonoro_gwd_ran_mod.F90

@@ -7 +7 @@
       REAL, allocatable, save :: east_gwstress(:, :) ! Eastward stress profile
       REAL, allocatable, save :: west_gwstress(:, :) ! Westward stress profile
-
+!$OMP THREADPRIVATE(du_nonoro_gwd,dv_nonoro_gwd,east_gwstress,west_gwstress)
 CONTAINS