init_ingen Subroutine

public subroutine init_ingen(ingen_config_in)

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
type(ingen_config_type), intent(in), optional :: ingen_config_in

Contents

Source Code


Source Code

  subroutine init_ingen(ingen_config_in)
    implicit none
    type(ingen_config_type), intent(in), optional :: ingen_config_in
    
    if(initialized) return
    initialized = .true.

    if (present(ingen_config_in)) ingen_config = ingen_config_in

    call ingen_config%init(name = 'ingen_knobs', requires_index = .false.)

    ! Copy out internal values into module level parameters
    associate(self => ingen_config)
#include "ingen_copy_out_auto_gen.inc"
    end associate

    allocate(sweet_spots(0))
  end subroutine init_ingen