Index: LMDZ6/trunk/libf/dyn3dmem/dynredem_loc.F90
===================================================================
--- LMDZ6/trunk/libf/dyn3dmem/dynredem_loc.F90	(revision 4170)
+++ LMDZ6/trunk/libf/dyn3dmem/dynredem_loc.F90	(revision 4172)
@@ -15,6 +15,6 @@
                     NF90_64BIT_OFFSET
   USE dynredem_mod, ONLY: cre_var, put_var, err, modname, fil
-  USE comvert_mod, ONLY: ap,bp,aps,bps,presnivs,pseudoalt,pa,preff, &
-                         nivsig,nivsigs
+  USE comvert_mod,  ONLY: ap, bp, presnivs, pa, preff, nivsig, nivsigs,&
+                          aps,bps,pseudoalt
   USE comconst_mod, ONLY: cpp, daysec, dtvr, g, kappa, omeg, rad
   USE logic_mod, ONLY: fxyhypb, ysinus
@@ -37,5 +37,5 @@
 !===============================================================================
 ! Local variables:
-  INTEGER :: iq, l
+  INTEGER :: iq
   INTEGER, PARAMETER :: length=100
   REAL    :: tab_cntrl(length)                     !--- RUN PARAMETERS TABLE
@@ -45,7 +45,7 @@
   INTEGER :: indexID
   INTEGER :: rlonuID, rlonvID, rlatuID, rlatvID
-  INTEGER :: sID, sigID, nID, vID, timID
+  INTEGER :: sID, sigID, nID, timID
   INTEGER :: yyears0, jjour0, mmois0
-  REAL    :: zan0, zjulian, hours
+  REAL    :: zjulian, hours
 !===============================================================================
   modname='dynredem0'; fil=fichnom
@@ -145,5 +145,5 @@
 
 !--- Define fields saved later
-  WRITE(unites,"('days since ',i4,'-',i2.2,'-',i2.2,' 00:00:00')"),&
+  WRITE(unites,"('days since ',i4,'-',i2.2,'-',i2.2,' 00:00:00')") &
                yyears0,mmois0,jjour0
   CALL cre_var(nid,"temps","Temps de simulation",[timID],unites)
@@ -202,5 +202,5 @@
 !===============================================================================
 ! Local variables:
-  INTEGER :: l, iq, nid, vID, ierr, nid_trac, vID_trac
+  INTEGER :: iq, nid, vID, ierr, nid_trac, vID_trac
   INTEGER, SAVE :: nb=0
   INTEGER, PARAMETER :: length=100
@@ -213,5 +213,4 @@
   IF(mpi_rank==0) THEN !++++++++++++++++++++++++++++++++++++++++++++++++++++++++
   modname='dynredem1_loc'; fil=fichnom
-  fil=fichnom
   CALL err(NF90_OPEN(fil,NF90_WRITE,nid),"open",fil)
 
Index: LMDZ6/trunk/libf/dyn3dmem/leapfrog_loc.F
===================================================================
--- LMDZ6/trunk/libf/dyn3dmem/leapfrog_loc.F	(revision 4170)
+++ LMDZ6/trunk/libf/dyn3dmem/leapfrog_loc.F	(revision 4172)
@@ -1519,12 +1519,9 @@
 
 #ifdef INCA
-         if (ANY(types_trac == 'inca') .OR. ANY(types_trac == 'inco')) then 
-            call finalize_inca
-         endif
+         if (ANY(types_trac == 'inca') .OR. &
+     &       ANY(types_trac == 'inco')) CALL finalize_inca
 #endif
 #ifdef REPROBUS
-         if (ANY(types_trac == 'repr')) then
-         call finalize_reprobus
-         endif
+         if (ANY(types_trac == 'repr')) CALL finalize_reprobus
 #endif
 
@@ -1572,12 +1569,9 @@
 
 #ifdef INCA
-              if (ANY(types_trac == 'inca') .OR. ANY(types_trac == 'inco')) then 
-                 call finalize_inca
-              endif
+              if (ANY(types_trac == 'inca') .OR. &
+     &            ANY(types_trac == 'inco')) CALL finalize_inca
 #endif
 #ifdef REPROBUS
-              if (ANY(types_trac == 'repr')) then
-         call finalize_reprobus
-              endif
+              if (ANY(types_trac == 'repr')) CALL finalize_reprobus
 #endif
 
@@ -1743,12 +1737,9 @@
 
 #ifdef INCA
-                 if (ANY(types_trac == 'inca') .OR. ANY(types_trac == 'inco')) then 
-                    call finalize_inca
-                 endif
+                 if (ANY(types_trac == 'inca') .OR. &
+     &               ANY(types_trac == 'inco')) CALL finalize_inca
 #endif
 #ifdef REPROBUS
-                 if (ANY(types_trac == 'repr')) then
-         call finalize_reprobus
-                 endif
+                 if (ANY(types_trac == 'repr')) CALL finalize_reprobus
 #endif
 
@@ -1854,12 +1845,9 @@
 
 #ifdef INCA
-      if (ANY(types_trac == 'inca') .OR. ANY(types_trac == 'inco')) then 
-         call finalize_inca
-      endif
+      if (ANY(types_trac == 'inca') .OR. &
+     &    ANY(types_trac == 'inco')) CALL finalize_inca
 #endif
 #ifdef REPROBUS
-      if (ANY(types_trac == 'repr')) then
-         call finalize_reprobus
-      endif
+      if (ANY(types_trac == 'repr')) CALL finalize_reprobus
 #endif