adjoint_fluid_fctry.f90

Go to the documentation of this file.

 
!
module adjoint_fluid_fctry
  use adjoint_fluid_scheme, only: adjoint_fluid_scheme_t
  use adjoint_fluid_pnpn, only: adjoint_fluid_pnpn_t
  use utils, only: neko_type_error
  implicit none
  private
 
  public :: adjoint_fluid_scheme_factory
 
  ! List of all possible types created by the factory routine
  character(len=20) :: KNOWN_TYPES(1) = [character(len=20) :: &
       "pnpn"]
 
contains
 
  subroutine adjoint_fluid_scheme_factory(object, type_name)
    class(adjoint_fluid_scheme_t), intent(inout), allocatable :: object
    character(len=*), intent(in) :: type_name
 
    select case (trim(type_name))
    case ('pnpn')
       allocate(adjoint_fluid_pnpn_t::object)
    case default
       call neko_type_error("adjoint fluid scheme", type_name, known_types)
    end select
 
  end subroutine adjoint_fluid_scheme_factory
 
end module adjoint_fluid_fctry