adjoint_pnpn_res_fctry.f90

 
submodule(adjoint_pnpn_residual) adjoint_pnpn_res_fctry
  use neko_config, only : neko_bcknd_device, neko_bcknd_sx
  use adjoint_pnpn_res_cpu, only : adjoint_pnpn_prs_res_cpu_t, &
       adjoint_pnpn_vel_res_cpu_t
  use adjoint_pnpn_res_device, only : adjoint_pnpn_prs_res_device_t, &
       adjoint_pnpn_vel_res_device_t
  use utils, only: neko_error
  implicit none
 
contains
 
  module subroutine adjoint_pnpn_prs_res_factory(object)
    class(adjoint_pnpn_prs_res_t), allocatable, intent(inout) :: object
 
    if (allocated(object)) then
       deallocate(object)
    end if
 
 
    if (neko_bcknd_sx .eq. 1) then
       call neko_error("not implemented")
    else if (neko_bcknd_device .eq. 1) then
       allocate(adjoint_pnpn_prs_res_device_t::object)
    else
       allocate(adjoint_pnpn_prs_res_cpu_t::object)
    end if
 
  end subroutine adjoint_pnpn_prs_res_factory
 
  module subroutine adjoint_pnpn_vel_res_factory(object)
    class(adjoint_pnpn_vel_res_t), allocatable, intent(inout) :: object
 
    if (allocated(object)) then
       deallocate(object)
    end if
 
    if (neko_bcknd_sx .eq. 1) then
       call neko_error("not implemented")
    else if (neko_bcknd_device .eq. 1) then
       allocate(adjoint_pnpn_vel_res_device_t::object)
    else
       allocate(adjoint_pnpn_vel_res_cpu_t::object)
    end if
 
  end subroutine adjoint_pnpn_vel_res_factory
 
end submodule adjoint_pnpn_res_fctry