JGonzalez/fpakc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Returning to previous version of moduleMesh.f90

Browse source 
Having initialization in some variables was causing issues in 1D
geometry, so I reverted the file to one working.
This commit is contained in:
Jorge Gonzalez 2023-02-10 18:53:19 +01:00
commit 4e9a592982
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/modules/mesh/moduleMesh.f90
View file

@ -639,8 +639,8 @@ MODULE moduleMesh
CLASS(meshCell), INTENT(inout):: self CLASS(meshCell), INTENT(inout):: self
CLASS(particle), INTENT(inout), TARGET:: part CLASS(particle), INTENT(inout), TARGET:: part
CLASS(meshCell), OPTIONAL, INTENT(in):: oldCell CLASS(meshCell), OPTIONAL, INTENT(in):: oldCell
REAL(8):: Xi(1:3) = 0.D0 REAL(8):: Xi(1:3)
CLASS(meshElement), POINTER:: neighbourElement => NULL() CLASS(meshElement), POINTER:: neighbourElement
INTEGER:: sp INTEGER:: sp
Xi = self%phy2log(part%r) Xi = self%phy2log(part%r)