Changeset 1315 for trunk/LMDZ.GENERIC/libf/phystd/gases_h.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/gases_h.F90 (modified) (2 diffs)

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

@@ -14 +14 @@
       integer :: ngasmx
       integer :: vgas
-      character*20,allocatable,DIMENSION(:) :: gnom ! name of the gas
+      character*20,allocatable,DIMENSION(:) :: gnom ! name of the gas, read by master
       real,allocatable,DIMENSION(:) :: gfrac
 
@@ -31 +31 @@
       integer :: igas_C2H2
       integer :: igas_C2H6
+!!$OMP THREADPRIVATE(ngasmx,vgas,gnom,gfrac,&
+!       !$OMP igas_H2,igas_He,igas_H2O,igas_CO2,igas_CO,igas_N2,&
+!       !$OMP igas_O2,igas_SO2,igas_H2S,igas_CH4,igas_NH3,igas_C2H2,igas_C2H6)
 
       end module gases_h