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

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

@@ -43 +43 @@
       logical firstcall
 
-      save wn_arr, temp_arr, abs_arr
+      save wn_arr, temp_arr, abs_arr !read by master
 
       character*100 dt_file
@@ -72 +72 @@
          dt_file=TRIM(datadir)//'/continuum_data/H2-H2_norm_2011.cia'
 
+!$OMP MASTER
          open(33,file=dt_file,form='formatted',status='old',iostat=ios)
          if (ios.ne.0) then        ! file not found
@@ -102 +103 @@
          endif
          close(33)
+!$OMP END MASTER
+!$OMP BARRIER
 
          print*,'interpolateH2H2: At wavenumber ',wn,' cm^-1'