heat_mat_ass_bc_CFLUX.f90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
! Copyright (c) 2019 FrontISTR Commons
! This software is released under the MIT License, see LICENSE.txt
!-------------------------------------------------------------------------------
module m_heat_mat_ass_bc_cflux
contains
  !C
  !C***
  !C*** MAT_ASS_BC_CFLUX
  !C***
  !C
  subroutine heat_mat_ass_bc_cflux( hecMAT, fstrHEAT, CTIME, DTIME, beta )
 
    use m_fstr
    use m_heat_get_amplitude
 
    implicit none
    integer(kind=kint)   :: ib, in, ia
    real(kind=kreal)     :: ctime, dtime, qq, beta
    type(fstr_heat)      :: fstrheat
    type(hecmwst_matrix) :: hecMAT
 
    do ib = 1, fstrheat%Q_NOD_tot
      in = fstrheat%Q_NOD_node(ib)
      ia = fstrheat%Q_NOD_ampl(ib)
      call heat_get_amplitude ( fstrheat,ia,ctime,qq )
      hecmat%B(in) = hecmat%B(in) + qq*fstrheat%Q_NOD_val(ib)
    enddo
 
    return
  end subroutine heat_mat_ass_bc_cflux
end module m_heat_mat_ass_bc_cflux