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

Working on init for new physical surfaces

Browse source
This commit is contained in:
Jorge Gonzalez 2026-02-19 20:42:28 +01:00
commit a0d45503f7
6 changed files with 93 additions and 54 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -49,6 +49,9 @@ MODULE moduleInput
CALL checkStatus(config, "readBoundaryEM")
! Read Physical Surfaces
call verboseError('Reading Physical Surfaces...')
call readPhysicalSurfaces(config)
call checkStatus(config, 'readPhysicalSurfaces')
!Read Geometry
CALL verboseError('Reading Geometry...')
@ -895,6 +898,8 @@ MODULE moduleInput
write(ps, '(I2)') ps
object = 'physicalSurfaces(' // TRIM(bString) // ')'
allocate(physicalSurfaces(ps)%nodes(0))
allocate(physicalSurfaces(ps)%edges(0))
call config%get(object // '.index', physicalSurfaces(ps)%index, found)
if (.not. found) then
call criticalError('Physical surface index not found', 'readPhysicalSurfaces')