(formulation is based on TE mode formulation for 2D).
This subroutine assumes the Maxwell equations with D and B as input variables. Furthermore, it is able to handle jumping material parameters.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | nTotalFaces | |||
integer, | intent(in) | :: | nSides | |||
integer, | intent(in) | :: | nFaceDofs | |||
real(kind=rk), | intent(in) | :: | faceRep(nTotalFaces,nFaceDofs,7,2) | |||
real(kind=rk), | intent(inout) | :: | faceFlux(nTotalFaces,nFaceDofs,7,2) | |||
integer, | intent(in) | :: | leftPos(nSides) | |||
integer, | intent(in) | :: | rightPos(nsides) | |||
integer, | intent(in) | :: | var(7) | |||
real(kind=rk), | intent(in) | :: | material_left(nSides,1,3) | |||
real(kind=rk), | intent(in) | :: | material_right(nSides,1,3) |
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
integer, | private | :: | iSide | ||||
integer, | private | :: | left | ||||
integer, | private | :: | right | ||||
integer, | private | :: | iDof | ||||
real(kind=rk), | private | :: | left_mu | ||||
real(kind=rk), | private | :: | right_mu | ||||
real(kind=rk), | private | :: | left_epsi | ||||
real(kind=rk), | private | :: | right_epsi | ||||
real(kind=rk), | private | :: | left_speedOfLight | ||||
real(kind=rk), | private | :: | right_speedOfLight | ||||
real(kind=rk), | private | :: | inv_denom_mu | ||||
real(kind=rk), | private | :: | inv_denom_epsi |