Changeset 227 for codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/interpolateH2Ocont_CKD.F90

Timestamp:

07/16/14 18:05:01 (10 years ago)

Author:

milmd

Message:

Last LMDZ version (1315) with OpenMP directives and other stuff

File:

• codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/interpolateH2Ocont_CKD.F90 (modified) (3 diffs)

codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/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