Skip to content

Commit

Permalink
Correct typos
Browse files Browse the repository at this point in the history
  • Loading branch information
mmalinen committed Feb 12, 2025
1 parent fb2d295 commit a55711e
Show file tree
Hide file tree
Showing 3 changed files with 6 additions and 8 deletions.
1 change: 0 additions & 1 deletion fem/src/SOLVER.KEYWORDS
Original file line number Diff line number Diff line change
Expand Up @@ -1735,7 +1735,6 @@ bc:logical: '1d fluid coupling'
bc:logical: '1d structure coupling'
body:logical: 'gap down mask'
body:logical: 'gap up mask'
material:real: 'elecric conductivity'
simulation:integer: 'max output partition'
simulation:integer: 'max output thread'
simulation:logical: 'additive namespaces'
Expand Down
12 changes: 6 additions & 6 deletions fem/src/modules/StatElecSolveVec.F90
Original file line number Diff line number Diff line change
Expand Up @@ -112,13 +112,13 @@ SUBROUTINE StatElecSolver_init( Model,Solver,dt,Transient )
PostActive = .TRUE.
END IF

IF( ListGetLogical(Params,'Calculate Elecric Flux',Found) ) THEN
IF( ListGetLogical(Params,'Calculate Electric Flux',Found) ) THEN
IF( CalculateElemental ) &
CALL ListAddString( Params,NextFreeKeyword('Exported Variable ',Params), &
'-dg Elecric Flux e[Elecric Flux e:'//I2S(dim)//']' )
'-dg Electric Flux e[Electric Flux e:'//I2S(dim)//']' )
IF( CalculateNodal ) &
CALL ListAddString( Params,NextFreeKeyword('Exported Variable ',Params), &
'Elecric Flux[Elecric Flux:'//I2S(dim)//']' )
'Electric Flux[Electric Flux:'//I2S(dim)//']' )
PostActive = .TRUE.
END IF

Expand Down Expand Up @@ -170,7 +170,7 @@ SUBROUTINE StatElecSolver_init( Model,Solver,dt,Transient )
CALL ListWarnUnsupportedKeyword('solver','adaptive mesh redinement',FatalFound=.TRUE.)
CALL ListWarnUnsupportedKeyword('body force','piezo material',FatalFound=.TRUE.)
IF( ListCheckPresentAnyBC(Model,'infinity bc') ) THEN
CALL Fatal('StatElecSolver_init','Use "Elecric Infinity BC" instead of "Infinity BC"')
CALL Fatal('StatElecSolver_init','Use "Electric Infinity BC" instead of "Infinity BC"')
END IF

! If no fields need to be computed do not even call the _post solver!
Expand Down Expand Up @@ -807,8 +807,8 @@ SUBROUTINE StatElecSolver_post( Model,Solver,dt,Transient )
! Electric current: type 2, components 2:4
PostVars(4) % Var => VariableGet( Mesh % Variables, 'Nodal Electric Flux')
PostVars(4) % NodalField = .TRUE.
PostVars(5) % Var => VariableGet( Mesh % Variables, 'Elecric Flux')
PostVars(6) % Var => VariableGet( Mesh % Variables, 'Elecric Flux e')
PostVars(5) % Var => VariableGet( Mesh % Variables, 'Electric Flux')
PostVars(6) % Var => VariableGet( Mesh % Variables, 'Electric Flux e')
PostVars(4:6) % FieldType = 2

! Electric field: type 3, components 5-7
Expand Down
1 change: 0 additions & 1 deletion fem/tests/ComponentResistance/case.sif
Original file line number Diff line number Diff line change
Expand Up @@ -79,7 +79,6 @@ End
Material 1
Density = 1.0
Electric Conductivity = Real 1.0e3
Elecric Conductivity = Real 1.0e3
End

Component 1
Expand Down

0 comments on commit a55711e

Please sign in to comment.