initialize_gs2_optimisation Subroutine

public subroutine initialize_gs2_optimisation(state)

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
type(gs2_program_state_type), intent(inout) :: state

Contents


Source Code

  subroutine initialize_gs2_optimisation(state)
    use optimisation_config, only: init_optimisation_config
    use gs2_main, only: initialize_gs2, finalize_gs2
    use gs2_main, only: initialize_wall_clock_timer
    use mp, only: init_mp, mp_comm
    implicit none
    type(gs2_program_state_type), intent(inout) :: state
    call init_mp
    state%mp_comm = mp_comm
    allocate(state%optim%sorted_optimisations(0))
    allocate(state%optim%sorted_results(0))
    ! We have to initialize_gs2 so that we 
    ! can read the optimisation_config namelist
    call initialize_gs2(state, quiet=.true.)
    call init_optimisation_config(state%optim)
    call finalize_gs2(state, quiet=.true.)
  end subroutine initialize_gs2_optimisation