Small changes before trying something big
I think that creating arrays with self%nNodes takes a lot of time. I'm trying now to pass the number of nodes as argument.
This commit is contained in:
parent
26bd73597d
commit
6f24b5f1f6
3 changed files with 5 additions and 2 deletions
|
|
@ -520,7 +520,7 @@ MODULE moduleMesh2DCart
|
|||
conv = 1.D0
|
||||
XiO = 0.D0
|
||||
|
||||
DO WHILE(conv > 1.D-3)
|
||||
DO WHILE(conv > 1.D-2)
|
||||
dPsi = self%dPsi(XiO)
|
||||
invJ = self%invJac(XiO, dPsi)
|
||||
fPsi = self%fPsi(XiO)
|
||||
|
|
|
|||
|
|
@ -552,7 +552,7 @@ MODULE moduleMesh2DCyl
|
|||
conv = 1.D0
|
||||
XiO = 0.D0
|
||||
|
||||
DO WHILE(conv > 1.D-3)
|
||||
DO WHILE(conv > 1.D-2)
|
||||
dPsi = self%dPsi(XiO)
|
||||
invJ = self%invJac(XiO, dPsi)
|
||||
detJ = self%detJac(XiO, dPsi)
|
||||
|
|
|
|||
|
|
@ -92,9 +92,12 @@ MODULE moduleList
|
|||
DEALLOCATE(current)
|
||||
current => next
|
||||
END DO
|
||||
|
||||
IF (ASSOCIATED(self%head)) NULLIFY(self%head)
|
||||
IF (ASSOCIATED(self%tail)) NULLIFY(self%tail)
|
||||
|
||||
self%amount = 0
|
||||
|
||||
END SUBROUTINE eraseList
|
||||
|
||||
SUBROUTINE setLock(self)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue