From 6f24b5f1f6690e457fa6f3890b0d591a7606485a Mon Sep 17 00:00:00 2001 From: JGonzalez Date: Thu, 5 Jan 2023 20:32:45 +0100 Subject: [PATCH] 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. --- src/modules/mesh/2DCart/moduleMesh2DCart.f90 | 2 +- src/modules/mesh/2DCyl/moduleMesh2DCyl.f90 | 2 +- src/modules/moduleList.f90 | 3 +++ 3 files changed, 5 insertions(+), 2 deletions(-) diff --git a/src/modules/mesh/2DCart/moduleMesh2DCart.f90 b/src/modules/mesh/2DCart/moduleMesh2DCart.f90 index e7c6e6f..b3f65e4 100644 --- a/src/modules/mesh/2DCart/moduleMesh2DCart.f90 +++ b/src/modules/mesh/2DCart/moduleMesh2DCart.f90 @@ -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) diff --git a/src/modules/mesh/2DCyl/moduleMesh2DCyl.f90 b/src/modules/mesh/2DCyl/moduleMesh2DCyl.f90 index 6a47027..8f1ee5f 100644 --- a/src/modules/mesh/2DCyl/moduleMesh2DCyl.f90 +++ b/src/modules/mesh/2DCyl/moduleMesh2DCyl.f90 @@ -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) diff --git a/src/modules/moduleList.f90 b/src/modules/moduleList.f90 index b040c80..b1dafdc 100644 --- a/src/modules/moduleList.f90 +++ b/src/modules/moduleList.f90 @@ -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)