finish_optimisation_config Subroutine

public subroutine finish_optimisation_config(optim)

Uses

Arguments

Type IntentOptional Attributes Name
type(optimisation_type), intent(inout) :: optim

Contents


Source Code

  subroutine finish_optimisation_config(optim)
    use file_utils, only: close_output_file
    use mp, only: proc0
    implicit none
    type(optimisation_type), intent(inout) :: optim
    initialized = .false.

    if(optim%on) then
      if (proc0) call close_output_file(optim%outunit)
    end if

    call optimisation_config_config%reset()

  end subroutine finish_optimisation_config