FIXME : Add documentation
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(fields_config_type), | intent(in), | optional | :: | fields_config_in |
subroutine init_fields_parameters(fields_config_in)
use unit_tests, only: debug_message
implicit none
type(fields_config_type), intent(in), optional :: fields_config_in
integer, parameter :: verb=3
if (parameters_read) return
call debug_message(verb, "init_fields: read_parameters")
call read_parameters(fields_config_in)
parameters_read = .true.
end subroutine init_fields_parameters