FSlink_src_reinitialization Subroutine

public subroutine FSlink_src_reinitialization(me)

Arguments

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

Called by

proc~~fslink_src_reinitialization~~CalledByGraph proc~fslink_src_reinitialization FSlink_src_reinitialization proc~main_loop main_loop proc~main_loop->proc~fslink_src_reinitialization program~reims_p reims_p program~reims_p->proc~main_loop

Source Code

subroutine FSlink_src_reinitialization(me)
  type(FSlink_t), intent(inout) :: me

  integer :: i

  do i = 1, me%sizeNodes
    me%lk(1,i)%p%rhs_SrcP_Se   = 0.0_dp
    me%lk(1,i)%p%rhs_SrcP_Sr   = 0.0_dp
    me%lk(1,i)%p%DerSrcP_Se(:) = 0.0_dp
    me%lk(1,i)%p%DerSrcP_Sr(:) = 0.0_dp

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

end subroutine FSlink_src_reinitialization