Index: LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/dynredem_p.F
===================================================================
--- LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/dynredem_p.F	(revision 1084)
+++ LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/dynredem_p.F	(revision 1085)
@@ -551,4 +551,6 @@
       DATA nb / 0 /
 
+      logical exist_file
+
       call Gather_Field(ucov,ip1jmp1,llm,0)
       call Gather_Field(vcov,ip1jm,llm,0)
@@ -645,9 +647,15 @@
       IF (config_inca /= 'none') THEN
 ! Ajout Anne pour lecture valeurs traceurs dans un fichier start_trac.nc
-         ierr_file = NF_OPEN ("start_trac.nc", NF_NOWRITE,nid_trac)
-         IF (ierr_file .NE.NF_NOERR) THEN
-            write(6,*)' Pb d''ouverture du fichier start_trac.nc'
-            write(6,*)' ierr = ', ierr_file 
-         ENDIF
+         inquire(FILE="start_trac.nc", EXIST=exist_file) 
+         print *, "EXIST", exist_file
+         if (exist_file) then 
+            ierr_file = NF_OPEN ("start_trac.nc", NF_NOWRITE,nid_trac)
+            IF (ierr_file .NE.NF_NOERR) THEN
+               write(6,*)' Pb d''ouverture du fichier start_trac.nc'
+               write(6,*)' ierr = ', ierr_file 
+            ENDIF
+         else
+            ierr_file = 2
+         endif
       END IF
 
Index: LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/gcm.F
===================================================================
--- LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/gcm.F	(revision 1084)
+++ LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/gcm.F	(revision 1085)
@@ -13,4 +13,5 @@
       USE mod_phys_lmdz_para, ONLY : klon_mpi_para_nb
       USE mod_grid_phy_lmdz
+      USE mod_phys_lmdz_omp_data, ONLY: klon_omp
       USE dimphy
       USE mod_interface_dyn_phys
Index: LMDZ4/branches/LMDZ4-dev/libf/phylmd/climb_hq_mod.F90
===================================================================
--- LMDZ4/branches/LMDZ4-dev/libf/phylmd/climb_hq_mod.F90	(revision 1084)
+++ LMDZ4/branches/LMDZ4-dev/libf/phylmd/climb_hq_mod.F90	(revision 1085)
@@ -57,4 +57,5 @@
 !****************************************************************************************
     LOGICAL, SAVE                            :: first=.TRUE.
+    !$OMP THREADPRIVATE(first)
     REAL, DIMENSION(klon,klev)               :: local_H
     REAL, DIMENSION(klon)                    :: psref