Probes in 0 iteration
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:
parent
2ee6c1764e
commit
386ddd82dd
5 changed files with 18 additions and 8 deletions
|
|
@ -508,7 +508,7 @@ MODULE moduleMesh2DCart
|
|||
conv = 1.D0
|
||||
XiO = 0.D0
|
||||
|
||||
DO WHILE(conv > 1.D-2)
|
||||
DO WHILE(conv > 1.D-4)
|
||||
dPsi = self%dPsi(XiO, 4)
|
||||
pDer = self%partialDer(4, dPsi)
|
||||
detJ = self%detJac(pDer)
|
||||
|
|
@ -516,8 +516,7 @@ MODULE moduleMesh2DCart
|
|||
fPsi = self%fPsi(XiO, 4)
|
||||
f = (/ DOT_PRODUCT(fPsi,self%x), &
|
||||
DOT_PRODUCT(fPsi,self%y), &
|
||||
0.D0 /)
|
||||
f = f - r
|
||||
0.D0 /) - r
|
||||
Xi = XiO - MATMUL(invJ, f)/detJ
|
||||
conv = MAXVAL(DABS(Xi-XiO),1)
|
||||
XiO = Xi
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue