source_from_FS_ports_self_strand Subroutine

public subroutine source_from_FS_ports_self_strand(me, dt)

Arguments

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

Called by

proc~~source_from_fs_ports_self_strand~~CalledByGraph proc~source_from_fs_ports_self_strand source_from_FS_ports_self_strand proc~main_loop main_loop proc~main_loop->proc~source_from_fs_ports_self_strand program~reims_p reims_p program~reims_p->proc~main_loop

Source Code

subroutine source_from_FS_ports_self_strand(me,dt)
    type(strand_t), intent(inout) :: me
    real(dp), intent(in) :: dt

    integer :: i

    if(me%SC_Prop%FSlink) then
      do i=1,me%SC_Prop%NbCells
          me%big%bmS(i)=me%big%bmS(i)-dt*me%SC_Prop%thermP(i)%p%DerSrcSdT
          me%big%bvS(i)=me%big%bvS(i)+dt*me%SC_Prop%thermP(i)%p%rhs_SrcS
      enddo
    endif

end subroutine source_from_FS_ports_self_strand