Changeset 715

Timestamp:

08/07/18 17:34:49 (6 years ago)

Author:

dubos

Message:

devel : OpenMP fix for disvert=ncar

File:

• codes/icosagcm/devel/src/icosa_mod.f90 (modified) (1 diff)

codes/icosagcm/devel/src/icosa_mod.f90

@@ -19 +19 @@
 
   REAL(rstd) :: ncar_dz, ncar_p0, ncar_T0 ! read from run.def by disvert
+  !$OMP THREADPRIVATE(ncar_dz, ncar_p0, ncar_T0)
 
 END MODULE icosa