Index: LMDZ4/trunk/libf/dyn3dpar/create_etat0_limit.F
===================================================================
--- LMDZ4/trunk/libf/dyn3dpar/create_etat0_limit.F	(revision 1016)
+++ LMDZ4/trunk/libf/dyn3dpar/create_etat0_limit.F	(revision 1017)
@@ -49,5 +49,7 @@
       IF (config_inca /= 'none') THEN
 #ifdef INCA
-         call init_const_lmdz(nbtrac,anneeref,dayref,iphysiq,day_step,nday)
+         call init_const_lmdz(
+     $        nbtrac,anneeref,dayref,
+     $        iphysiq,day_step,nday)
 #endif
          print *, 'nbtrac =' , nbtrac 
Index: LMDZ4/trunk/libf/dyn3dpar/gcm.F
===================================================================
--- LMDZ4/trunk/libf/dyn3dpar/gcm.F	(revision 1016)
+++ LMDZ4/trunk/libf/dyn3dpar/gcm.F	(revision 1017)
@@ -234,7 +234,11 @@
       IF (config_inca /= 'none') THEN
 #ifdef INCA
-         call init_const_lmdz(nbtrac,anneeref,dayref,iphysiq,day_step,nday)
-         call init_inca_para(iim,jjm+1,klon_glo,mpi_size,klon_mpi_para_nb,
-     $        COMM_LMDZ)
+         call init_const_lmdz(
+     $        nbtrac,anneeref,dayref,
+     $        iphysiq,day_step,nday)
+
+         call init_inca_para(
+     $        iim,jjm+1,klon_glo,mpi_size,
+     $        klon_mpi_para_nb,COMM_LMDZ)
 #endif
       END IF