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

New boundary condition 'wallTemperature' that simulates a reflecting

Browse source 
wall with constant temperature and specific heat.
This commit is contained in:
Jorge Gonzalez 2020-12-19 16:20:28 +01:00
commit baf25c1157
8 changed files with 194 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/modules/moduleInput.f90
View file

@ -343,6 +343,7 @@ MODULE moduleInput
INTEGER:: i, s
CHARACTER(2):: istring, sString
CHARACTER(:), ALLOCATABLE:: object, bType
REAL(8):: Tw, cw !Wall temperature and specific heat
LOGICAL:: found
INTEGER:: nTypes
@ -372,6 +373,14 @@ MODULE moduleInput
CASE('transparent')
ALLOCATE(boundaryTransparent:: boundary(i)%bTypes(s)%obj)
CASE('wallTemperature')
CALL config%get(object // '.temperature', Tw, found)
IF (.NOT. found) CALL criticalError("temperature not found for wallTemperature boundary type", 'readBoundary')
CALL config%get(object // '.specificHeat', cw, found)
IF (.NOT. found) CALL criticalError("specificHeat not found for wallTemperature boundary type", 'readBoundary')
CALL initWallTemperature(boundary(i)%bTypes(s)%obj, Tw, cw)
CASE('axis')
ALLOCATE(boundaryAxis:: boundary(i)%bTypes(s)%obj)