diff --git a/src/array_mod.F90 b/src/array_mod.F90 index b0594ebab94efdd2710e8feb9a90a3a58f2e6a59..b00087f20cf6e9cfe15d7148c38f596113090712 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