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

Input for floating boundary

Browse source
This commit is contained in:
Jorge Gonzalez 2026-04-07 09:37:10 +02:00
commit 2291236efb
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -969,17 +969,20 @@ MODULE moduleInput
select case(bType) select case(bType)
case ("dirichlet") case ("dirichlet")
! Allocate boundary edge
allocate(boundaryEMDirichlet:: self) allocate(boundaryEMDirichlet:: self)
CALL initDirichlet(self, config, object) CALL initDirichlet(self, config, object)
case ("dirichlettime") case ("dirichlettime")
! Allocate boundary edge
allocate(boundaryEMDirichletTime:: self) allocate(boundaryEMDirichletTime:: self)
call initDirichletTime(self, config, object) call initDirichletTime(self, config, object)
case ("floating")
allocate(boundaryEMFloating:: self)
call initFloating(self, config, object)
case default case default
call criticalError('Boundary type ' // bType // ' not supported', 'readBoundaryEM') call criticalError('Boundary type ' // bType // ' not supported', 'readBoundaryEM')