Changeset 3600 for LMDZ6/trunk/libf/phylmd

Timestamp:

Nov 6, 2019, 3:26:17 PM (5 years ago)

Author:

oboucher

Message:

adding a ompthreadprivate to ok_volcan

File:

• LMDZ6/trunk/libf/phylmd/physiq_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -338 +338 @@
     !======================================================================
     LOGICAL, SAVE :: ok_volcan ! pour activer les diagnostics volcaniques
+    !$OMP THREADPRIVATE(ok_volcan)
     LOGICAL ok_cvl  ! pour activer le nouveau driver pour convection KE
     PARAMETER (ok_cvl=.TRUE.)
     LOGICAL ok_gust ! pour activer l'effet des gust sur flux surface
     PARAMETER (ok_gust=.FALSE.)
-    INTEGER iflag_radia     ! active ou non le rayonnement (MPL)
-    SAVE iflag_radia
+    INTEGER, SAVE :: iflag_radia     ! active ou non le rayonnement (MPL)
     !$OMP THREADPRIVATE(iflag_radia)
     !======================================================================