cleaning and comments

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

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
 

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

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

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