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

Timestamp:

Jul 11, 2014, 4:15:06 PM (10 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/interpolateN2N2.F90 (modified) (3 diffs)

trunk/LMDZ.GENERIC/libf/phystd/interpolateN2N2.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
@@ -70 +70 @@
      dt_file=TRIM(datadir)//'/continuum_data/N2-N2_2011.cia'
 
+!$OMP MASTER
      open(33,file=dt_file,form='formatted',status='old',iostat=ios)
      if (ios.ne.0) then        ! file not found
@@ -100 +101 @@
      endif
      close(33)
+!$OMP END MASTER
+!$OMP BARRIER
 
      print*,'interpolateN2N2: At wavenumber ',wn,' cm^-1'