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

NOT WORKING: Compilation okay, but not Dirichlet BC

Browse source 
The code compiles but the right BC is not being applied to the vectorF.

I'll check this tomorrow.
This commit is contained in:
Jorge Gonzalez 2024-07-12 23:30:35 +02:00
commit 10dee05922
2 changed files with 92 additions and 46 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1148,8 +1148,8 @@ MODULE moduleInput
CHARACTER(:), ALLOCATABLE:: typeEM
REAL(8):: potential
INTEGER:: physicalSurface
CHARACTER(:), ALLOCATABLE:: timeProfile
INTEGER:: b, e, s, n, ni
CHARACTER(:), ALLOCATABLE:: temporalProfile
INTEGER:: b, s, n, ni
CHARACTER(2):: bString
INTEGER:: info
EXTERNAL:: dgetrf
@ -1187,12 +1187,20 @@ MODULE moduleInput
END IF
CALL config%get(object // '.temporalProfile', temporalProfile, found)
IF (.NOT. found) THEN
CALL criticalError('Required parameter "potential" for Dirichlet boundary condition not found', 'readEMBoundary')
END IF
CALL config%get(object // '.physicalSurface', physicalSurface, found)
IF (.NOT. found) THEN
CALL criticalError('Required parameter "physicalSurface" for Dirichlet boundary condition not found', 'readEMBoundary')
END IF
CALL initDirichletTime(boundaryEM(b)%obj, physicalSurface, potential, temporalProfile)
CASE DEFAULT
CALL criticalError('Boundary type ' // typeEM // ' not yet supported', 'readEMBoundary')