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

Small changes while testing 0D case

Browse source
This commit is contained in:
Jorge Gonzalez 2026-02-27 22:21:37 +01:00
commit aad8675214
2 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/modules/init/moduleInput.f90
View file

@ -1012,9 +1012,6 @@ MODULE moduleInput
if (found) then if (found) then
allocate(physicalSurfaces(1:nPhysicalSurfaces)) allocate(physicalSurfaces(1:nPhysicalSurfaces))
else
call criticalError('No physical surfaces found in the input file', 'readPhysicalSurfaces')
end if end if
do ps = 1, nPhysicalSurfaces do ps = 1, nPhysicalSurfaces
@ -1339,8 +1336,11 @@ MODULE moduleInput
end do end do
! Builds the K matrix for the Particles mesh if (mesh%dimen > 0) then
call mesh%constructGlobalK() ! Builds the K matrix for the Particles mesh
call mesh%constructGlobalK()
end if
END SUBROUTINE readGeometry END SUBROUTINE readGeometry

2
src/modules/mesh/moduleMesh@elements.f90
View file

@ -183,7 +183,7 @@ submodule(moduleMesh) elements
!Compute the PLU factorization of K once boundary conditions have been read !Compute the PLU factorization of K once boundary conditions have been read
CALL dgetrf(self%numNodes, self%numNodes, self%K, self%numNodes, self%IPIV, info) CALL dgetrf(self%numNodes, self%numNodes, self%K, self%numNodes, self%IPIV, info)
IF (info /= 0) THEN IF (info /= 0) THEN
CALL criticalError('Factorization of K matrix failed', 'readBoundaryEM') CALL criticalError('Factorization of K matrix failed', 'constructGlobalK')
END IF END IF