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

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

@@ -43 +43 @@
       logical firstcall
 
-      save wn_arr, temp_arr, abs_arrS, abs_arrF
+      save wn_arr, temp_arr, abs_arrS, abs_arrF !read by master
 
       character*100 dt_file
@@ -57 +57 @@
 !     1.1 Open the ASCII files
 
+!$OMP MASTER
          ! nu array
          dt_file=TRIM(datadir)//'/continuum_data/H2O_CONT_NU.dat'
@@ -129 +130 @@
          print*,'   H2O pressure ',presS,' Pa'
          print*,'   air pressure ',presF,' Pa'
+!$OMP END MASTER
+!$OMP BARRIER
          
       endif