driver.f90

Go to the documentation of this file.

program usrneko
  use neko, only: neko_init, neko_solve, neko_finalize
  use case, only: case_t
  use user, only: user_setup
  use adjoint_case, only: adjoint_case_t, adjoint_init, adjoint_free
  use simulation_adjoint, only: solve_adjoint
 
  type(case_t) :: c
  type(adjoint_case_t) :: adj
 
  call user_setup(c%usr)
  call neko_init(c)
 
  call adjoint_init(adj, c)
 
  call neko_solve(c)
  call solve_adjoint(adj)
 
  call adjoint_free(adj)
  call neko_finalize(c)
end program usrneko