links_FFsrcLink_update Subroutine

public subroutine links_FFsrcLink_update(me, dt)

Arguments

Type IntentOptional Attributes Name
type(FFsrcLink_t), intent(inout) :: me
real(kind=dp), intent(in) :: dt

Calls

proc~~links_ffsrclink_update~~CallsGraph proc~links_ffsrclink_update links_FFsrcLink_update proc~accumulate accumulate proc~links_ffsrclink_update->proc~accumulate

Called by

proc~~links_ffsrclink_update~~CalledByGraph proc~links_ffsrclink_update links_FFsrcLink_update proc~main_loop main_loop proc~main_loop->proc~links_ffsrclink_update program~reims_p reims_p program~reims_p->proc~main_loop

Source Code

subroutine links_FFsrcLink_update(me,dt)
    type(FFsrcLink_t), intent(inout) :: me
    real(dp), intent(in) :: dt

    integer :: k,i

    do i = 1, me%sizeNodes
      do k = 1, 2
        me%Matrix(:,1,k,i)=-dt*me%DerSedOther(:,k,i)
        me%Matrix(:,2,k,i)=-dt*me%DerSrdOther(:,k,i)
      enddo

      if (associated(me%MxUp(1,i)%p)) then
        call accumulate(me%Matrix(:,:,1,i),me%MxUp(:,i))
        call accumulate(me%Matrix(:,:,2,i),me%MxDown(:,i))
      endif
    enddo

end subroutine links_FFsrcLink_update