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

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

@@ -44 +44 @@
   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/N2-H2_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*,'interpolateN2H2: At wavenumber ',wn,' cm^-1'