Changeset 1883 for trunk/LMDZ.GENERIC/libf/phystd/turb_mod.F90

Timestamp:

Jan 2, 2018, 3:11:14 PM (7 years ago)

Author:

emillour

Message:

Generic GCM:

• fix rcm1d.F to cope with modifications introduced in revision 1835-1836
• also add some missing threadprivate OpenMP directives in phys_state_var_mod and turb_mod

EM

File:

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

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

@@ -4 +4 @@
   REAL,SAVE,ALLOCATABLE :: q2(:,:)    ! Turbulent Kinetic Energy
   REAL,allocatable,SAVE :: l0(:)
+!$OMP THREADPRIVATE(q2,l0)
   REAL,SAVE,ALLOCATABLE :: ustar(:)
   REAL,SAVE,ALLOCATABLE :: wstar(:)
   REAL,SAVE,ALLOCATABLE :: tstar(:)
+!$OMP THREADPRIVATE(ustar,wstar,tstar)
   REAL,SAVE,ALLOCATABLE :: hfmax_th(:)
   REAL,SAVE,ALLOCATABLE :: zmax_th(:)
+!$OMP THREADPRIVATE(hfmax_th,zmax_th)
   REAL,SAVE,ALLOCATABLE :: sensibFlux(:)
-  LOGICAL :: turb_resolved = .false.
+  LOGICAL,SAVE :: turb_resolved = .false.
+!$OMP THREADPRIVATE(sensibFlux,turb_resolved)
       ! this is a flag to say 'turbulence is resolved'
       ! mostly for LES use. default is FALSE (for GCM and mesoscale)