Changeset 3898

Timestamp:

Feb 2, 2016, 9:59:20 AM (9 years ago)

Author:

ymipsl

Message:

Bug fix in openMP : remember that XIOS is not multithreaded and not thread safe

YM

Location:

dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd

Files:

• create_limit_unstruct.f90 (modified) (2 diffs)
• phys_cal_mod.F90 (modified) (1 diff)

dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/create_limit_unstruct.f90

@@ -150 +150 @@
   USE ioipsl,             ONLY : ioget_year_len
   USE time_phylmdz_mod, ONLY : annee_ref
+  USE mod_phys_lmdz_para
   IMPLICIT NONE
    INCLUDE "iniprint.h"
@@ -164 +165 @@
    LOGICAL :: skip
    
-   ndays_in=year_len(annee_ref, calendar)
+  
+   IF (is_omp_master) ndays_in=year_len(annee_ref, calendar)
+   CALL bcast_omp(ndays_in)
    timeyear=mid_months(annee_ref, calendar, lmdep)
     

dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/phys_cal_mod.F90

@@ -64 +64 @@
     ENDIF
 
+!$OMP BARRIER
+
     CALL ymds2ju(annee_ref, 1, day_ref, 0., jD_ref)
     jD_ref=INT(jD_ref)