init_diagnostics_config Subroutine

public subroutine init_diagnostics_config(gnostics, new_gs2_diagnostics_config_in)

Uses

Arguments

Type IntentOptional Attributes Name
type(diagnostics_type), intent(inout) :: gnostics
type(diagnostics_config_type), intent(in), optional :: new_gs2_diagnostics_config_in

Contents


Source Code

  subroutine init_diagnostics_config(gnostics, new_gs2_diagnostics_config_in)
    use unit_tests, only: debug_message
    implicit none
    type(diagnostics_type), intent(inout) :: gnostics
    type(diagnostics_config_type), intent(in), optional :: new_gs2_diagnostics_config_in
    if(initialized) return
    initialized = .true.
    call debug_message(3, 'diagnostics_config::init_diagnostics_config &
      & starting')
    call read_parameters(gnostics, new_gs2_diagnostics_config_in)
    call debug_message(3, 'diagnostics_config::init_diagnostics_config &
      & read_parameters')
    call allocate_current_results(gnostics)
  end subroutine init_diagnostics_config