user_module.f90

 
module topology_optimization_user_module
  use case, only: case_t
  use json_file_module, only: json_file
  use json_utils, only: json_get
  use num_types, only: rp
  use initial_conditions, only: scalar_z_split_ic
 
  implicit none
 
  private
  public :: neko_user_init
 
contains
 
  subroutine neko_user_init(neko_case)
    type(case_t), intent(inout) :: neko_case
 
    ! Set the properties for the fluid
    neko_case%usr%scalar_user_ic => scalar_z_split_ic
 
  end subroutine neko_user_init
 
 
 
end module topology_optimization_user_module