From 53cdc7449392d2f553c1e465dca9f72c511caed1 Mon Sep 17 00:00:00 2001
From: Antoine Hoffmann <antoine.hoffmann@epfl.ch>
Date: Tue, 25 Apr 2023 11:46:26 +0200
Subject: [PATCH] cleaning and comments
---
src/diagnose.F90 | 3 +--
src/ghosts_mod.F90 | 3 +--
src/processing_mod.F90 | 4 ++--
src/restarts_mod.F90 | 2 +-
src/species_mod.F90 | 2 +-
5 files changed, 6 insertions(+), 8 deletions(-)
diff --git a/src/diagnose.F90 b/src/diagnose.F90
index e9f89c58..271e7e89 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 246fd7d3..62b38110 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 53b63c26..df58434a 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 8dc162fa..720fe5eb 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 d00db354..071ea910 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
--
GitLab