From 4e9a5929822bf6a5314fbe386e35b70267e9724f Mon Sep 17 00:00:00 2001 From: JGonzalez Date: Fri, 10 Feb 2023 18:53:19 +0100 Subject: [PATCH] Returning to previous version of moduleMesh.f90 Having initialization in some variables was causing issues in 1D geometry, so I reverted the file to one working. --- src/modules/mesh/moduleMesh.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/modules/mesh/moduleMesh.f90 b/src/modules/mesh/moduleMesh.f90 index 0804059..cb252e8 100644 --- a/src/modules/mesh/moduleMesh.f90 +++ b/src/modules/mesh/moduleMesh.f90 @@ -639,8 +639,8 @@ MODULE moduleMesh CLASS(meshCell), INTENT(inout):: self CLASS(particle), INTENT(inout), TARGET:: part CLASS(meshCell), OPTIONAL, INTENT(in):: oldCell - REAL(8):: Xi(1:3) = 0.D0 - CLASS(meshElement), POINTER:: neighbourElement => NULL() + REAL(8):: Xi(1:3) + CLASS(meshElement), POINTER:: neighbourElement INTEGER:: sp Xi = self%phy2log(part%r)