Searched refs:RadiationFlag (Results 1 – 6 of 6) sorted by relevance
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/ |
H A D | GebhardtFactors.F90 | 94 CHARACTER(LEN=MAX_NAME_LEN) :: RadiationFlag,GebhardtFactorsFile, & variable 188 RadiationFlag = ListGetString( Model % BCs(i) % Values, & 190 IF ( RadiationFlag == 'diffuse gray' ) THEN
|
H A D | RadiationFactors.F90 | 98 CHARACTER(LEN=MAX_NAME_LEN) :: RadiationFlag, GebhardtFactorsFile, & local 120 RadiationFlag = GetString( Model % BCs(i) % Values, 'Radiation', GotIt ) 122 IF ( RadiationFlag == 'diffuse gray' ) Found = .TRUE. 234 RadiationFlag = GetString( Model % BCs(i) % Values, 'Radiation', GotIt ) 235 IF ( RadiationFlag == 'diffuse gray' ) THEN 463 RadiationFlag = GetString( BC, 'Radiation', GotIt ) 464 IF ( RadiationFlag == 'diffuse gray' ) THEN
|
H A D | ViewFactors.F90 | 132 CHARACTER(LEN=MAX_NAME_LEN) :: eq,RadiationFlag, & variable 296 RadiationFlag = GetString( BC, 'Radiation',GotIt ) 298 IF ( GotIt .AND. RadiationFlag == 'diffuse gray' ) THEN 332 RadiationFlag = GetString( BC, 'Radiation', GotIt ) 333 IF ( GotIt .AND. RadiationFlag == 'diffuse gray' ) THEN
|
H A D | ElementUtils.F90 | 312 CHARACTER(LEN=MAX_NAME_LEN) :: RadiationFlag local 611 RadiationFlag = ListGetString( Model % BCs(i) % Values, 'Radiation', GotIt ) 613 IF ( RadiationFlag == 'diffuse gray' ) THEN 985 CHARACTER(LEN=MAX_NAME_LEN) :: RadiationFlag local 1264 RadiationFlag = ListGetString( Model % BCs(i) % Values, 'Radiation', GotIt ) 1266 IF ( RadiationFlag == 'diffuse gray' ) THEN
|
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/ |
H A D | HeatSolve.F90 | 81 CHARACTER(LEN=MAX_NAME_LEN) :: RadiationFlag,ConvectionFlag local 1352 RadiationFlag = GetString( BC, 'Radiation', Found ) 1354 IF ( Found .AND. RadiationFlag /= 'none' ) THEN 1362 IF ( RadiationFlag == 'idealized' ) THEN
|
/dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/ |
H A D | EnthalpySolver.F90 | 71 CHARACTER(LEN=MAX_NAME_LEN) :: RadiationFlag,ConvectionFlag local 1430 RadiationFlag = GetString( BC, 'Radiation', Found ) 1432 IF ( Found .AND. RadiationFlag(1:4) /= 'none' ) THEN 1440 IF ( RadiationFlag(1:9) == 'idealized' ) THEN
|