1. Harald Klimach
  2. TreElM

Source

TreElM / source / atl_derived / atl_eqn_bbm_module.f90

! See copyright notice in the ../COPYRIGHT file.
!> Module describing a simple, basic membrane model
module atl_eqn_bbm_module
  use env_module, only: rk
  use aotus_module, only: flu_State, aot_get_val

  use tem_tools_module, only: tem_write

  implicit none

  private

  public :: BBMEM_type
  public :: init_BBMEM

  !> Parameters describing the model
  type BBMEM_type
    real(kind=rk) :: tna
    real(kind=rk) :: tcl
    real(kind=rk) :: kappa
  end type BBMEM_type

contains

  !> \brief subroutine to intialize BBM
  !! material parameters are to be filled here.
  subroutine init_BBMEM(BBM, conf, eq_table)
    !--------------------------------------------------------------------------!
    type(BBMEM_type), intent(out) :: BBM
    type(flu_State)             :: conf
    integer, intent(in)         :: eq_table
    !--------------------------------------------------------------------------!
    integer :: iError
    !--------------------------------------------------------------------------!

    call tem_write('Initializing BBM')
    call aot_get_val(L = conf, thandle = eq_table, key = 'tna', &
      &              val = BBM%tna, &
      &              ErrCode = iError)
    call tem_write('  tna  : ', BBM%tna)

    call aot_get_val(L = conf, thandle = eq_table, key = 'tcl', &
      &              val = BBM%tcl, &
      &              ErrCode = iError)
    call tem_write('  tcl  : ', BBM%tcl)

    call aot_get_val(L = conf, thandle = eq_table, key = 'kappa', &
      &              val = BBM%kappa, &
      &              ErrCode = iError)
    call tem_write('  kappa: ', BBM%kappa)

  end subroutine init_BBMEM

end module atl_eqn_bbm_module