init_theta_grid_params Subroutine

public subroutine init_theta_grid_params(theta_grid_parameters_config_in)

Uses

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
type(theta_grid_parameters_config_type), intent(in), optional :: theta_grid_parameters_config_in

Contents


Source Code

  subroutine init_theta_grid_params(theta_grid_parameters_config_in)
    use unit_tests, only: debug_message
    implicit none
    type(theta_grid_parameters_config_type), intent(in), optional :: theta_grid_parameters_config_in   
    integer, parameter :: verb=3
    
    call debug_message(verb, "theta_grid_params::init_theta_grid_params start")
    if (initialized) return
    initialized = .true.

    call debug_message(verb, &
      "theta_grid_params::init_theta_grid_params call read_parameters")
    call read_parameters(theta_grid_parameters_config_in)

    betaprim = 0.0

    call debug_message(verb, "theta_grid_params::init_theta_grid_params end")
  end subroutine init_theta_grid_params