Changeset 1315 for trunk/LMDZ.GENERIC/libf/phystd/stokes.F90

Timestamp:

Jul 11, 2014, 4:15:06 PM (11 years ago)

Author:

milmd

Message:

LMDZ.GENERIC. OpenMP directives added in generic physic. When running in pure OpenMP or hybrid OpenMP/MPI, may have some bugs with condense_cloud and wstats routines.

File:

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

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

@@ -33 +33 @@
       real a,b,molrad,visc
       save a,b
+!$OMP THREADPRIVATE(a,b)
   
       LOGICAL firstcall
       SAVE firstcall
       DATA firstcall/.true./
+!$OMP THREADPRIVATE(firstcall)
 
       if (firstcall) then