Index: LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/gcm.F
===================================================================
--- LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/gcm.F	(revision 1077)
+++ LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/gcm.F	(revision 1078)
@@ -239,6 +239,6 @@
 
          call init_inca_para(
-     $        iim,jjm+1,klon_glo,mpi_size,
-     $        klon_mpi_para_nb,COMM_LMDZ)
+     $        iim,jjm+1,llm,klon_glo,mpi_size,
+     $        distrib_phys,COMM_LMDZ)
 #endif
       END IF
@@ -269,11 +269,4 @@
 #endif
       endif
-
-      IF (config_inca /= 'none') THEN
-#ifdef INCA
-         call init_inca_dim(klon,llm,iim,jjm,
-     $        rlonu,rlatu,rlonv,rlatv)
-#endif
-      END IF
 
 c le cas echeant, creation d un etat initial
@@ -396,5 +389,16 @@
 #endif
 
-c  numero de stockage pour les fichiers de redemarrage:
+
+c-----------------------------------------------------------------------
+c   Initialisation des dimensions d'INCA :
+c   --------------------------------------
+      IF (config_inca /= 'none') THEN
+!$OMP PARALLEL
+#ifdef INCA
+         CALL init_inca_dim(klon_omp,llm,iim,jjm,
+     $        rlonu,rlatu,rlonv,rlatv)
+#endif
+!$OMP END PARALLEL
+      END IF
 
 c-----------------------------------------------------------------------