diff --git a/src/diagnose.F90 b/src/diagnose.F90
index e9f89c5848d918355e9e71597d2e6ddeccc6e807..271e7e8931c359a3c725e87acfaaf48e55c65e0f 100644
--- a/src/diagnose.F90
+++ b/src/diagnose.F90
@@ -322,7 +322,6 @@ SUBROUTINE diagnose_2d
   USE DLRA, ONLY: Sf
 #endif
   IMPLICIT NONE
-  CHARACTER(50) :: dset_name
   iframe2d=iframe2d+1
   CALL append(fidres,"/data/var2d/time", REAL(time,dp), ionode=0)
   CALL append(fidres,"/data/var2d/cstep",REAL(cstep,dp),ionode=0)
@@ -339,7 +338,7 @@ SUBROUTINE diagnose_3d
   USE array,  ONLY: Napjz,dens,upar,uper,Tpar,Tper,temp
   USE grid, ONLY: CONTAINSp0, ip0,ij0, local_na, total_na,&
                   total_np, total_nj, total_nky, total_nkx, total_nz, &
-                  local_np, local_nj, local_nky, local_nkx, local_nz, &
+                  local_np, local_nky, local_nkx, local_nz, &
                   ngz
   USE time_integration, ONLY: updatetlevel
   USE diagnostics_par
diff --git a/src/ghosts_mod.F90 b/src/ghosts_mod.F90
index 246fd7d3139f213b584b8cb1896f5215d0810827..62b38110067b9862d23f5c0d197ae7ba8bd0751f 100644
--- a/src/ghosts_mod.F90
+++ b/src/ghosts_mod.F90
@@ -55,8 +55,7 @@ SUBROUTINE update_ghosts_p_mom
   USE grid,     ONLY: local_na,local_np,local_nj,local_nky,local_nkx,local_nz,&
                               ngp,ngj,ngz
   IMPLICIT NONE
-  INTEGER :: ierr, first, last, count, iz,ikx,iky,ij,igp,ia
-  COMPLEX(xp), DIMENSION(local_na,ngp/2,local_nj+ngj,local_nky,local_nkx,local_nz+ngz) :: buffer_send, buffer_recv
+  INTEGER :: ierr, first, last, count
   first = 1 + ngp/2
   last  = local_np + ngp/2
 
diff --git a/src/processing_mod.F90 b/src/processing_mod.F90
index 53b63c26ebb090b4892ae05a1595c22fb9d998bb..df58434ae692ef69ecbb95226d1894fd437a09d9 100644
--- a/src/processing_mod.F90
+++ b/src/processing_mod.F90
@@ -51,7 +51,7 @@ CONTAINS
    !
    SUBROUTINE compute_nadiab_moments
       IMPLICIT NONE
-      INTEGER :: ia,ip,ij,iky,ikx,iz
+      INTEGER :: ia,ij
       !non adiab moments
       ! default : same as moments
       nadiab_moments(:,:,:,:,:,:) = moments(:,:,:,:,:,:,updatetlevel)
@@ -77,7 +77,7 @@ CONTAINS
    ! ! z grid gradients
    SUBROUTINE compute_gradients_z
       IMPLICIT NONE
-      INTEGER :: eo, p_int, ia,ip,ij,iky,ikx,iz
+      INTEGER :: eo, p_int, ia,ip,ij,iky,ikx
       COMPLEX(xp), DIMENSION(local_nz+ngz) :: f_in
       COMPLEX(xp), DIMENSION(local_nz)     :: f_out
    IF(total_nz .GT. 4) THEN
diff --git a/src/restarts_mod.F90 b/src/restarts_mod.F90
index 8dc162fa96b7b4cf709371f029686c29eb2aa7f8..720fe5eb7dd0a1b1ef0c064bdff8b315c2a0bbfa 100644
--- a/src/restarts_mod.F90
+++ b/src/restarts_mod.F90
@@ -26,7 +26,7 @@ CONTAINS
     INTEGER :: n_
     INTEGER :: deltap_cp
     INTEGER :: n0, Np_cp, Nj_cp, Nkx_cp, Nky_cp, Nz_cp, Na_cp
-    INTEGER :: ia,ip,ij,iky,ikx,iz,it, iacp,ipcp,ijcp,iycp,ixcp,izcp, ierr
+    INTEGER :: ia,ip,ij,iky,ikx,iz, iacp,ipcp,ijcp,iycp,ixcp,izcp, ierr
     INTEGER :: ipi,iji,izi
     REAL(xp):: timer_tot_1,timer_tot_2
     COMPLEX(xp), DIMENSION(:,:,:,:,:,:), ALLOCATABLE :: moments_cp
diff --git a/src/species_mod.F90 b/src/species_mod.F90
index d00db354ebe70902c517397e1b55cf6ba6da745d..071ea9101a591b7b0eb5368723e4a6d0ccdab07e 100644
--- a/src/species_mod.F90
+++ b/src/species_mod.F90
@@ -21,7 +21,7 @@ MODULE species
   REAL(xp), ALLOCATABLE, DIMENSION(:,:),PUBLIC, PROTECTED :: nu_ab              ! Collision frequency tensor
   !! Auxiliary variables to store precomputation
   REAL(xp), ALLOCATABLE, DIMENSION(:),PUBLIC, PROTECTED :: tau_q              ! factor of the magnetic moment coupling
-  REAL(xp), ALLOCATABLE, DIMENSION(:),PUBLIC, PROTECTED :: q_tau              !
+  REAL(xp), ALLOCATABLE, DIMENSION(:),PUBLIC, PROTECTED :: q_tau              ! charge/temp ratio
   REAL(xp), ALLOCATABLE, DIMENSION(:),PUBLIC, PROTECTED :: sqrtTau_q          ! factor of parallel moment term
   REAL(xp), ALLOCATABLE, DIMENSION(:),PUBLIC, PROTECTED :: q_sigma_sqrtTau    ! factor of parallel phi term
   REAL(xp), ALLOCATABLE, DIMENSION(:),PUBLIC, PROTECTED :: sigma2_tau_o2      ! factor of the Kernel argument