From 8383e5bed60fad6390acad70e9cdba9604c8bf80 Mon Sep 17 00:00:00 2001 From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch> Date: Fri, 3 Jul 2020 18:25:10 +0200 Subject: [PATCH] added arrays for coulomb collision operator --- src/array_mod.F90 | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/src/array_mod.F90 b/src/array_mod.F90 index b0594eba..b00087f2 100644 --- a/src/array_mod.F90 +++ b/src/array_mod.F90 @@ -9,11 +9,10 @@ MODULE array COMPLEX(dp), DIMENSION(:,:,:,:,:), ALLOCATABLE :: moments_rhs_i ! (ip,ij,ikr,ikz,updatetlevel) ! To load collision matrix - REAL(dp), DIMENSION(:,:), ALLOCATABLE :: iCe ! (ip,ij) - REAL(dp), DIMENSION(:,:), ALLOCATABLE :: iCi ! (ip,ij) - - ! Intermediate steps in rhs of equations - !COMPLEX(dp), DIMENSION(:,:,:), ALLOCATABLE:: moments_Apl, moments_Bpl, moments_Cpl, moments_Dpl,& - ! moments_Epl, moments_Fpl, moments_Gpl, moments_Hpl + REAL(dp), DIMENSION(:,:), ALLOCATABLE :: Ceepj, CeipjT + REAL(dp), DIMENSION(:,:), ALLOCATABLE :: CeipjF + REAL(dp), DIMENSION(:,:), ALLOCATABLE :: Ciipj, CiepjT + REAL(dp), DIMENSION(:,:), ALLOCATABLE :: CiepjF + END MODULE array -- GitLab