Index: /LMDZ6/trunk/libf/phylmd/open_climoz_m.f90
===================================================================
--- /LMDZ6/trunk/libf/phylmd/open_climoz_m.f90	(revision 6119)
+++ /LMDZ6/trunk/libf/phylmd/open_climoz_m.f90	(revision 6120)
@@ -25,6 +25,6 @@
 ! and in strictly ascending order.
 !-------------------------------------------------------------------------------
-! Arguments (OpenMP shared):
   INTEGER, INTENT(OUT):: ncid      !--- "climoz_LMDZ.nc" identifier
+  ! Following arguments are OpenMP shared:
   REAL, allocatable, intent(out):: press_in_cen(:) !--- at cells centers
   REAL, allocatable, INTENT(OUT):: press_in_edg(:) !--- at the interfaces (pressure intervals)
Index: /LMDZ6/trunk/libf/phylmd/physiq_mod.F90
===================================================================
--- /LMDZ6/trunk/libf/phylmd/physiq_mod.F90	(revision 6119)
+++ /LMDZ6/trunk/libf/phylmd/physiq_mod.F90	(revision 6120)
@@ -1069,8 +1069,8 @@
     !     2: read two ozone climatologies, the average day and night
     !     climatology and the daylight climatology
-    !$OMP THREADPRIVATE(read_climoz)
+    INTEGER,SAVE :: ncid_climoz                ! NetCDF file identifier
+    !$OMP THREADPRIVATE(read_climoz, ncid_climoz)
 
     !  Following variables are OpenMP shared
-    INTEGER,SAVE :: ncid_climoz                ! NetCDF file identifier
     REAL, ALLOCATABLE, SAVE :: press_cen_climoz(:) ! Pressure levels
     REAL, ALLOCATABLE, SAVE :: press_edg_climoz(:) ! Edges of pressure intervals
@@ -2124,8 +2124,8 @@
        ENDIF
 
-       !$omp single
+       !$omp master
        IF (read_climoz >= 1) CALL open_climoz(ncid_climoz, press_cen_climoz,   &
             press_edg_climoz, time_climoz, ok_daily_climoz, adjust_tropopause)
-       !$omp end single
+       !$omp end master
        !
        !IM betaCRF