/dports/science/elmerfem/elmerfem-release-9.0/fem/src/modules/ |
H A D | RigidMeshMapper.F90 | 86 TYPE(ValueList_t),POINTER :: BodyForce local 302 BodyForce => Model % BodyForces(bf_id) % Values 315 Parray => ListGetConstRealArray( BodyForce,'Mesh Matrix', GotMatrix ) 339 Angles(1:1) = ListGetReal( BodyForce,'Mesh Rotate 1', 1, NodeIndex, Found ) 341 Angles(2:2) = ListGetReal( BodyForce,'Mesh Rotate 2', 1, NodeIndex, Found ) 352 Parray => ListGetConstRealArray( BodyForce,'Mesh Scale', GotScale ) 361 Scaling(2:2) = ListGetReal( BodyForce,'Mesh Scale 2',1,NodeIndex,Found) 364 Scaling(3:3) = ListGetReal( BodyForce,'Mesh Scale 3',1,NodeIndex,Found) 374 Parray => ListGetConstRealArray( BodyForce,'Mesh Translate', GotTranslate ) 463 Parray => ListGetConstRealArray( BodyForce,'Mesh Origin', Found ) [all …]
|
H A D | Smitc.F90 | 76 TYPE(ValueList_t), POINTER :: Material, BodyForce local 162 BodyForce => NULL() 164 BodyForce => Model % Materials(mat_id) % Values 179 IF(.NOT. got_bf_id) BodyForce => GetBodyForce() 187 IF(ASSOCIATED(BodyForce)) THEN 188 Load(1:n) = GetReal( BodyForce, 'Pressure', GotIt) 190 Load2(1:n) = GetReal( BodyForce, 'Pressure B', GotIt ) 193 Load2(1:n) = GetReal( BodyForce, 'Pressure C', GotIt) 210 IF ( ASSOCIATED(BodyForce) ) THEN 219 IF ( ASSOCIATED(BodyForce)) THEN [all …]
|
H A D | Poisson.F90 | 40 TYPE(ValueList_t), POINTER :: BodyForce, BC local 72 BodyForce => GetBodyForce() 73 IF ( ASSOCIATED(BodyForce) ) & 74 Load(1:n) = GetReal( BodyForce, 'Source', Found )
|
/dports/science/elmerfem/elmerfem-release-9.0/elmerice/UserFunctions/ |
H A D | USF_LateralFriction.F90 | 84 TYPE(ValueList_t), POINTER :: BodyForce, Material local 101 BodyForce => GetBodyForce() 114 g(1) = GetConstReal( BodyForce, 'Lateral Friction Gravity 1', GotIt ) 115 g(2) = GetConstReal( BodyForce, 'Lateral Friction Gravity 2', GotIt ) 120 mm = GetConstReal( BodyForce, 'Lateral Friction Exponent', GotIt ) 124 FlowSolverName = GetString( BodyForce, 'Flow Solver Name', GotIt ) 150 auxReal(1:n) = GetReal( BodyForce, &
|
H A D | USF_SourceCalcCalving.F90 | 67 TYPE(ValueList_t), POINTER :: BodyForce local 80 BodyForce => GetBodyForce(CurrentElement) 101 IMLogical = GetLogical(BodyForce,'Internal Melt',Found) 104 IMVarName = GetString(BodyForce,'Internal Melt Variable Name',Found) 121 SMVarName = GetString(BodyForce,'Surface Melt Variable Name',Found) 122 SMLogical = GetLogical(BodyForce,'Surface Melt',Found)
|
H A D | USF_ShapeFactor.F90 | 84 TYPE(ValueList_t), POINTER :: BodyForce, BC local 135 BodyForce => GetBodyForce() 140 g(1) = GetConstReal( BodyForce, 'Shape Gravity 1', GotIt ) 141 g(2) = GetConstReal( BodyForce, 'Shape Gravity 2', GotIt ) 148 Parabola = GetLogical( BodyForce, 'Parabola Shape', GotIt) 150 Rectangle = GetLogical( BodyForce, 'Rectangle Shape', GotIt) 158 auxReal(1:n) = GetReal( BodyForce, & 269 auxReal(1:n) = GetReal( BodyForce, & 274 auxReal(1:n) = GetReal( BodyForce, & 359 BodyForce => GetBodyForce() [all …]
|
/dports/science/lammps/lammps-stable_29Sep2021/lib/atc/ |
H A D | BodyForce.h | 16 class BodyForce 19 BodyForce() {}; in BodyForce() function 20 virtual ~BodyForce() {}; in ~BodyForce() 29 class BodyForceViscous : public BodyForce 49 class BodyForceElectricField : public BodyForce
|
/dports/science/liggghts/LIGGGHTS-PUBLIC-3.8.0-26-g6e873439/lib/atc/ |
H A D | BodyForce.h | 16 class BodyForce 19 BodyForce() {}; in BodyForce() function 20 virtual ~BodyForce() {}; in ~BodyForce() 29 class BodyForceViscous : public BodyForce 49 class BodyForceElectricField : public BodyForce
|
/dports/science/elmerfem/elmerfem-release-9.0/fem/src/ |
H A D | SOLVER.KEYWORDS | 389 BodyForce:Real: 'Flow BodyForce 1' 390 BodyForce:Real: 'Flow BodyForce 2' 391 BodyForce:Real: 'Flow BodyForce 3' 403 BodyForce:Real: 'Magnetic BodyForce 1' 404 BodyForce:Real: 'Magnetic BodyForce 2' 405 BodyForce:Real: 'Magnetic BodyForce 3' 434 BodyForce:Real: 'Pressure' 439 BodyForce:Real: 'Source' 441 BodyForce:Real: 'Strain' 446 BodyForce:Real: 'Stress' [all …]
|
/dports/science/elmerfem/elmerfem-release-9.0/fem/tests/1sttime/ |
H A D | TimeIntegrate.f90 | 21 TYPE(ValueList_t), POINTER :: BodyForce local 33 BodyForce => GetBodyForce() 34 IF ( ASSOCIATED(BodyForce) ) & 35 Load(1:n) = GetReal( BodyForce, 'Source', Found )
|
/dports/science/elmerfem/elmerfem-release-9.0/fem/tests/2ndtime/ |
H A D | TimeIntegrate.f90 | 43 TYPE(ValueList_t), POINTER :: BodyForce local 55 BodyForce => GetBodyForce() 56 IF ( ASSOCIATED(BodyForce) ) & 57 Load(1:n) = GetReal( BodyForce, 'Source', Found )
|
/dports/science/elmerfem/elmerfem-release-9.0/fem/tests/KeywordHandleTimer/ |
H A D | KeywordCompare.F90 | 22 TYPE(ValueList_t), POINTER :: Material, BodyForce local 61 BodyForce => GetBodyForce() 66 LogD = ListGetLogical( BodyForce,'Logical Value D',Found ) 108 BodyForce => GetBodyForce() 113 IntD = ListGetInteger( BodyForce,'Integer Value D',Found ) 149 BodyForce => GetBodyForce()
|
/dports/science/elmerfem/elmerfem-release-9.0/fem/tests/1dtests/ |
H A D | Poisson.f90 | 41 TYPE(ValueList_t), POINTER :: BodyForce local 71 BodyForce => GetBodyForce() 72 IF ( ASSOCIATED(BodyForce) ) & 73 Load(1:n) = GetReal( BodyForce, 'Source', Found )
|
/dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/Adjoint/ |
H A D | Adjoint_CostContSolver.F90 | 87 TYPE(ValueList_t), POINTER :: SolverParams,BodyForce local 204 BodyForce => GetBodyForce(Element) 207 NodeCost(1:n) = ListGetReal( BodyForce, 'Adjoint Cost', n, NodeIndexes, UnFoundFatal=.TRUE.) 212 IF(.NOT. ListCheckPresent( BodyForce,TRIM(DerName))) & 214 NodeCost_der(1,1:n)=ListGetReal( BodyForce,DerName, n, NodeIndexes, UnFoundFatal=.TRUE.) 218 NodeCost_der(k,1:n)=ListGetReal( BodyForce,TRIM(DerName), n, NodeIndexes, Found)
|
H A D | Adjoint_CostRegSolver.F90 | 109 TYPE(ValueList_t), POINTER :: SolverParams,BodyForce local 238 BodyForce => GetBodyForce(Element) 239 IF (.NOT.ASSOCIATED(BodyForce)) THEN 265 NodeAp(1:n) = ListGetReal( BodyForce, 'CostReg Nodal Prior', n, NodeIndexes, GotIt) 270 NodeRMS(1:n)=ListGetReal( BodyForce,'CostReg Nodal std', n, NodeIndexes, GotIt) 282 …NodeValues(1:n)=ListGetReal( BodyForce,'CostReg Nodal Variable',n, NodeIndexes, UnFoundFatal=.TRUE… 283 …NodalDer(1:n) = ListGetReal( BodyForce,'CostReg Nodal Variable derivative',n,NodeIndexes,Found=Hav…
|
/dports/science/elmerfem/elmerfem-release-9.0/fem/tests/StokesProj/ |
H A D | Velocity.f90 | 42 TYPE(ValueList_t), POINTER :: BodyForce, Material local 82 BodyForce => GetBodyForce() 84 IF ( ASSOCIATED(BodyForce) ) THEN 85 Load(1:n,1) = GetReal( BodyForce, 'Source x', Found ) 86 Load(1:n,2) = GetReal( BodyForce, 'Source y', Found ) 87 Load(1:n,3) = GetReal( BodyForce, 'Source z', Found )
|
/dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/MeshAdaptation_2D/ |
H A D | MMG2D_MetricAniso.F90 | 96 TYPE(ValueList_t),POINTER :: SolverParams, BodyForce local 267 BodyForce => CurrentModel % BodyForces(bf_id) % Values 268 IF( ListCheckPresent(BodyForce,TRIM(TensorName) // ' err')& 269 .AND.ListCheckPresent(BodyForce,TRIM(TensorName) // ' hmin')& 270 .AND.ListCheckPresent(BodyForce,TRIM(TensorName) // ' hmax')) EXIT 276 Param(1)=ListGetRealAtNode(BodyForce,TRIM(TensorName) // ' hmin', node) 277 Param(2)=ListGetRealAtNode(BodyForce,TRIM(TensorName) // ' hmax', node) 278 Param(3)= ListGetRealAtNode(BodyForce,TRIM(TensorName) // ' err', node)
|
/dports/science/elmerfem/elmerfem-release-9.0/fem/tests/pmultg/ |
H A D | Poisson.f90 | 40 TYPE(ValueList_t), POINTER :: BodyForce local 70 BodyForce => GetBodyForce() 71 IF ( ASSOCIATED(BodyForce) ) & 72 Load(1:n) = GetReal( BodyForce, 'Source', Found )
|
/dports/science/elmerfem/elmerfem-release-9.0/fem/tests/PoissonPFEM/ |
H A D | Poisson.f90 | 40 TYPE(ValueList_t), POINTER :: BodyForce local 70 BodyForce => GetBodyForce() 71 IF ( ASSOCIATED(BodyForce) ) & 72 Load(1:n) = GetReal( BodyForce, 'Source', Found )
|
/dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/Documentation/ |
H A D | AdjointSSA_SSASolver.md | 104 !# gravity for BodyForce 2 (1D-case) or BodyForce 3 (2D plane view case) 106 Flow BodyForce 1 = Real 0.0 107 Flow BodyForce 2 = Real 0.0 108 Flow BodyForce 3 = Real $gravity
|
/dports/science/elmerfem/elmerfem-release-9.0/fem/tests/StokesPFEM/ |
H A D | Stokes.f90 | 56 TYPE(ValueList_t), POINTER :: BodyForce, Material local 97 BodyForce => GetBodyForce() 99 IF ( ASSOCIATED(BodyForce) ) THEN 100 Load(1:n,1) = GetReal( BodyForce, 'Source x', Found ) 101 Load(1:n,2) = GetReal( BodyForce, 'Source y', Found ) 102 Load(1:n,3) = GetReal( BodyForce, 'Source z', Found )
|
/dports/science/elmerfem/elmerfem-release-9.0/fem/tests/CurvedBndryPFEM2/ |
H A D | Poisson.f90 | 40 TYPE(ValueList_t), POINTER :: BodyForce,BC local 72 BodyForce => GetBodyForce() 74 IF ( ASSOCIATED(BodyForce) ) & 75 Load(1:n) = GetReal( BodyForce, 'Source', Found )
|
/dports/science/elmerfem/elmerfem-release-9.0/fem/tests/ExtrudedMesh/ |
H A D | Poisson.f90 | 40 TYPE(ValueList_t), POINTER :: BodyForce local 72 BodyForce => GetBodyForce() 73 IF ( ASSOCIATED(BodyForce) ) & 74 Load(1:n) = GetReal( BodyForce, 'Source', Found )
|
/dports/science/elmerfem/elmerfem-release-9.0/fem/tests/ExtrudedMeshBaseline1/ |
H A D | Poisson.f90 | 40 TYPE(ValueList_t), POINTER :: BodyForce local 72 BodyForce => GetBodyForce() 73 IF ( ASSOCIATED(BodyForce) ) & 74 Load(1:n) = GetReal( BodyForce, 'Source', Found )
|
/dports/science/elmerfem/elmerfem-release-9.0/elmerice/Solvers/AdjointSSA/ |
H A D | AdjointSSA_CostContSolver.F90 | 79 TYPE(ValueList_t), POINTER :: SolverParams,BodyForce local 205 BodyForce => GetBodyForce() 208 NodeCost(1:n) = ListGetReal( BodyForce, 'Adjoint Cost', n, NodeIndexes, GotIt) 216 NodeCost_der(1,1:n)=ListGetReal( BodyForce, 'Adjoint Cost der 1', n, NodeIndexes, GotIt) 217 NodeCost_der(2,1:n)=ListGetReal( BodyForce, 'Adjoint Cost der 2', n, NodeIndexes, GotIt)
|