Index: LMDZ6/trunk/libf/dyn3dmem/parallel_lmdz.F90
===================================================================
--- LMDZ6/trunk/libf/dyn3dmem/parallel_lmdz.F90	(revision 5271)
+++ LMDZ6/trunk/libf/dyn3dmem/parallel_lmdz.F90	(revision 5272)
@@ -86,7 +86,9 @@
     USE lmdz_mpi
     USE dimensions_mod, ONLY: iim, jjm, llm, ndm
+USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
+          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
 implicit none
 
-      INCLUDE "paramet.h"
+
       INCLUDE "iniprint.h"
 
@@ -246,7 +248,9 @@
     SUBROUTINE create_distrib(jj_nb_new,d)
     USE dimensions_mod, ONLY: iim, jjm, llm, ndm
+USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
+          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
 IMPLICIT NONE
 
-      INCLUDE "paramet.h"
+
       
       INTEGER,INTENT(IN) :: jj_Nb_New(0:MPI_Size-1)
@@ -298,8 +302,10 @@
     SUBROUTINE Set_Distrib(d)
     USE dimensions_mod, ONLY: iim, jjm, llm, ndm
+USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
+          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
 IMPLICIT NONE
 
 
-    INCLUDE "paramet.h"
+
     TYPE(distrib),INTENT(IN) :: d
 
@@ -335,8 +341,10 @@
     SUBROUTINE copy_distrib(dist,new_dist)
     USE dimensions_mod, ONLY: iim, jjm, llm, ndm
+USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
+          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
 IMPLICIT NONE
 
 
-    INCLUDE "paramet.h"
+
     TYPE(distrib),INTENT(INOUT) :: dist
     TYPE(distrib),INTENT(IN) :: new_dist
@@ -373,8 +381,10 @@
     SUBROUTINE get_current_distrib(d)
     USE dimensions_mod, ONLY: iim, jjm, llm, ndm
+USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
+          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
 IMPLICIT NONE
 
 
-    INCLUDE "paramet.h"
+
     TYPE(distrib),INTENT(OUT) :: d
 
@@ -389,4 +399,6 @@
     USE control_mod, only : ok_dyn_xios
     USE dimensions_mod, ONLY: iim, jjm, llm, ndm
+    USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
+          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
 
 #ifdef CPP_COUPLE
@@ -406,7 +418,4 @@
 #endif
 ! #endif of #ifdef CPP_EARTH
-
-      include "paramet.h"
-
       integer :: ierr
       integer :: i
@@ -453,8 +462,10 @@
     subroutine Pack_Data(Field,ij,ll,row,Buffer)
     USE dimensions_mod, ONLY: iim, jjm, llm, ndm
+    USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
+          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
 implicit none
 
 
-      INCLUDE "paramet.h"
+
 
       integer, intent(in) :: ij,ll,row
@@ -477,8 +488,10 @@
     subroutine Unpack_Data(Field,ij,ll,row,Buffer)
     USE dimensions_mod, ONLY: iim, jjm, llm, ndm
+    USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
+          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
 implicit none
 
 
-      INCLUDE "paramet.h"
+
 
       integer, intent(in) :: ij,ll,row
@@ -517,7 +530,9 @@
     USE Vampir
     USE dimensions_mod, ONLY: iim, jjm, llm, ndm
+    USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
+          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
 implicit none
 
-      INCLUDE "paramet.h"    
+
       INTEGER :: ij,ll
       REAL, dimension(ij,ll) :: Field
@@ -635,7 +650,9 @@
     USE lmdz_mpi
     USE dimensions_mod, ONLY: iim, jjm, llm, ndm
+    USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
+          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
 implicit none
 
-    INCLUDE "paramet.h" 
+
     INCLUDE "iniprint.h"
       INTEGER :: ij,ll,rank
@@ -716,7 +733,9 @@
     USE lmdz_mpi
     USE dimensions_mod, ONLY: iim, jjm, llm, ndm
+    USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
+          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
 implicit none
 
-    INCLUDE "paramet.h"    
+
       INTEGER :: ij,ll
       REAL, dimension(ij,ll) :: Field
@@ -735,7 +754,9 @@
     USE lmdz_mpi
     USE dimensions_mod, ONLY: iim, jjm, llm, ndm
+    USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
+          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
 implicit none
 
-    INCLUDE "paramet.h"    
+
       INTEGER :: ij,ll
       REAL, dimension(ij,ll) :: Field
@@ -756,7 +777,9 @@
 !    USE lmdz_mpi
 !    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
-implicit none
+!    USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
+!          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
+!implicit none
 !
-!      INCLUDE "paramet.h"    
+!
 !    
 !      INTEGER :: ij,ll
