SSsrcLink_src_reinitialization Subroutine

public subroutine SSsrcLink_src_reinitialization(me)

Arguments

Type IntentOptional Attributes Name
type(SSsrcLink_t), intent(inout) :: me

Called by

proc~~sssrclink_src_reinitialization~~CalledByGraph proc~sssrclink_src_reinitialization SSsrcLink_src_reinitialization proc~main_loop main_loop proc~main_loop->proc~sssrclink_src_reinitialization program~reims_p reims_p program~reims_p->proc~main_loop

Source Code

subroutine SSsrcLink_src_reinitialization(me)
  type(SSsrcLink_t), intent(inout) :: me

  integer :: i

  do i = 1, me%sizeNodes
    me%lk(1,i)%p%rhs_SrcS  = 0.0_dp
    me%lk(1,i)%p%DerSrcSdT = 0.0_dp
    me%lk(2,i)%p%rhs_SrcS  = 0.0_dp
    me%lk(2,i)%p%DerSrcSdT = 0.0_dp
  enddo

  ! TODO if mesh2D involves accumulation (case of a slice angle for example)

end subroutine SSsrcLink_src_reinitialization