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

Small changes before trying something big

Browse source 
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:
Jorge Gonzalez 2023-01-05 20:32:45 +01:00
commit 6f24b5f1f6
3 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/modules/mesh/2DCart/moduleMesh2DCart.f90
View file

@ -520,7 +520,7 @@ MODULE moduleMesh2DCart
conv = 1.D0 conv = 1.D0
XiO = 0.D0 XiO = 0.D0
DO WHILE(conv > 1.D-3) DO WHILE(conv > 1.D-2)
dPsi = self%dPsi(XiO) dPsi = self%dPsi(XiO)
invJ = self%invJac(XiO, dPsi) invJ = self%invJac(XiO, dPsi)
fPsi = self%fPsi(XiO) fPsi = self%fPsi(XiO)

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

@ -552,7 +552,7 @@ MODULE moduleMesh2DCyl
conv = 1.D0 conv = 1.D0
XiO = 0.D0 XiO = 0.D0
DO WHILE(conv > 1.D-3) DO WHILE(conv > 1.D-2)
dPsi = self%dPsi(XiO) dPsi = self%dPsi(XiO)
invJ = self%invJac(XiO, dPsi) invJ = self%invJac(XiO, dPsi)
detJ = self%detJac(XiO, dPsi) detJ = self%detJac(XiO, dPsi)

3
src/modules/moduleList.f90
View file

@ -92,9 +92,12 @@ MODULE moduleList
DEALLOCATE(current) DEALLOCATE(current)
current => next current => next
END DO END DO
IF (ASSOCIATED(self%head)) NULLIFY(self%head) IF (ASSOCIATED(self%head)) NULLIFY(self%head)
IF (ASSOCIATED(self%tail)) NULLIFY(self%tail) IF (ASSOCIATED(self%tail)) NULLIFY(self%tail)
self%amount = 0 self%amount = 0
END SUBROUTINE eraseList END SUBROUTINE eraseList
SUBROUTINE setLock(self) SUBROUTINE setLock(self)