From 90bcdc69f4363494d2b91f648853d1d1c23079af Mon Sep 17 00:00:00 2001 From: Juan ESCOBAR <juan.escobar@aero.obs-mip.fr> Date: Wed, 1 Feb 2023 11:03:17 +0100 Subject: [PATCH] Juan 01/02/2023:ZSOLVER/../discretisation.f90, double size of NT1D buffer , to allow lev1 splitting in MG --- src/ZSOLVER/tensorproductmultigrid_Source/discretisation.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/ZSOLVER/tensorproductmultigrid_Source/discretisation.f90 b/src/ZSOLVER/tensorproductmultigrid_Source/discretisation.f90 index 92c5800f2..e45406f0d 100644 --- a/src/ZSOLVER/tensorproductmultigrid_Source/discretisation.f90 +++ b/src/ZSOLVER/tensorproductmultigrid_Source/discretisation.f90 @@ -148,7 +148,7 @@ private real(kind=rl), pointer , contiguous , dimension(:) :: zt1d_discretisation INTEGER :: zt1d_discretisation_size = 10000000 - INTEGER , parameter :: zt1d_discretisation_size_factor = 4 * 4 + INTEGER , parameter :: zt1d_discretisation_size_factor = 4 * 8 INTEGER :: nt1d_discretisation_top = 0 , nt1d_discretisation_max = 0 INTEGER , ALLOCATABLE, DIMENSION (:) :: nt1d_discretisation_pointer , nt1d_discretisation_pointer_ksize -- GitLab