Index: LMDZ6/trunk/libf/dyn3d_common/diverg.f90
===================================================================
--- LMDZ6/trunk/libf/dyn3d_common/diverg.f90	(revision 5297)
+++ LMDZ6/trunk/libf/dyn3d_common/diverg.f90	(revision 5298)
@@ -19,10 +19,4 @@
   !    div      est  un argument  de sortie pour le s-prog
   !
-  !
-  !   ---------------------------------------------------------------------
-  !
-  !    ATTENTION : pendant ce s-pg , ne pas toucher au COMMON/scratch/  .
-  !
-  !   ---------------------------------------------------------------------
 
 
Index: LMDZ6/trunk/libf/dyn3d_common/diverg_gam.f90
===================================================================
--- LMDZ6/trunk/libf/dyn3d_common/diverg_gam.f90	(revision 5297)
+++ LMDZ6/trunk/libf/dyn3d_common/diverg_gam.f90	(revision 5298)
@@ -21,9 +21,5 @@
   !
   !
-  !   ---------------------------------------------------------------------
-  !
-  !    ATTENTION : pendant ce s-pg , ne pas toucher au COMMON/scratch/  .
-  !
-  !   ---------------------------------------------------------------------
+
 
 
Index: LMDZ6/trunk/libf/dyn3d_common/divergf.f90
===================================================================
--- LMDZ6/trunk/libf/dyn3d_common/divergf.f90	(revision 5297)
+++ LMDZ6/trunk/libf/dyn3d_common/divergf.f90	(revision 5298)
@@ -20,9 +20,5 @@
   !
   !
-  !   ---------------------------------------------------------------------
-  !
-  !    ATTENTION : pendant ce s-pg , ne pas toucher au COMMON/scratch/  .
-  !
-  !   ---------------------------------------------------------------------
+
 
 
Index: LMDZ6/trunk/libf/dyn3dmem/diverg_gam_loc.f90
===================================================================
--- LMDZ6/trunk/libf/dyn3dmem/diverg_gam_loc.f90	(revision 5297)
+++ LMDZ6/trunk/libf/dyn3dmem/diverg_gam_loc.f90	(revision 5298)
@@ -19,9 +19,5 @@
   !
   !
-  !   ---------------------------------------------------------------------
-  !
-  !    ATTENTION : pendant ce s-pg , ne pas toucher au COMMON/scratch/  .
-  !
-  !   ---------------------------------------------------------------------
+
 
 
Index: LMDZ6/trunk/libf/dyn3dmem/diverg_p.f90
===================================================================
--- LMDZ6/trunk/libf/dyn3dmem/diverg_p.f90	(revision 5297)
+++ LMDZ6/trunk/libf/dyn3dmem/diverg_p.f90	(revision 5298)
@@ -18,9 +18,5 @@
   !
   !
-  !   ---------------------------------------------------------------------
-  !
-  !    ATTENTION : pendant ce s-pg , ne pas toucher au COMMON/scratch/  .
-  !
-  !   ---------------------------------------------------------------------
+
 
 
Index: LMDZ6/trunk/libf/dyn3dmem/divergf_loc.f90
===================================================================
--- LMDZ6/trunk/libf/dyn3dmem/divergf_loc.f90	(revision 5297)
+++ LMDZ6/trunk/libf/dyn3dmem/divergf_loc.f90	(revision 5298)
@@ -19,9 +19,5 @@
   !
   !
-  !   ---------------------------------------------------------------------
-  !
-  !    ATTENTION : pendant ce s-pg , ne pas toucher au COMMON/scratch/  .
-  !
-  !   ---------------------------------------------------------------------
+
 
 
Index: LMDZ6/trunk/libf/phylmd/comsoil.h
===================================================================
--- LMDZ6/trunk/libf/phylmd/comsoil.h	(revision 5297)
+++ 	(revision )
@@ -1,9 +1,0 @@
-!
-! $Header$
-!
-
-      common /comsoil/inertie_sol,inertie_sno,inertie_sic,inertie_lic,  &
-     &                iflag_sic,iflag_inertie
-      real inertie_sol,inertie_sno,inertie_sic,inertie_lic
-      integer iflag_sic,iflag_inertie
-!$OMP THREADPRIVATE(/comsoil/)
Index: LMDZ6/trunk/libf/phylmd/comsoil_mod_h.f90
===================================================================
--- LMDZ6/trunk/libf/phylmd/comsoil_mod_h.f90	(revision 5298)
+++ LMDZ6/trunk/libf/phylmd/comsoil_mod_h.f90	(revision 5298)
@@ -0,0 +1,10 @@
+! Replaces comsoil.h
+
+MODULE comsoil_mod_h
+  IMPLICIT NONE; PRIVATE
+  PUBLIC inertie_sol, inertie_sno, inertie_sic, inertie_lic, iflag_sic, iflag_inertie
+
+  REAL inertie_sol, inertie_sno, inertie_sic, inertie_lic
+  INTEGER iflag_sic, iflag_inertie
+  !$OMP THREADPRIVATE(inertie_sol,inertie_sno,inertie_sic,inertie_lic, iflag_sic,iflag_inertie)
+END MODULE comsoil_mod_h
Index: LMDZ6/trunk/libf/phylmd/conf_phys_m.f90
===================================================================
--- LMDZ6/trunk/libf/phylmd/conf_phys_m.f90	(revision 5297)
+++ LMDZ6/trunk/libf/phylmd/conf_phys_m.f90	(revision 5298)
@@ -24,9 +24,9 @@
        alp_offset)
 
-USE compbl_mod_h
+    USE compbl_mod_h
     USE alpale_mod
     USE conema3_mod_h
-        USE yomcst_mod_h
-USE IOIPSL
+    USE yomcst_mod_h
+    USE IOIPSL
     USE surface_data
     USE phys_cal_mod
@@ -41,4 +41,5 @@
     USE infotrac_phy, ONLY: type_trac
     USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_STRATAER
+    USE comsoil_mod_h
 
     INCLUDE "nuage.h"
@@ -46,6 +47,4 @@
     INCLUDE "YOMCST2.h"
 
-    !IM : on inclut/initialise les taux de CH4, N2O, CFC11 et CFC12
-    INCLUDE "comsoil.h"
     INCLUDE "YOEGWD.h"
     !
Index: LMDZ6/trunk/libf/phylmd/inlandsis/sisvat_ts2.f90
===================================================================
--- LMDZ6/trunk/libf/phylmd/inlandsis/sisvat_ts2.f90	(revision 5297)
+++ LMDZ6/trunk/libf/phylmd/inlandsis/sisvat_ts2.f90	(revision 5298)
@@ -58,8 +58,7 @@
   ! |________________________________________________________________________|
 
-USE yoethf_mod_h
-    USE VAR_SV
+  USE yoethf_mod_h
+  USE VAR_SV
   USE VARdSV
-
   USE VARySV
   USE VARtSV
@@ -67,7 +66,6 @@
   USE VARphy
   USE indice_sol_mod
-
-
   USE yomcst_mod_h
+  USE comsoil_mod_h
 IMPLICIT NONE
 
@@ -75,10 +73,5 @@
   ! +--Global Variables
   ! +  ================
-
-
   INCLUDE "FCTTRE.h"
-   ! INCLUDE "indicesol.h"
-  INCLUDE "comsoil.h"
-   ! include  "LMDZphy.inc"
 
   ! +--OUTPUT for Stand Alone NetCDF File
Index: LMDZ6/trunk/libf/phylmd/planete.h
===================================================================
--- LMDZ6/trunk/libf/phylmd/planete.h	(revision 5297)
+++ 	(revision )
@@ -1,11 +1,0 @@
-!-----------------------------------------------------------------------
-! INCLUDE planet.h
-
-      COMMON/planet/aphelie,periheli,year_day,peri_day, obliquit, timeperi,&
-           e_elips,p_elips,unitastr
-
-      REAL aphelie,periheli,year_day,peri_day, obliquit, timeperi,e_elips, &
-           p_elips,unitastr
-
-!-----------------------------------------------------------------------
-!$OMP THREADPRIVATE(/planet/)
Index: LMDZ6/trunk/libf/phylmd/planete_mod_h.f90
===================================================================
--- LMDZ6/trunk/libf/phylmd/planete_mod_h.f90	(revision 5298)
+++ LMDZ6/trunk/libf/phylmd/planete_mod_h.f90	(revision 5298)
@@ -0,0 +1,9 @@
+MODULE planete_mod_h
+  IMPLICIT NONE; PRIVATE
+  PUBLIC aphelie, periheli, year_day, peri_day, obliquit, timeperi, e_elips, p_elips, unitastr
+
+  REAL aphelie, periheli, year_day, peri_day, obliquit, timeperi, e_elips, &
+          p_elips, unitastr
+
+  !$OMP THREADPRIVATE(aphelie, periheli, year_day, peri_day, obliquit, timeperi, e_elips, p_elips, unitastr)
+END MODULE planete_mod_h
Index: LMDZ6/trunk/libf/phylmd/soil.f90
===================================================================
--- LMDZ6/trunk/libf/phylmd/soil.f90	(revision 5297)
+++ LMDZ6/trunk/libf/phylmd/soil.f90	(revision 5298)
@@ -11,5 +11,5 @@
   USE print_control_mod, ONLY: lunout
   USE dimsoil_mod_h, ONLY: nsoilmx
-
+  USE comsoil_mod_h
   IMPLICIT NONE
 
@@ -62,6 +62,4 @@
 !
 !=======================================================================
-  INCLUDE "comsoil.h"
-!-----------------------------------------------------------------------
 ! Arguments
 ! ---------
Index: LMDZ6/trunk/libf/phylmdiso/comsoil.h
===================================================================
--- LMDZ6/trunk/libf/phylmdiso/comsoil.h	(revision 5297)
+++ 	(revision )
@@ -1,1 +1,0 @@
-link ../phylmd/comsoil.h
Index: LMDZ6/trunk/libf/phylmdiso/comsoil_mod_h.f90
===================================================================
--- LMDZ6/trunk/libf/phylmdiso/comsoil_mod_h.f90	(revision 5298)
+++ LMDZ6/trunk/libf/phylmdiso/comsoil_mod_h.f90	(revision 5298)
@@ -0,0 +1,1 @@
+link ../phylmd/comsoil_mod_h.f90
Index: LMDZ6/trunk/libf/phylmdiso/planete.h
===================================================================
--- LMDZ6/trunk/libf/phylmdiso/planete.h	(revision 5297)
+++ 	(revision )
@@ -1,1 +1,0 @@
-link ../phylmd/planete.h
Index: LMDZ6/trunk/libf/phylmdiso/planete_mod_h.f90
===================================================================
--- LMDZ6/trunk/libf/phylmdiso/planete_mod_h.f90	(revision 5298)
+++ LMDZ6/trunk/libf/phylmdiso/planete_mod_h.f90	(revision 5298)
@@ -0,0 +1,1 @@
+link ../phylmd/planete_mod_h.f90