Index: LMDZ5/branches/testing/libf/dyn3d/conf_gcm.F90
===================================================================
--- LMDZ5/branches/testing/libf/dyn3d/conf_gcm.F90	(revision 2408)
+++ LMDZ5/branches/testing/libf/dyn3d/conf_gcm.F90	(revision 2471)
@@ -297,4 +297,9 @@
   CALL getin('dissip_deltaz',dissip_deltaz )
   CALL getin('dissip_zref',dissip_zref )
+
+  ! ngroup
+  ngroup=3
+  CALL getin('ngroup',ngroup)
+
 
   ! top_bound sponge: only active if ok_strato=.true. and iflag_top_bound!=0
Index: LMDZ5/branches/testing/libf/dyn3d/gcm.F90
===================================================================
--- LMDZ5/branches/testing/libf/dyn3d/gcm.F90	(revision 2408)
+++ LMDZ5/branches/testing/libf/dyn3d/gcm.F90	(revision 2471)
@@ -157,6 +157,6 @@
   use_filtre_fft=.FALSE.
   CALL getin('use_filtre_fft',use_filtre_fft)
-  IF (use_filtre_fft) call abort_gcm('FFT filter is not available in the ' &
-          // 'sequential version of the dynamics.', 1)
+  IF (use_filtre_fft) call abort_gcm("gcm", 'FFT filter is not available in ' &
+          // 'the sequential version of the dynamics.', 1)
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Index: LMDZ5/branches/testing/libf/dyn3d/groupe.F
===================================================================
--- LMDZ5/branches/testing/libf/dyn3d/groupe.F	(revision 2408)
+++ LMDZ5/branches/testing/libf/dyn3d/groupe.F	(revision 2471)
@@ -22,6 +22,6 @@
 #include "comvert.h"
 
-      integer ngroup
-      parameter (ngroup=3)
+!     integer ngroup
+!     parameter (ngroup=3)
 
 
Index: LMDZ5/branches/testing/libf/dyn3d/groupeun.F
===================================================================
--- LMDZ5/branches/testing/libf/dyn3d/groupeun.F	(revision 2408)
+++ LMDZ5/branches/testing/libf/dyn3d/groupeun.F	(revision 2471)
@@ -13,6 +13,6 @@
       REAL q(iip1,jjmax,llmax)
 
-      INTEGER ngroup
-      PARAMETER (ngroup=3)
+!     INTEGER ngroup
+!     PARAMETER (ngroup=3)
 
       REAL airecn,qn
@@ -37,7 +37,7 @@
 
       LOGICAL, SAVE :: first = .TRUE.
-      INTEGER,SAVE :: i_index(iim,ngroup)
+!     INTEGER,SAVE :: i_index(iim,ngroup)
       INTEGER      :: offset
-      REAL         :: qsum(iim/ngroup)
+!     REAL         :: qsum(iim/ngroup)
 
       IF (first) THEN
@@ -142,6 +142,6 @@
 #include "comgeom2.h"
 
-      INTEGER ngroup
-      PARAMETER (ngroup=3)
+!     INTEGER ngroup
+!     PARAMETER (ngroup=3)
 
       REAL airen,airecn