FIXME : Add documentation
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(theta_grid_parameters_config_type), | intent(in), | optional | :: | theta_grid_parameters_config_in |
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