Index: LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/bl_for_dms.f90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/bl_for_dms.f90	(revision 5112)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/bl_for_dms.f90	(revision 5113)
@@ -39,5 +39,5 @@
   PARAMETER (vk = 0.35)
   REAL :: beta  ! coefficient d'evaporation reelle (/evapotranspiration)
-  ! ! entre 0 et 1, mais 1 au-dessus de la mer
+  ! entre 0 et 1, mais 1 au-dessus de la mer
   PARAMETER (beta = 1.)
   INTEGER :: i, k
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/condsurfc_new.f90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/condsurfc_new.f90	(revision 5112)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/condsurfc_new.f90	(revision 5113)
@@ -72,6 +72,6 @@
       CALL exit(1)
     ENDIF
-    ! !print *,'lmt_bcff = ',lmt_bcff
-    ! !stop
+    !print *,'lmt_bcff = ',lmt_bcff
+    !stop
 
     ! BC emissions from non fossil fuel combustion
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/dustemission_mod.F90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/dustemission_mod.F90	(revision 5112)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/dustemission_mod.F90	(revision 5113)
@@ -1374,5 +1374,5 @@
 
 SUBROUTINE def_copyncl(kfin)
-      implicit none
+      IMPLICIT NONE
 
  integer i,n,kfin,ideb,ifin,istep,kfin2
@@ -1427,5 +1427,5 @@
 !c---------------------------------------------------------------
 
-      implicit none
+      IMPLICIT NONE
       integer i1,i2,nclass,iout,ismin,ismax,k2,ihalf,idiff
       real siz(nclass),ds
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/inscav_spl.f90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/inscav_spl.f90	(revision 5112)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/inscav_spl.f90	(revision 5113)
@@ -123,5 +123,5 @@
         beta = MIN(MAX(0.0, -beta), 1.0)
       ELSE                          !--reevaporation non totale pour aerosols
-        ! !print *,'FRAC USED IN INSCAV_SPL'
+        !print *,'FRAC USED IN INSCAV_SPL'
         beta = MIN(MAX(0.0, -beta) * frac, 1.0)
       ENDIF
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/read_newemissions.f90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/read_newemissions.f90	(revision 5112)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/read_newemissions.f90	(revision 5113)
@@ -120,5 +120,5 @@
   !  REAL dayemintime ! time in hours of the other emissions input files resolution
   REAL :: jH_init ! shift in the hour (count as days) respecto to
-  ! ! realhour = (pdtphys*i)/3600/24 -days_elapsed
+  ! realhour = (pdtphys*i)/3600/24 -days_elapsed
   REAL :: jH_emi, jH_vent, jH_day
   SAVE jH_init, jH_vent, jH_day
Index: LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/sediment_mod.f90
===================================================================
--- LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/sediment_mod.f90	(revision 5112)
+++ LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/sediment_mod.f90	(revision 5113)
@@ -153,6 +153,6 @@
         v_dep_ss(i, k) = v_sed
         sed_flux(i, k) = tr_seri(i, k, id_coss) * v_sed !g/cm3*m/sec
-        ! !sed_ss3D(i,k)= -sed_flux(i,k)/zdz(i,k)      !g/cm3*sec !!!!!!!
-        ! ! conc_sed_ss3D(i,k)=sed_flux(i,k)*1.e6      !g/m3*sec !!!!!!!
+        !sed_ss3D(i,k)= -sed_flux(i,k)/zdz(i,k)      !g/cm3*sec !!!!!!!
+        ! conc_sed_ss3D(i,k)=sed_flux(i,k)*1.e6      !g/m3*sec !!!!!!!
         !
       ENDDO          !klon
@@ -221,5 +221,5 @@
         v_dep_dust(i, k) = v_sed
         sed_flux(i, k) = tr_seri(i, k, id_codu) * v_sed !g/cm3.m/sec
-        ! !sed_dust3D(i,k)= -sed_flux(i,k)/zdz(i,k)      !g/cm3*sec !!!!!!!
+        !sed_dust3D(i,k)= -sed_flux(i,k)/zdz(i,k)      !g/cm3*sec !!!!!!!
         !
       ENDDO          !klon
@@ -288,5 +288,5 @@
         v_dep_dustsco(i, k) = v_sed
         sed_flux(i, k) = tr_seri(i, k, id_scdu) * v_sed !g/cm3.m/sec
-        ! !sed_dustsco3D(i,k)= -sed_flux(i,k)/zdz(i,k)      !g/cm3*sec !!!!!!!
+        !sed_dustsco3D(i,k)= -sed_flux(i,k)/zdz(i,k)      !g/cm3*sec !!!!!!!
         !
       ENDDO          !klon
