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)