From f4789992022e5773138187584e98d29f4973275e Mon Sep 17 00:00:00 2001 From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch> Date: Wed, 8 Jul 2020 10:05:40 +0200 Subject: [PATCH] fix FC matrix allocation --- src/memory.F90 | 16 +++++++--------- 1 file changed, 7 insertions(+), 9 deletions(-) diff --git a/src/memory.F90 b/src/memory.F90 index a094ce92..b695a128 100644 --- a/src/memory.F90 +++ b/src/memory.F90 @@ -5,7 +5,7 @@ SUBROUTINE memory USE basic USE fields USE fourier_grid - USE time_integration + USE time_integration USE model, ONLY: CO USE prec_const @@ -22,14 +22,12 @@ SUBROUTINE memory ! Collision matrix IF (CO .EQ. -1) THEN - CALL allocate_array( Ceepj, ns_e,ne_e, 1,(pmaxe+1)*(jmaxe+1)) - CALL allocate_array( CeipjT, ns_e,ne_e, 1,(pmaxe+1)*(jmaxe+1)) - CALL allocate_array( CeipjF, ns_e,ne_e, 1,(pmaxi+1)*(jmaxi+1)) - - CALL allocate_array( Ciipj, ns_i,ne_i, 1,(pmaxi+1)*(jmaxi+1)) - CALL allocate_array( CiepjT, ns_i,ne_i, 1,(pmaxi+1)*(jmaxi+1)) - CALL allocate_array( CiepjF, ns_i,ne_i, 1,(pmaxe+1)*(jmaxe+1)) + CALL allocate_array( Ceepj, 1,(pmaxe+1)*(jmaxe+1), 1,(pmaxe+1)*(jmaxe+1)) + CALL allocate_array( CeipjT, 1,(pmaxe+1)*(jmaxe+1), 1,(pmaxe+1)*(jmaxe+1)) + CALL allocate_array( CeipjF, 1,(pmaxe+1)*(jmaxe+1), 1,(pmaxi+1)*(jmaxi+1)) - write(*,*) 'ns_i=',ns_i,', ns_e=',ns_e + CALL allocate_array( Ciipj, 1,(pmaxi+1)*(jmaxi+1), 1,(pmaxi+1)*(jmaxi+1)) + CALL allocate_array( CiepjT, 1,(pmaxi+1)*(jmaxi+1), 1,(pmaxi+1)*(jmaxi+1)) + CALL allocate_array( CiepjF, 1,(pmaxi+1)*(jmaxi+1), 1,(pmaxe+1)*(jmaxe+1)) ENDIF END SUBROUTINE memory -- GitLab