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

Probes in 0 iteration

Browse source 
Probes are now written at the 0 iteration.

Additionally, and this shouldn't be done, some small changes to the quad
elements. This should be done in a separate commit, but I'm lazy.
This commit is contained in:
Jorge Gonzalez 2023-02-23 13:36:31 +01:00
commit 386ddd82dd
5 changed files with 18 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/modules/mesh/2DCyl/moduleMesh2DCyl.f90
View file

@ -532,8 +532,7 @@ MODULE moduleMesh2DCyl
fPsi = self%fPsi(XiO, 4)
f = (/ DOT_PRODUCT(fPsi,self%z), &
DOT_PRODUCT(fPsi,self%r), &
0.D0 /)
f = f - r
0.D0 /) - r
Xi = XiO - MATMUL(invJ, f)/detJ
conv = MAXVAL(DABS(Xi-XiO),1)
XiO = Xi