configuration_parser_mod Module Reference

Parses the XML configuration file to produce the io configuration description which contains the data layout specification and rules for handling received data. More...

Data Types
type	data_values_type
interface	get_data_value_by_field_name
type	io_configuration_data_definition_type
	Configuration of a specific data definition. More...
type	io_configuration_diagnostic_field_type
type	io_configuration_field_type
	Configuration associated with the representation of a specific data field. More...
type	io_configuration_file_writer_facet_type
type	io_configuration_file_writer_type
type	io_configuration_group_type
type	io_configuration_inter_communication_description
type	io_configuration_misc_item_type
type	io_configuration_registered_monc_type
	Configuration that representes the state of a registered MONC process. More...
type	io_configuration_type
	Overall IO configuration. More...

Functions/Subroutines
recursive character function, dimension(:), allocatable, public	get_io_xml (filename, funit_num)
	Reads in textual data from a file and returns this, used to read the IO server XML configuration file. Returned is a character array of exactly the correct size filled with all the configuration. More...
subroutine, public	configuration_parse (provided_options_database, raw_configuration, parsed_configuration)
	This will parse an XML string into the IO configuration. More...
subroutine	add_in_dimensions (provided_options_database)
subroutine	start_element_callback (element_name, number_of_attributes, attribute_names, attribute_values)
	XML element start (opening) call back. This handles most of the configuration parsing. More...
subroutine	end_element_callback (element_name)
	XML element end (closing) call back. More...
subroutine	handle_thread_pool_configuration (attribute_names, attribute_values)
subroutine	handle_new_data_definition (attribute_names, attribute_values)
	Creates a new data definition configuration item based upon the attributes supplied. More...
subroutine	add_misc_member_to_diagnostic (element_name, attribute_names, attribute_values)
subroutine	add_diagnostic_field_to_group (element_name, attribute_names, attribute_values)
subroutine	define_group (attribute_names, attribute_values)
subroutine	add_include_to_file_writer (attribute_names, attribute_values)
subroutine	add_include_group_or_field_to_file_writer (attribute_names, attribute_values, number_of_contents)
subroutine	define_file_writer (attribute_names, attribute_values)
subroutine	define_diagnostic (attribute_names, attribute_values)
	Defines a new data handling rule. More...
integer function	process_sizing_definition (size_definitions, individual_str_defn)
subroutine	process_xml_into_field_description (attribute_names, attribute_values)
	Process XML into a field description by identifying the attributes of the field and storing these in a refined configuration format. More...
integer function	get_field_type_from_attribute (field_type_str)
integer function	get_field_datatype_from_attribute (field_data_type_str)
subroutine	replace_characters_in_string (original_string, new_string, to_replace)
	Replaces specific characters in a string and returns a new string with this replaced by nothing (i.e. removed) More...
character(len=string_length) function	retrieve_string_value (original_string, field_value_type)
integer function	get_field_index_from_name (attribute_names, search_name)
	Given the name of an attribute will return the index of this in the names collection or 0 if it is not found. More...
subroutine, public	extend_inter_io_comm_array (io_configuration)
	Extends the array of inter io communications from its current suze to current size+data_stride+current size deficit. More...
subroutine	extend_file_writer_contents_array ()
subroutine	extend_file_writer_array ()
subroutine	extend_diagnostics_array ()
	Extends the rules array of a specific rule from the current size to the current size + data size stride. More...
subroutine	extend_groups_array ()
subroutine	extend_field_array ()
	Extends the fields array of the current data definition from the current size to the current size + data size stride. More...
subroutine	extend_data_definition_array ()
	Extends the data definitions array from the current size to the current size + data size stride. More...
subroutine, public	extend_registered_moncs_array (io_configuration)
	Extends the data definitions array from the current size to the current size + data size stride. More...
integer function, public	retrieve_data_definition (io_configuration, key)
	Retrieves a specific data definition from the configuration which matches a key. More...
logical function, public	retrieve_monc_definition (io_configuration, source, monc_defn)
	Retrieves a specific MONC definition from the configuration which matches a source PID. More...
type(definition_description_type) function, dimension(:), allocatable, public	build_definition_description_type_from_configuration (io_configuration)
	Builds up the data definition description type from the structured definitions in the IO configuration. More...
type(field_description_type) function, dimension(:), allocatable, public	build_field_description_type_from_configuration (io_configuration)
	Builds up the field definition description type from the structured definitions in the IO configuration. More...
integer function	get_total_number_fields (io_configuration)
	Retrieves the total number of fields held in all data definitions. More...
integer function, public	get_number_field_dimensions (io_configuration, field_name, source, data_id)
	Retrieves the number of field dimensions that a specific field has from a MONC process within a data definition. This is determined by the MONC process when it registers with the IO server and can be different from one to another. More...
type(data_values_type) function, pointer	get_data_value_from_hashmap_by_field_name (collection, field_name)
	Retrieves the data value (wrapper) by field name or null if no entry was found in the provided collection. More...
type(data_values_type) function, pointer	get_data_value_from_map_by_field_name (collection, field_name)
	Retrieves the data value (wrapper) by field name or null if no entry was found in the provided collection. More...
type(data_values_type) function, pointer, public	get_data_value_from_map_entry (map_entry)
	Retrieves the data value (wrapper) by field name or null if no entry was found in the provided map entry. More...
integer function, public	get_monc_location (io_configuration, source)
	A helper function to get the location of a MONC's configuration in the IO data structure. More...
logical function, public	get_diagnostic_field_configuration (io_configuration, field_name, field_namespace, diagnostic_config)
	Retrieves the diagnostics field configuration corresponding to a specific field name and returns whether one was found or not. More...
logical function, public	get_prognostic_field_configuration (io_configuration, field_name, field_namespace, prognostic_config, prognostic_containing_data_defn)
	Retrieves the prognostic field configuration corresponding to a specific field name and returns whether one was found or not. More...
subroutine	add_in_specific_line (io_xml, reading_buffer)
	Adds a specific line into the io xml. The IO XML is always exactly the correct size, so here is either allocated or resized to match what the read buffer requires. More...
subroutine	combine_xml_arrays (io_xml, other_xml_array)
	Combines two IO XML arrays together (for instance one returned from a recursive include) More...

Variables
character(len=string_length), parameter	default_file_title = "MONC diagnostics"
integer, parameter, public	eq_operator_type =1
integer, parameter, public	lt_operator_type =2
integer, parameter, public	gt_operator_type =3
integer, parameter, public	lte_operator_type =4
integer, parameter, public	gte_operator_type =5
integer, parameter, public	add_operator_type =6
integer, parameter, public	subtract_operator_type =7
integer, parameter, public	multiply_operator_type =8
integer, parameter, public	div_operator_type =9
integer, parameter, public	mod_operator_type =10
integer, parameter	and_operator_type =11
integer, parameter	or_operator_type =12
integer, parameter	monc_size_stride =100
integer, parameter, public	data_size_stride =10
integer, parameter, public	time_averaged_type =1
integer, parameter, public	instantaneous_type =2
integer, parameter, public	none_type =3
integer, parameter, public	group_type =1
integer, parameter, public	field_type =2
integer, parameter, public	io_state_type =3
integer, parameter	file_str_stride =10000
integer, parameter	file_line_len =2000
logical	inside_data_definition
logical	inside_handling_definition
logical	inside_server_config
logical	inside_action_config
logical	inside_diagnostic_config
logical	inside_group_config
logical	inside_generic_writing
logical	inside_specific_file_writing
integer	current_building_definition
integer	current_building_field
integer	current_building_diagnostic
integer	current_trigger_index
integer	current_building_group
integer	current_building_file_writer
type(io_configuration_type), save	building_config
	IO configuration that is build built up from XML parsing. More...
character(len=string_length)	data_handling_namespace
type(hashmap_type)	options_database
type(hashset_type)	data_field_names
character(len=string_length), dimension(:), allocatable, public	cond_request
character(len=string_length), dimension(:), allocatable, public	diag_request
character(len=string_length), dimension(:), allocatable, public	cond_long
character(len=string_length), dimension(:), allocatable, public	diag_long
integer, public	ncond
integer, public	ndiag

Detailed Description

Parses the XML configuration file to produce the io configuration description which contains the data layout specification and rules for handling received data.

Function/Subroutine Documentation

add_diagnostic_field_to_group()

subroutine configuration_parser_mod::add_diagnostic_field_to_group ( character(len=*), intent(in)  element_name, character(len=*), dimension(:), intent(in)  attribute_names, character(len=*), dimension(:), intent(in)  attribute_values  )

private

Definition at line 492 of file configurationparser.F90.

    character(len=*), intent(in) :: element_name       
    character(len=*), dimension(:), intent(in) :: attribute_names, attribute_values
 
    integer :: field_index
 
    if (element_name == "member") then
      field_index=get_field_index_from_name(attribute_names, "name")
      if (field_index .gt. 0) then
        call c_add_string(building_config%groups(current_building_group)%members, &
             retrieve_string_value(attribute_values(field_index), string_data_type))
      else
        call log_log(log_error, "A diagnostics group member requires a name")
      end if
    else      
        call log_log(log_error, "Unrecognised diagnostics group participant, name is '"//trim(element_name)//"'")
    end if

Here is the call graph for this function:

Here is the caller graph for this function:

add_in_dimensions()

subroutine configuration_parser_mod::add_in_dimensions ( type(hashmap_type), intent(inout)  provided_options_database )

private

Since the model appears to write each of the items in dimension_sizing as dimensions in every

Definition at line 261 of file configurationparser.F90.

    type(hashmap_type), intent(inout) :: provided_options_database
 
    integer :: dim_size
 
    call c_put_integer(building_config%dimension_sizing, "x", options_get_integer(provided_options_database, "x_size"))
    call c_put_integer(building_config%dimension_sizing, "y", options_get_integer(provided_options_database, "y_size"))
 
    dim_size=options_get_integer(provided_options_database, "z_size")
    call c_put_integer(building_config%dimension_sizing, "z", dim_size)
    call c_put_integer(building_config%dimension_sizing, "zn", dim_size)
    call c_put_integer(building_config%dimension_sizing, "qfields", &
         options_get_integer(provided_options_database, "number_q_fields"))
    call c_put_integer(building_config%dimension_sizing, "number_options", c_size(provided_options_database))
    call c_put_integer(building_config%dimension_sizing, "active_q_indicies", get_number_active_q_indices())
 
    !  netcdf file, only let these exist when the corresponding code is enabled.
    if (options_get_logical(options_database, "conditional_diagnostics_column_enabled")) then
      ncond = options_get_array_size(options_database, "cond_request")*2 
      allocate(cond_request(ncond))
      allocate(cond_long(ncond))
      call c_put_integer(building_config%dimension_sizing, "nc", ncond)
      ndiag = options_get_array_size(options_database, "diag_request")
      allocate(diag_request(ndiag))
      allocate(diag_long(ndiag))
      call c_put_integer(building_config%dimension_sizing, "nd", ndiag)
    end if 

Here is the call graph for this function:

Here is the caller graph for this function:

add_in_specific_line()

subroutine configuration_parser_mod::add_in_specific_line ( character, dimension(:), intent(inout), allocatable  io_xml, character(len=*), intent(in)  reading_buffer  )

private

Adds a specific line into the io xml. The IO XML is always exactly the correct size, so here is either allocated or resized to match what the read buffer requires.

Parameters

io_xml	The IO XML which holds all the configuration and is exactly the correct size
reading_buffer	A buffer which will be copied into the resized/allocated IO XML

Definition at line 1296 of file configurationparser.F90.

    character, dimension(:), allocatable, intent(inout) :: io_xml
    character(len=*), intent(in) :: reading_buffer
 
    character, dimension(:), allocatable :: temp_io_xml
    integer :: i
 
    if (.not. allocated(io_xml)) then
      allocate(io_xml(len_trim(reading_buffer)))
      do i=1, len_trim(reading_buffer)
        io_xml(i)=reading_buffer(i:i)
      end do
    else
      allocate(temp_io_xml(size(io_xml)+len_trim(reading_buffer)))
      temp_io_xml(:size(io_xml)) = io_xml
      do i=1, len_trim(reading_buffer)
        temp_io_xml(size(io_xml)+i) = reading_buffer(i:i)
      end do
      call move_alloc(from=temp_io_xml,to=io_xml)
    end if

Here is the caller graph for this function:

add_include_group_or_field_to_file_writer()

subroutine configuration_parser_mod::add_include_group_or_field_to_file_writer ( character(len=*), dimension(:), intent(in)  attribute_names, character(len=*), dimension(:), intent(in)  attribute_values, integer, intent(in)  number_of_contents  )

private

Definition at line 575 of file configurationparser.F90.

    character(len=*), dimension(:), intent(in) :: attribute_names, attribute_values
    integer, intent(in) :: number_of_contents
 
    character(len=STRING_LENGTH) :: time_manip
    integer :: field_index
 
    field_index=get_field_index_from_name(attribute_names, "time_manipulation")
    if (field_index .gt. 0) then
      time_manip=retrieve_string_value(attribute_values(field_index), string_data_type)
      if (time_manip == "instantaneous") then
        building_config%file_writers(current_building_file_writer)%contents(number_of_contents)%time_manipulation_type=&
             instantaneous_type
      else if (time_manip == "averaged") then
        building_config%file_writers(current_building_file_writer)%contents(number_of_contents)%time_manipulation_type=&
             time_averaged_type
      else if (time_manip == "none") then
        building_config%file_writers(current_building_file_writer)%contents(number_of_contents)%time_manipulation_type=&
             none_type
      else
        call log_log(log_error, "Time manipulation '"//trim(time_manip)//"' option not recognised")
      end if
    else
      call log_log(log_error, "Inclusion to file writer requires time manipulation")
    end if
 
    field_index=get_field_index_from_name(attribute_names, "output_frequency")
    if (field_index .gt. 0) then
      building_config%file_writers(current_building_file_writer)%&
           contents(number_of_contents)%output_time_frequency=&
           conv_to_real(retrieve_string_value(attribute_values(field_index), double_data_type))
    else if (building_config%file_writers(current_building_file_writer)%contents(number_of_contents)%time_manipulation_type &
         == none_type) then
      building_config%file_writers(current_building_file_writer)%contents(number_of_contents)%output_time_frequency=-1.0
    else
      call log_log(log_error, "Inclusion to file writer requires an output frequency")
    end if

Here is the call graph for this function:

Here is the caller graph for this function:

add_include_to_file_writer()

subroutine configuration_parser_mod::add_include_to_file_writer ( character(len=*), dimension(:), intent(in)  attribute_names, character(len=*), dimension(:), intent(in)  attribute_values  )

private

Definition at line 533 of file configurationparser.F90.

    character(len=*), dimension(:), intent(in) :: attribute_names, attribute_values
 
    integer :: field_index, number_of_contents
 
    number_of_contents=building_config%file_writers(current_building_file_writer)%number_of_contents+1
 
    if (number_of_contents .gt. &
         size(building_config%file_writers(current_building_file_writer)%contents)) call extend_file_writer_contents_array()
 
    building_config%file_writers(current_building_file_writer)%contents(number_of_contents)%facet_type=0
    field_index=get_field_index_from_name(attribute_names, "group")
    if (field_index .gt. 0) then
      building_config%file_writers(current_building_file_writer)%contents(number_of_contents)%facet_name=&
           retrieve_string_value(attribute_values(field_index), string_data_type)
      building_config%file_writers(current_building_file_writer)%contents(number_of_contents)%facet_type=group_type
      call add_include_group_or_field_to_file_writer(attribute_names, attribute_values, number_of_contents)
    else
      field_index=get_field_index_from_name(attribute_names, "field")
      if (field_index .gt. 0) then
        building_config%file_writers(current_building_file_writer)%contents(number_of_contents)%facet_name=&
             retrieve_string_value(attribute_values(field_index), string_data_type)
        building_config%file_writers(current_building_file_writer)%contents(number_of_contents)%facet_type=field_type
        call add_include_group_or_field_to_file_writer(attribute_names, attribute_values, number_of_contents)
      else
        field_index=get_field_index_from_name(attribute_names, "state")
        if (field_index .gt. 0) then
          if (trim(retrieve_string_value(attribute_values(field_index), string_data_type)) .eq. "io") then
            building_config%file_writers(current_building_file_writer)%contents(number_of_contents)%facet_type=io_state_type
          end if
        end if        
      end if      
    end if
 
    if (building_config%file_writers(current_building_file_writer)%contents(number_of_contents)%facet_type == 0) then
      call log_log(log_error, "Inclusion to file writer requires a field or group to include")
    end if
 
    building_config%file_writers(current_building_file_writer)%number_of_contents=&
         building_config%file_writers(current_building_file_writer)%number_of_contents+1

Here is the call graph for this function:

Here is the caller graph for this function:

add_misc_member_to_diagnostic()

subroutine configuration_parser_mod::add_misc_member_to_diagnostic ( character(len=*), intent(in)  element_name, character(len=*), dimension(:), intent(in)  attribute_names, character(len=*), dimension(:), intent(in)  attribute_values  )

private

Definition at line 472 of file configurationparser.F90.

    character(len=*), intent(in) :: element_name       
    character(len=*), dimension(:), intent(in) :: attribute_names, attribute_values
 
    type(io_configuration_misc_item_type), pointer :: misc_member
    class(*), pointer :: generic
    integer :: i
 
    allocate(misc_member)
 
    misc_member%type=retrieve_string_value(element_name, string_data_type)
    misc_member%namespace=data_handling_namespace
    do i=1, size(attribute_names)
      call c_put_string(misc_member%embellishments, retrieve_string_value(attribute_names(i), string_data_type), &
           retrieve_string_value(attribute_values(i), string_data_type))
    end do
    generic=>misc_member
    call c_add_generic(building_config%diagnostics(current_building_diagnostic)%members, generic, .false.)

Here is the call graph for this function:

Here is the caller graph for this function:

build_definition_description_type_from_configuration()

type(definition_description_type) function, dimension(:), allocatable, public configuration_parser_mod::build_definition_description_type_from_configuration

(

type(io_configuration_type), intent(inout)

io_configuration

)

Builds up the data definition description type from the structured definitions in the IO configuration.

Parameters

io_configuration

IO server configuration

Returns

Array of data definition descriptions ready to be sent to a MONC process when it registers

Definition at line 1089 of file configurationparser.F90.

    type(io_configuration_type), intent(inout) :: io_configuration
    type(definition_description_type), dimension(:), allocatable :: build_definition_description_type_from_configuration
 
    integer :: i
 
    allocate(build_definition_description_type_from_configuration(io_configuration%number_of_data_definitions))
 
    do i=1, io_configuration%number_of_data_definitions
      build_definition_description_type_from_configuration(i)%definition_name=io_configuration%data_definitions(i)%name
      build_definition_description_type_from_configuration(i)%send_on_terminate=&
           io_configuration%data_definitions(i)%send_on_terminate
      build_definition_description_type_from_configuration(i)%number_fields=&
           io_configuration%data_definitions(i)%number_of_data_fields
      build_definition_description_type_from_configuration(i)%frequency=io_configuration%data_definitions(i)%frequency
    end do

Here is the caller graph for this function:

build_field_description_type_from_configuration()

type(field_description_type) function, dimension(:), allocatable, public configuration_parser_mod::build_field_description_type_from_configuration

(

type(io_configuration_type), intent(inout)

io_configuration

)

Builds up the field definition description type from the structured definitions in the IO configuration.

Parameters

io_configuration

IO server configuration

Returns

Array of field definition descriptions ready to be sent to a MONC process when it registers

Definition at line 1110 of file configurationparser.F90.

    type(io_configuration_type), intent(inout) :: io_configuration
    type(field_description_type), dimension(:), allocatable :: build_field_description_type_from_configuration
 
    integer :: i, j, field_index
 
    allocate(build_field_description_type_from_configuration(get_total_number_fields(io_configuration)))
    field_index=1
    do i=1, io_configuration%number_of_data_definitions
      do j=1, io_configuration%data_definitions(i)%number_of_data_fields
        build_field_description_type_from_configuration(field_index)%definition_name=io_configuration%data_definitions(i)%name
        build_field_description_type_from_configuration(field_index)%field_name=&
             io_configuration%data_definitions(i)%fields(j)%name
        build_field_description_type_from_configuration(field_index)%field_type=&
             io_configuration%data_definitions(i)%fields(j)%field_type
        build_field_description_type_from_configuration(field_index)%data_type=&
             io_configuration%data_definitions(i)%fields(j)%data_type
        build_field_description_type_from_configuration(field_index)%optional=&
             io_configuration%data_definitions(i)%fields(j)%optional
        field_index=field_index+1
      end do      
    end do    

Here is the call graph for this function:

Here is the caller graph for this function:

combine_xml_arrays()

subroutine configuration_parser_mod::combine_xml_arrays ( character, dimension(:), intent(inout), allocatable  io_xml, character, dimension(:), intent(inout), allocatable  other_xml_array  )

private

Combines two IO XML arrays together (for instance one returned from a recursive include)

Parameters

io_xml	The IO XML is a source and target, this is allocated or resized to hold its contents + other arrays contents
other_xml_array	The other XML array which will be copied into the IO XML

Definition at line 1321 of file configurationparser.F90.

    character, dimension(:), allocatable, intent(inout) :: io_xml, other_xml_array
 
    character, dimension(:), allocatable :: temp_io_xml
 
    if (.not. allocated(other_xml_array)) return
 
    if (.not. allocated(io_xml)) then
      allocate(io_xml(size(other_xml_array)), source=other_xml_array)
    else
      allocate(temp_io_xml(size(io_xml)+size(other_xml_array)))
      temp_io_xml(:size(io_xml)) = io_xml
      temp_io_xml(size(io_xml)+1:) = other_xml_array
      call move_alloc(from=temp_io_xml,to=io_xml)
    end if

Here is the caller graph for this function:

configuration_parse()

subroutine, public configuration_parser_mod::configuration_parse	(	type(hashmap_type), intent(inout)	provided_options_database,
		character, dimension(:), intent(in)	raw_configuration,
		type(io_configuration_type), intent(out)	parsed_configuration
	)

This will parse an XML string into the IO configuration.

Parameters

raw_configuration	The raw (unparsed) XML string to process
parsed_configuration	Configuration determining the layout and handling of data

Definition at line 219 of file configurationparser.F90.

    type(hashmap_type), intent(inout) :: provided_options_database
    character, dimension(:), intent(in) :: raw_configuration
    type(io_configuration_type), intent(out) :: parsed_configuration
 
    options_database=provided_options_database
 
    inside_data_definition=.false.
    inside_handling_definition=.false.
    inside_server_config=.false.
    inside_diagnostic_config=.false.
    inside_group_config=.false.
    inside_generic_writing=.false.
    inside_specific_file_writing=.false.
    current_building_field=1
    current_building_definition=1
    current_building_diagnostic=1
    current_building_file_writer=1
    current_building_group=1
    current_trigger_index=1
    building_config%number_of_writers=0
    building_config%number_of_groups=0
    building_config%number_of_threads=-1
    allocate(building_config%data_definitions(data_size_stride))
    allocate(building_config%diagnostics(data_size_stride))
    allocate(building_config%groups(data_size_stride))
    allocate(building_config%file_writers(data_size_stride))
    allocate(building_config%inter_io_communications(data_size_stride))
    call xml_parse(raw_configuration, start_element_callback, end_element_callback)
    call add_in_dimensions(provided_options_database)
    building_config%options_database=options_database
    building_config%number_of_distinct_data_fields=c_size(data_field_names)
    building_config%number_of_moncs=0
    building_config%active_moncs=0
    allocate(building_config%registered_moncs(monc_size_stride))
    parsed_configuration=building_config
    parsed_configuration%number_inter_io_communications=0
    parsed_configuration%general_info_set=.false.    
    call c_free(data_field_names)
    allocate(parsed_configuration%text_configuration(size(raw_configuration)), source=raw_configuration)

Here is the call graph for this function:

Here is the caller graph for this function:

define_diagnostic()

subroutine configuration_parser_mod::define_diagnostic ( character(len=*), dimension(:), intent(in)  attribute_names, character(len=*), dimension(:), intent(in)  attribute_values  )

private

Defines a new data handling rule.

Parameters

element_name	The name of the XML element
number_of_attributes	Number of XML attributes associated with this element
attribute_names	Each attribute name (same location as attribute value)
attribute_values	Each attribute value (same location as attribute name)

Definition at line 678 of file configurationparser.F90.

    character(len=*), dimension(:), intent(in) :: attribute_names, attribute_values
   
    integer :: field_index, type_field_index, data_field_index
    character(len=STRING_LENGTH) :: field_type_str, field_data_type_str, size_definitions
 
    if (current_building_diagnostic .gt. size(building_config%diagnostics)) call extend_diagnostics_array()
 
    field_index=get_field_index_from_name(attribute_names, "field")
    type_field_index=get_field_index_from_name(attribute_names, "type")
    data_field_index=get_field_index_from_name(attribute_names, "data_type")
 
    if (field_index == 0 .or. type_field_index == 0 .or. data_field_index == 0) then
      call log_log(log_error, "Each diagnostic definition requires a field name, field type and data type")
    else
      building_config%diagnostics(current_building_diagnostic)%name=&
           retrieve_string_value(attribute_values(field_index), string_data_type)
      building_config%diagnostics(current_building_diagnostic)%namespace=data_handling_namespace
      field_type_str=retrieve_string_value(attribute_values(type_field_index), string_data_type)
      building_config%diagnostics(current_building_diagnostic)%field_type=get_field_type_from_attribute(field_type_str)
      if (building_config%diagnostics(current_building_diagnostic)%field_type==0) then
        call log_log(log_error, "The field type of '"//trim(field_type_str)//"' is not recognised")
      end if
      field_data_type_str=retrieve_string_value(attribute_values(data_field_index), string_data_type)
      building_config%diagnostics(current_building_diagnostic)%data_type=get_field_datatype_from_attribute(field_data_type_str)
      if (building_config%diagnostics(current_building_diagnostic)%data_type==0) then
        call log_log(log_error, "The field data type of '"//trim(field_data_type_str)//"' is not recognised")
      end if
      field_index=get_field_index_from_name(attribute_names, "units")
      if (field_index .ne. 0) then
        building_config%diagnostics(current_building_diagnostic)%units=&
             retrieve_string_value(attribute_values(field_index), string_data_type)
      else
        building_config%diagnostics(current_building_diagnostic)%units=""
      end if
      if (building_config%diagnostics(current_building_diagnostic)%field_type == array_field_type .or. &
           building_config%diagnostics(current_building_diagnostic)%field_type == map_field_type) then
        field_index=get_field_index_from_name(attribute_names, "size")
        if (field_index .ne. 0) then
          size_definitions=retrieve_string_value(attribute_values(field_index), string_data_type)      
          building_config%diagnostics(current_building_diagnostic)%dimensions=process_sizing_definition(size_definitions, &
               building_config%diagnostics(current_building_diagnostic)%dim_size_defns)
        else
          call log_log(log_error, "A diagnostic of field type array or map requires sizing a definition")
        end if
        field_index=get_field_index_from_name(attribute_names, "collective")
        if (field_index .ne. 0) then
          building_config%diagnostics(current_building_diagnostic)%collective=&
               retrieve_string_value(attribute_values(field_index), string_data_type) == "true" 
        else
          building_config%diagnostics(current_building_diagnostic)%collective=.false.
        end if
      else
        building_config%diagnostics(current_building_diagnostic)%dimensions=0
        building_config%diagnostics(current_building_diagnostic)%collective=.false.
      end if
    end if

Here is the call graph for this function:

Here is the caller graph for this function:

define_file_writer()

subroutine configuration_parser_mod::define_file_writer ( character(len=*), dimension(:), intent(in)  attribute_names, character(len=*), dimension(:), intent(in)  attribute_values  )

private

Definition at line 614 of file configurationparser.F90.

    character(len=*), dimension(:), intent(in) :: attribute_names, attribute_values
 
    integer :: field_index
 
    if (current_building_file_writer .gt. size(building_config%file_writers)) call extend_file_writer_array()
 
    field_index=get_field_index_from_name(attribute_names, "name")
    if (field_index .gt. 0) then
      building_config%file_writers(current_building_file_writer)%file_name=&
           retrieve_string_value(attribute_values(field_index), string_data_type)
    else
      call log_log(log_error, "File writer requires a file name")
    end if
 
    field_index=get_field_index_from_name(attribute_names, "write_time_frequency")
    if (field_index .gt. 0) then    
      building_config%file_writers(current_building_file_writer)%write_time_frequency=&
           conv_to_real(retrieve_string_value(attribute_values(field_index), double_data_type))
      building_config%file_writers(current_building_file_writer)%write_on_model_time=.true.      
    else
      field_index=get_field_index_from_name(attribute_names, "write_timestep_frequency")
      if (field_index .gt. 0) then
        building_config%file_writers(current_building_file_writer)%write_timestep_frequency=&
             conv_to_real(retrieve_string_value(attribute_values(field_index), integer_data_type))
        building_config%file_writers(current_building_file_writer)%write_on_model_time=.false. 
      else
        call log_log(log_error, "File writer requires either a write time frequency or write timestep frequency")
      end if
    end if
 
    field_index=get_field_index_from_name(attribute_names, "title")
    if (field_index .gt. 0) then 
      building_config%file_writers(current_building_file_writer)%title=&
           retrieve_string_value(attribute_values(field_index), string_data_type)
    else
      building_config%file_writers(current_building_file_writer)%title=default_file_title
    end if    
 
    field_index=get_field_index_from_name(attribute_names, "write_on_terminate")
    if (field_index .gt. 0) then 
      building_config%file_writers(current_building_file_writer)%write_on_terminate=&
           retrieve_string_value(attribute_values(field_index), string_data_type) == "true"
    else
      building_config%file_writers(current_building_file_writer)%write_on_terminate=.false.
    end if
 
    field_index=get_field_index_from_name(attribute_names, "store_state")
    if (field_index .gt. 0) then 
      building_config%file_writers(current_building_file_writer)%include_in_io_state_write=&
           retrieve_string_value(attribute_values(field_index), string_data_type) == "true"
    else
      building_config%file_writers(current_building_file_writer)%include_in_io_state_write=.true.
    end if
    
    building_config%file_writers(current_building_file_writer)%number_of_contents=0
    allocate(building_config%file_writers(current_building_file_writer)%contents(data_size_stride))    

Here is the call graph for this function:

Here is the caller graph for this function:

define_group()

subroutine configuration_parser_mod::define_group ( character(len=*), dimension(:), intent(in)  attribute_names, character(len=*), dimension(:), intent(in)  attribute_values  )

private

Definition at line 511 of file configurationparser.F90.

    character(len=*), dimension(:), intent(in) :: attribute_names, attribute_values
   
    integer :: field_index
 
    if (current_building_group .gt. size(building_config%groups)) call extend_groups_array()
 
    field_index=get_field_index_from_name(attribute_names, "name")
    if (field_index .gt. 0) then
      building_config%groups(current_building_group)%name=retrieve_string_value(attribute_values(field_index), string_data_type)
      field_index=get_field_index_from_name(attribute_names, "namespace")
      if (field_index .gt. 0) then
        building_config%groups(current_building_group)%namespace=&
             retrieve_string_value(attribute_values(field_index), string_data_type)
      else
        building_config%groups(current_building_group)%namespace=""
      end if
    else
      call log_log(log_error, "A diagnostics group requires a name")
    end if

Here is the call graph for this function:

Here is the caller graph for this function:

end_element_callback()

subroutine configuration_parser_mod::end_element_callback ( character(len=*), intent(in)  element_name )

private

XML element end (closing) call back.

Parameters

element_name

Name of the XML element

Definition at line 354 of file configurationparser.F90.

    character(len=*), intent(in) :: element_name
 
    integer :: i
 
    if (element_name == "data-definition") then
      building_config%data_definitions(current_building_definition)%number_of_data_fields=current_building_field-1
      do i=1, current_building_field-1
        building_config%data_definitions(current_building_definition)%fields(i)%namespace=&
             building_config%data_definitions(current_building_definition)%namespace        
      end do
      current_building_field=1
      building_config%number_of_data_definitions=current_building_definition
      current_building_definition=current_building_definition+1
      inside_data_definition=.false.
    else if (element_name == "data-handling") then
       building_config%number_of_diagnostics=current_building_diagnostic-1
       inside_handling_definition=.false.
    else if (element_name == "server-configuration") then
      inside_server_config=.false.
    else if (element_name == "action") then
      inside_action_config=.false.
    else if (element_name == "diagnostic") then
      current_building_diagnostic=current_building_diagnostic+1
      inside_diagnostic_config=.false.
    else if (element_name == "data-writing") then
      inside_generic_writing=.false.
      building_config%number_of_writers=current_building_file_writer-1
    else if (element_name == "group") then
      current_building_group=current_building_group+1
      building_config%number_of_groups=building_config%number_of_groups+1
      inside_group_config=.false.
    else if (element_name == "file") then
      current_building_file_writer=current_building_file_writer+1
      inside_specific_file_writing=.false.
    end if    

Here is the caller graph for this function:

extend_data_definition_array()

subroutine configuration_parser_mod::extend_data_definition_array

private

Extends the data definitions array from the current size to the current size + data size stride.

Definition at line 1020 of file configurationparser.F90.

    type(io_configuration_data_definition_type), dimension(:), allocatable :: temp_data_definitions
 
    allocate(temp_data_definitions(lbound(building_config%data_definitions, 1):&
         ubound(building_config%data_definitions,1)+data_size_stride)) 
    temp_data_definitions(lbound(building_config%data_definitions, 1):&
         ubound(building_config%data_definitions, 1)) = building_config%data_definitions
    call move_alloc(from=temp_data_definitions,to=building_config%data_definitions)

Here is the caller graph for this function:

extend_diagnostics_array()

subroutine configuration_parser_mod::extend_diagnostics_array

private

Extends the rules array of a specific rule from the current size to the current size + data size stride.

Definition at line 991 of file configurationparser.F90.

    type(io_configuration_diagnostic_field_type), dimension(:), allocatable :: temp_diagnostics
 
    allocate(temp_diagnostics(lbound(building_config%diagnostics,1): ubound(building_config%diagnostics,1)+data_size_stride)) 
    temp_diagnostics(lbound(building_config%diagnostics,1):ubound(building_config%diagnostics,1)) = building_config%diagnostics
    call move_alloc(from=temp_diagnostics,to=building_config%diagnostics)

Here is the caller graph for this function:

extend_field_array()

subroutine configuration_parser_mod::extend_field_array

private

Extends the fields array of the current data definition from the current size to the current size + data size stride.

Definition at line 1008 of file configurationparser.F90.

    type(io_configuration_field_type), dimension(:), allocatable :: temp_fields
 
    allocate(temp_fields(lbound(building_config%data_definitions(current_building_definition)%fields,1):&
         ubound(building_config%data_definitions(current_building_definition)%fields,1)+data_size_stride)) 
    temp_fields(lbound(building_config%data_definitions(current_building_definition)%fields,1):&
         ubound(building_config%data_definitions(current_building_definition)%fields,1)) = &
         building_config%data_definitions(current_building_definition)%fields
    call move_alloc(from=temp_fields,to=building_config%data_definitions(current_building_definition)%fields)

Here is the caller graph for this function:

extend_file_writer_array()

subroutine configuration_parser_mod::extend_file_writer_array

private

Definition at line 982 of file configurationparser.F90.

    type(io_configuration_file_writer_type), dimension(:), allocatable :: temp_filewriter
 
    allocate(temp_filewriter(lbound(building_config%file_writers,1): ubound(building_config%file_writers,1)+data_size_stride)) 
    temp_filewriter(lbound(building_config%file_writers,1):ubound(building_config%file_writers,1)) = building_config%file_writers
    call move_alloc(from=temp_filewriter,to=building_config%file_writers)

Here is the caller graph for this function:

extend_file_writer_contents_array()

subroutine configuration_parser_mod::extend_file_writer_contents_array

private

Definition at line 971 of file configurationparser.F90.

    type(io_configuration_file_writer_facet_type), dimension(:), allocatable :: temp_filewriter_contents
 
    allocate(temp_filewriter_contents(lbound(building_config%file_writers(current_building_file_writer)%contents,1): &
         ubound(building_config%file_writers(current_building_file_writer)%contents,1)+data_size_stride)) 
    temp_filewriter_contents(lbound(building_config%file_writers(current_building_file_writer)%contents,1):&
         ubound(building_config%file_writers(current_building_file_writer)%contents,1)) = &
         building_config%file_writers(current_building_file_writer)%contents
    call move_alloc(from=temp_filewriter_contents,to=building_config%file_writers(current_building_file_writer)%contents)

Here is the caller graph for this function:

extend_groups_array()

subroutine configuration_parser_mod::extend_groups_array

private

Definition at line 999 of file configurationparser.F90.

    type(io_configuration_group_type), dimension(:), allocatable :: temp_groups
 
    allocate(temp_groups(lbound(building_config%groups,1): ubound(building_config%groups,1)+data_size_stride)) 
    temp_groups(lbound(building_config%groups,1):ubound(building_config%groups,1)) = building_config%groups
    call move_alloc(from=temp_groups,to=building_config%groups)

Here is the caller graph for this function:

extend_inter_io_comm_array()

subroutine, public configuration_parser_mod::extend_inter_io_comm_array

(

type(io_configuration_type), intent(inout)

io_configuration

)

Extends the array of inter io communications from its current suze to current size+data_stride+current size deficit.

Parameters

io_configuration	The IO server configuration state
inter_io_size	The target number of elements in the array

Definition at line 959 of file configurationparser.F90.

    type(io_configuration_type), intent(inout) :: io_configuration
 
    type(io_configuration_inter_communication_description), dimension(:), allocatable :: temp_descriptions
 
    allocate(temp_descriptions(lbound(io_configuration%inter_io_communications,1):&
         ubound(io_configuration%inter_io_communications,1)+data_size_stride))
    temp_descriptions(lbound(io_configuration%inter_io_communications,1):&
         ubound(io_configuration%inter_io_communications,1)) = io_configuration%inter_io_communications
    call move_alloc(from=temp_descriptions,to=io_configuration%inter_io_communications)

Here is the caller graph for this function:

extend_registered_moncs_array()

subroutine, public configuration_parser_mod::extend_registered_moncs_array

(

type(io_configuration_type), intent(inout)

io_configuration

)

Extends the data definitions array from the current size to the current size + data size stride.

Parameters

io_configuration

IO server configuration state

Definition at line 1032 of file configurationparser.F90.

    type(io_configuration_type), intent(inout) :: io_configuration
 
    type(io_configuration_registered_monc_type), dimension(:), allocatable :: temp_registered_moncs
 
    allocate(temp_registered_moncs(lbound(io_configuration%registered_moncs, 1):&
         io_configuration%number_of_moncs+monc_size_stride)) 
    temp_registered_moncs(lbound(io_configuration%registered_moncs, 1):&
         ubound(io_configuration%registered_moncs, 1)) = io_configuration%registered_moncs
    call move_alloc(from=temp_registered_moncs,to=io_configuration%registered_moncs)

Here is the caller graph for this function:

get_data_value_from_hashmap_by_field_name()

type(data_values_type) function, pointer configuration_parser_mod::get_data_value_from_hashmap_by_field_name ( type(hashmap_type), intent(inout)  collection, character(len=*), intent(in)  field_name  )

private

Retrieves the data value (wrapper) by field name or null if no entry was found in the provided collection.

Parameters

collection	A hashmap to search for this data value in
field_name	The field name to search for

Returns

The corresponding data value or null if none is found

Definition at line 1170 of file configurationparser.F90.

    type(hashmap_type), intent(inout) :: collection
    character(len=*), intent(in) :: field_name
    type(data_values_type), pointer :: get_data_value_from_hashmap_by_field_name
 
    class(*), pointer :: generic
 
    generic=>c_get_generic(collection, field_name)
    if (associated(generic)) then
      select type(generic)
        type is (data_values_type)
          get_data_value_from_hashmap_by_field_name=>generic
      end select
    else
      get_data_value_from_hashmap_by_field_name=>null()
    end if

get_data_value_from_map_by_field_name()

type(data_values_type) function, pointer configuration_parser_mod::get_data_value_from_map_by_field_name ( type(map_type), intent(inout)  collection, character(len=*), intent(in)  field_name  )

private

Retrieves the data value (wrapper) by field name or null if no entry was found in the provided collection.

Parameters

collection	A map to search for this data value in
field_name	The field name to search for

Returns

The corresponding data value or null if none is found

Definition at line 1192 of file configurationparser.F90.

    type(map_type), intent(inout) :: collection
    character(len=*), intent(in) :: field_name
    type(data_values_type), pointer :: get_data_value_from_map_by_field_name
 
    class(*), pointer :: generic
 
    generic=>c_get_generic(collection, field_name)
    if (associated(generic)) then
      select type(generic)
      type is (data_values_type)
        get_data_value_from_map_by_field_name=>generic
      end select
    else
      get_data_value_from_map_by_field_name=>null()
    end if

get_data_value_from_map_entry()

type(data_values_type) function, pointer, public configuration_parser_mod::get_data_value_from_map_entry

(

type(mapentry_type), intent(in)

map_entry

)

Retrieves the data value (wrapper) by field name or null if no entry was found in the provided map entry.

Parameters

map_entry

A map entry to convert into data wrapper

Returns

The corresponding data value or null if none is found

Definition at line 1213 of file configurationparser.F90.

    type(mapentry_type), intent(in) :: map_entry
    type(data_values_type), pointer :: get_data_value_from_map_entry
 
    class(*), pointer :: generic
 
    generic=>c_get_generic(map_entry)
    if (associated(generic)) then
      select type(generic)
      type is (data_values_type)
        get_data_value_from_map_entry=>generic
      end select
    else
      get_data_value_from_map_entry=>null()
    end if

get_diagnostic_field_configuration()

logical function, public configuration_parser_mod::get_diagnostic_field_configuration	(	type(io_configuration_type), intent(inout)	io_configuration,
		character(len=*), intent(in)	field_name,
		character(len=*), intent(in)	field_namespace,
		type(io_configuration_diagnostic_field_type), intent(out)	diagnostic_config
	)

Retrieves the diagnostics field configuration corresponding to a specific field name and returns whether one was found or not.

Parameters

io_configuration	The current IO server configuration
field_name	The name of the diagnostics field we are searching for
diagnostic_config	The found diagnostics is written into here if located

Returns

Whether a corresponding diagnostics field was found or not

Definition at line 1245 of file configurationparser.F90.

    type(io_configuration_type), intent(inout) :: io_configuration
    character(len=*), intent(in) :: field_name, field_namespace
    type(io_configuration_diagnostic_field_type), intent(out) :: diagnostic_config
 
    integer :: i
 
    do i=1, size(io_configuration%diagnostics)
      if (io_configuration%diagnostics(i)%name == field_name .and. &
           io_configuration%diagnostics(i)%namespace == field_namespace) then
        diagnostic_config=io_configuration%diagnostics(i)
        get_diagnostic_field_configuration=.true.
        return
      end if
    end do
    get_diagnostic_field_configuration=.false.

get_field_datatype_from_attribute()

integer function configuration_parser_mod::get_field_datatype_from_attribute ( character(len=*), intent(in)  field_data_type_str )

private

Definition at line 870 of file configurationparser.F90.

    character(len=*), intent(in) :: field_data_type_str
 
    get_field_datatype_from_attribute=0
    if (field_data_type_str == "integer") get_field_datatype_from_attribute=integer_data_type
    if (field_data_type_str == "boolean") get_field_datatype_from_attribute=boolean_data_type
    if (field_data_type_str == "string") get_field_datatype_from_attribute=string_data_type
    if (field_data_type_str == "float") get_field_datatype_from_attribute=float_data_type
    if (field_data_type_str == "double") get_field_datatype_from_attribute=double_data_type

Here is the caller graph for this function:

get_field_index_from_name()

integer function configuration_parser_mod::get_field_index_from_name ( character(len=*), dimension(:)  attribute_names, character(len=*), intent(in)  search_name  )

private

Given the name of an attribute will return the index of this in the names collection or 0 if it is not found.

Parameters

attribute_names	Collection of attribute names
search_name	The name to search for

Definition at line 940 of file configurationparser.F90.

    character(len=*), intent(in) :: search_name       
    character(len=*), dimension(:) :: attribute_names
 
    integer :: i, size_of_names
 
    size_of_names=size(attribute_names)
    do i=1,size_of_names
      if (attribute_names(i) == search_name) then
        get_field_index_from_name=i
        return
      end if      
    end do  
    get_field_index_from_name=0

Here is the caller graph for this function:

get_field_type_from_attribute()

integer function configuration_parser_mod::get_field_type_from_attribute ( character(len=*), intent(in)  field_type_str )

private

Definition at line 861 of file configurationparser.F90.

    character(len=*), intent(in) :: field_type_str
 
    get_field_type_from_attribute=0
    if (field_type_str == "scalar") get_field_type_from_attribute=scalar_field_type
    if (field_type_str == "array") get_field_type_from_attribute=array_field_type
    if (field_type_str == "map") get_field_type_from_attribute=map_field_type

Here is the caller graph for this function:

get_io_xml()

recursive character function, dimension(:), allocatable, public configuration_parser_mod::get_io_xml	(	character(len=*), intent(in)	filename,
		integer, intent(in), optional	funit_num
	)

Reads in textual data from a file and returns this, used to read the IO server XML configuration file. Returned is a character array of exactly the correct size filled with all the configuration.

Parameters

filename

Name of the file to read

Returns

The contents of the XML file

Definition at line 169 of file configurationparser.F90.

    character(len=*), intent(in) :: filename
    integer, intent(in), optional :: funit_num
    character, dimension(:), allocatable :: io_xml, temp_io_xml
 
    character(len=FILE_LINE_LEN) :: temp_line, adjusted_io_line
    character(len=FILE_STR_STRIDE) :: reading_buffer
    integer :: ierr, first_quote, last_quote, chosen_unit
 
    if (present(funit_num)) then
      chosen_unit=funit_num
    else
      chosen_unit=2
    end if
 
    reading_buffer=""
    open (unit=chosen_unit, file=filename, status='OLD', iostat=ierr)
    if (ierr .ne. 0) call log_log(log_error, "Error opening file '"//trim(filename)//"'")
    do while (ierr == 0)
      read(chosen_unit,"(A)",iostat=ierr) temp_line
      adjusted_io_line=adjustl(temp_line)
      if (ierr == 0 .and. adjusted_io_line(1:1) .ne. "!" .and. adjusted_io_line(1:2) .ne. "//") then
        if (index(temp_line, "#include") .ne. 0) then
          first_quote=index(temp_line, """")
          last_quote=index(temp_line, """", back=.true.)
          if (first_quote .ne. 0 .and. last_quote .ne. 0) then
            call add_in_specific_line(io_xml, reading_buffer)
            temp_io_xml=get_io_xml(temp_line(first_quote+1:last_quote-1), chosen_unit+1)
            call combine_xml_arrays(io_xml, temp_io_xml)
            deallocate(temp_io_xml)
            reading_buffer=new_line("A")
          else
            call log_log(log_error, "Malformed IO XML, include directives must have filename in quotes")
          end if          
        else
          if (len_trim(reading_buffer) + len_trim(temp_line) .ge. file_str_stride) then
            call add_in_specific_line(io_xml, reading_buffer)
            reading_buffer=""
          end if
          reading_buffer=trim(reading_buffer)//trim(temp_line)//new_line("A")
        end if
      end if
    end do
    if (len_trim(reading_buffer) .gt. 0) call add_in_specific_line(io_xml, reading_buffer)
    close(chosen_unit)

Here is the call graph for this function:

Here is the caller graph for this function:

get_monc_location()

integer function, public configuration_parser_mod::get_monc_location	(	type(io_configuration_type), intent(inout)	io_configuration,
		integer, intent(in)	source
	)

A helper function to get the location of a MONC's configuration in the IO data structure.

Parameters

source

Source index of the MONC process

Returns

Index that that MONC corresponds to

Definition at line 1233 of file configurationparser.F90.

    type(io_configuration_type), intent(inout) :: io_configuration
    integer, intent(in) :: source
 
    get_monc_location=c_get_integer(io_configuration%monc_to_index, conv_to_string(source))

Here is the caller graph for this function:

get_number_field_dimensions()

integer function, public configuration_parser_mod::get_number_field_dimensions	(	type(io_configuration_type), intent(inout)	io_configuration,
		character(len=*), intent(in)	field_name,
		integer, intent(in)	source,
		integer, intent(in)	data_id
	)

Retrieves the number of field dimensions that a specific field has from a MONC process within a data definition. This is determined by the MONC process when it registers with the IO server and can be different from one to another.

Parameters

io_configuration	The IO server configuration
field_name	The field name to look up
source	The pid of the source MONC process
data_id	The data definition id

Returns

The number of dimensions for this field, within the data definition from the source MONC process

Definition at line 1155 of file configurationparser.F90.

    type(io_configuration_type), intent(inout) :: io_configuration
    character(len=*), intent(in) :: field_name
    integer, intent(in) :: source, data_id
 
    integer :: monc_location
 
    monc_location=c_get_integer(io_configuration%monc_to_index, conv_to_string(source))
    get_number_field_dimensions=c_get_integer(io_configuration%registered_moncs(monc_location)%dimensions(data_id), field_name)

get_prognostic_field_configuration()

logical function, public configuration_parser_mod::get_prognostic_field_configuration	(	type(io_configuration_type), intent(inout)	io_configuration,
		character(len=*), intent(in)	field_name,
		character(len=*), intent(in)	field_namespace,
		type(io_configuration_field_type), intent(out)	prognostic_config,
		type(io_configuration_data_definition_type), intent(out), optional	prognostic_containing_data_defn
	)

Retrieves the prognostic field configuration corresponding to a specific field name and returns whether one was found or not.

Parameters

io_configuration	The current IO server configuration
field_name	The name of the prognostics field we are searching for
prognostic_config	The found prognostic is written into here if located

Returns

Whether a corresponding prognostic field was found or not

Definition at line 1268 of file configurationparser.F90.

    type(io_configuration_type), intent(inout) :: io_configuration
    character(len=*), intent(in) :: field_name, field_namespace
    type(io_configuration_field_type), intent(out) :: prognostic_config
    type(io_configuration_data_definition_type), intent(out), optional :: prognostic_containing_data_defn
 
    integer :: i, j
    do i=1, io_configuration%number_of_data_definitions
      do j=1, io_configuration%data_definitions(i)%number_of_data_fields
        if (io_configuration%data_definitions(i)%fields(j)%name == field_name .and. &
             io_configuration%data_definitions(i)%fields(j)%namespace == field_namespace) then
          prognostic_config=io_configuration%data_definitions(i)%fields(j)
          if (present(prognostic_containing_data_defn)) then
            prognostic_containing_data_defn=io_configuration%data_definitions(i)
          end if
          get_prognostic_field_configuration=.true.
          return
        end if
      end do
    end do
    get_prognostic_field_configuration=.false.

Here is the caller graph for this function:

get_total_number_fields()

integer function configuration_parser_mod::get_total_number_fields ( type(io_configuration_type), intent(inout)  io_configuration )

private

Retrieves the total number of fields held in all data definitions.

Parameters

io_configuration

The IO server configuration

Returns

Total number of fields

Definition at line 1137 of file configurationparser.F90.

    type(io_configuration_type), intent(inout) :: io_configuration
 
    integer :: i
 
    get_total_number_fields=0
    do i=1, io_configuration%number_of_data_definitions
      get_total_number_fields=get_total_number_fields+io_configuration%data_definitions(i)%number_of_data_fields
    end do    

Here is the caller graph for this function:

handle_new_data_definition()

subroutine configuration_parser_mod::handle_new_data_definition ( character(len=*), dimension(:), intent(in)  attribute_names, character(len=*), dimension(:), intent(in)  attribute_values  )

private

Creates a new data definition configuration item based upon the attributes supplied.

Parameters

number_of_attributes	Number of XML attributes associated with this element
attribute_names	Each attribute name (same location as attribute value)
attribute_values	Each attribute value (same location as attribute name)

Definition at line 408 of file configurationparser.F90.

    character(len=*), dimension(:), intent(in) :: attribute_names, attribute_values
 
    integer :: name_index, frequency_index, namespace_index, send_on_termination_index
    character(len=STRING_LENGTH) :: namespace
 
    name_index=get_field_index_from_name(attribute_names, "name")
    frequency_index=get_field_index_from_name(attribute_names, "frequency")
    namespace_index=get_field_index_from_name(attribute_names, "namespace")
    send_on_termination_index=get_field_index_from_name(attribute_names, "send_on_terminate")
    if (name_index /= 0 .and. frequency_index /=0) then
      if (current_building_definition .gt. size(building_config%data_definitions)) call extend_data_definition_array()
      building_config%data_definitions(current_building_definition)%name=&
           retrieve_string_value(attribute_values(name_index), string_data_type)
      building_config%data_definitions(current_building_definition)%frequency=&
           conv_to_integer(retrieve_string_value(attribute_values(frequency_index), integer_data_type))
      if (namespace_index /= 0) then
        namespace=retrieve_string_value(attribute_values(namespace_index), string_data_type)
        building_config%data_definitions(current_building_definition)%namespace=namespace             
      else
        namespace=""
        building_config%data_definitions(current_building_definition)%namespace=""
      end if
      if (send_on_termination_index /= 0) then
        building_config%data_definitions(current_building_definition)%send_on_terminate=&
             retrieve_string_value(attribute_values(send_on_termination_index), string_data_type) == "true"
      else
        building_config%data_definitions(current_building_definition)%send_on_terminate=.false.
      end if      
    else
      call log_log(log_error, "A data definition requires a name and frequency")
    end if    
    allocate(building_config%data_definitions(current_building_definition)%fields(data_size_stride))
 
    building_config%data_definitions(current_building_definition)%fields(1)%name="timestep"
    building_config%data_definitions(current_building_definition)%fields(1)%namespace=namespace
    building_config%data_definitions(current_building_definition)%fields(1)%field_type=scalar_field_type
    building_config%data_definitions(current_building_definition)%fields(1)%dimensions=0
    building_config%data_definitions(current_building_definition)%fields(1)%data_type=integer_data_type
    building_config%data_definitions(current_building_definition)%fields(1)%optional=.false.
    building_config%data_definitions(current_building_definition)%fields(1)%collective=.false.
    building_config%data_definitions(current_building_definition)%fields(1)%units=""
 
    building_config%data_definitions(current_building_definition)%fields(2)%name="time"
    building_config%data_definitions(current_building_definition)%fields(2)%namespace=namespace
    building_config%data_definitions(current_building_definition)%fields(2)%field_type=scalar_field_type
    building_config%data_definitions(current_building_definition)%fields(2)%dimensions=0
    building_config%data_definitions(current_building_definition)%fields(2)%data_type=double_data_type
    building_config%data_definitions(current_building_definition)%fields(2)%optional=.false.
    building_config%data_definitions(current_building_definition)%fields(2)%collective=.false.
    building_config%data_definitions(current_building_definition)%fields(2)%units=""
 
    building_config%data_definitions(current_building_definition)%fields(3)%name="terminated"
    building_config%data_definitions(current_building_definition)%fields(3)%namespace=namespace
    building_config%data_definitions(current_building_definition)%fields(3)%field_type=scalar_field_type
    building_config%data_definitions(current_building_definition)%fields(3)%dimensions=0
    building_config%data_definitions(current_building_definition)%fields(3)%data_type=boolean_data_type
    building_config%data_definitions(current_building_definition)%fields(3)%optional=.false.
    building_config%data_definitions(current_building_definition)%fields(3)%collective=.false.
    building_config%data_definitions(current_building_definition)%fields(3)%units=""
 
    current_building_field=4

Here is the call graph for this function:

Here is the caller graph for this function:

handle_thread_pool_configuration()

subroutine configuration_parser_mod::handle_thread_pool_configuration ( character(len=*), dimension(:), intent(in)  attribute_names, character(len=*), dimension(:), intent(in)  attribute_values  )

private

Definition at line 392 of file configurationparser.F90.

    character(len=*), dimension(:), intent(in) :: attribute_names, attribute_values
 
    integer :: number_index
 
    number_index=get_field_index_from_name(attribute_names, "number")
    
    if (number_index /= 0) then
      building_config%number_of_threads=conv_to_integer(attribute_values(number_index))
    end if    

Here is the call graph for this function:

Here is the caller graph for this function:

process_sizing_definition()

integer function configuration_parser_mod::process_sizing_definition ( character(len=*), intent(in)  size_definitions, character(len=string_length), dimension(4), intent(out)  individual_str_defn  )

private

Definition at line 737 of file configurationparser.F90.

    character(len=*), intent(in) :: size_definitions
    character(len=STRING_LENGTH), intent(out) :: individual_str_defn(4)
 
    integer :: comma_index, sizing_index, cp
 
    cp=1
    sizing_index=1
    comma_index=index(size_definitions(cp:), ",")
    do while (comma_index .ne. 0)
      comma_index=comma_index+cp-1
      individual_str_defn(sizing_index)= trim(size_definitions(cp:comma_index-1))
      cp=comma_index+1
      sizing_index=sizing_index+1
      comma_index=index(size_definitions(cp:), ",")
      if (sizing_index .gt. 4) then
        call log_log(log_error, "Can only have a maximum of four diagnostic field sizing dimensions")
      end if
    end do
    if (cp .le. len(size_definitions)) then
      individual_str_defn(sizing_index)=trim(size_definitions(cp:))
      sizing_index=sizing_index+1
    end if    
    process_sizing_definition=sizing_index-1

Here is the call graph for this function:

Here is the caller graph for this function:

process_xml_into_field_description()

subroutine configuration_parser_mod::process_xml_into_field_description ( character(len=*), dimension(:), intent(in)  attribute_names, character(len=*), dimension(:), intent(in)  attribute_values  )

private

Process XML into a field description by identifying the attributes of the field and storing these in a refined configuration format.

Parameters

element_name	The name of the XML element
number_of_attributes	Number of XML attributes associated with this element
attribute_names	Each attribute name (same location as attribute value)
attribute_values	Each attribute value (same location as attribute name)

Definition at line 769 of file configurationparser.F90.

    character(len=*), dimension(:), intent(in) :: attribute_names, attribute_values
 
    character(len=STRING_LENGTH) :: field_type_str, field_data_type_str, sizing_defn_str
    integer :: name_field_index, type_field_index, data_field_index, field_index, optional_field_index, idx
    
 
    name_field_index=get_field_index_from_name(attribute_names, "name")
    type_field_index=get_field_index_from_name(attribute_names, "type")
    data_field_index=get_field_index_from_name(attribute_names, "data_type")
 
    if (name_field_index == 0 .or. type_field_index == 0 .or. data_field_index == 0) then
      call log_log(log_error, "Each data field definition requires a name, field type and data type")
    else
      if (current_building_field .eq. size(building_config%data_definitions(current_building_definition)%fields)) &
           call extend_field_array()
 
      building_config%data_definitions(current_building_definition)%fields(current_building_field)%name=&
           retrieve_string_value(attribute_values(name_field_index), string_data_type)
 
      call c_add_string(data_field_names, &
           building_config%data_definitions(current_building_definition)%fields(current_building_field)%name)
 
      field_type_str=retrieve_string_value(attribute_values(type_field_index), string_data_type)
      building_config%data_definitions(current_building_definition)%fields(current_building_field)%field_type=&
           get_field_type_from_attribute(field_type_str)
 
      if (building_config%data_definitions(current_building_definition)%fields(current_building_field)%field_type==0) then
        call log_log(log_error, "The field type of '"//trim(field_type_str)//"' is not recognised")
      end if
 
      building_config%data_definitions(current_building_definition)%fields(current_building_field)%dimensions=0
 
      if (building_config%data_definitions(current_building_definition)%fields(current_building_field)%field_type == &
           array_field_type .or. &
           building_config%data_definitions(current_building_definition)%fields(current_building_field)%field_type == &
           map_field_type) then
        idx=get_field_index_from_name(attribute_names, "size")
        if (idx .ne. 0) then
          sizing_defn_str=retrieve_string_value(attribute_values(idx), string_data_type)
          building_config%data_definitions(current_building_definition)%fields(current_building_field)%dimensions=&
               process_sizing_definition(sizing_defn_str, &
               building_config%data_definitions(current_building_definition)%fields(current_building_field)%dim_size_defns)
        end if
 
        field_index=get_field_index_from_name(attribute_names, "collective")
        if (field_index .ne. 0) then
          building_config%data_definitions(current_building_definition)%fields(current_building_field)%collective=&
               retrieve_string_value(attribute_values(field_index), string_data_type) == "true" 
        else
          building_config%data_definitions(current_building_definition)%fields(current_building_field)%collective=.false.
        end if
      else
        building_config%data_definitions(current_building_definition)%fields(current_building_field)%collective=.false.
      end if
 
      field_index=get_field_index_from_name(attribute_names, "units")
      if (field_index .ne. 0) then
        building_config%data_definitions(current_building_definition)%fields(current_building_field)%units=&
             retrieve_string_value(attribute_values(field_index), string_data_type)
      else
        building_config%data_definitions(current_building_definition)%fields(current_building_field)%units=""
      end if
            
      field_data_type_str=retrieve_string_value(attribute_values(data_field_index), string_data_type)
      building_config%data_definitions(current_building_definition)%fields(current_building_field)%data_type=&
           get_field_datatype_from_attribute(field_data_type_str)
 
      if (building_config%data_definitions(current_building_definition)%fields(current_building_field)%data_type==0) then
        call log_log(log_error, "The field data type of '"//trim(field_data_type_str)//"' is not recognised")
      end if      
 
      if (building_config%data_definitions(current_building_definition)%fields(current_building_field)%field_type == &
           map_field_type .and. building_config%data_definitions(current_building_definition)%fields(&
           current_building_field)%data_type/=string_data_type) then
        call log_log(log_error, "A map field type must have a data type of ""string""")
      end if
 
      optional_field_index=get_field_index_from_name(attribute_names, "optional")
      if (optional_field_index .ne. 0) then
        if (retrieve_string_value(attribute_values(optional_field_index), string_data_type) == "true") then
          building_config%data_definitions(current_building_definition)%fields(current_building_field)%optional=.true.
        else
          building_config%data_definitions(current_building_definition)%fields(current_building_field)%optional=.false.
        end if
      else
        building_config%data_definitions(current_building_definition)%fields(current_building_field)%optional=.false.
      end if      
      current_building_field=current_building_field+1
    end if

Here is the call graph for this function:

Here is the caller graph for this function:

replace_characters_in_string()

subroutine configuration_parser_mod::replace_characters_in_string ( character(len=*), intent(in)  original_string, character(len=*), intent(out)  new_string, character(len=*), intent(in)  to_replace  )

private

Replaces specific characters in a string and returns a new string with this replaced by nothing (i.e. removed)

Parameters

original_string	The original string the process
new_string	New string which contains the string after replacement has been performed
to_replace	The substring to replace by nothing (i.e. remove) from original_string

Definition at line 885 of file configurationparser.F90.

    character(len=*), intent(in) :: original_string, to_replace
    character(len=*), intent(out) :: new_string
 
    integer :: current_index, string_len, occurance
 
    current_index=1
    string_len=len(original_string)
    new_string=""
    do while (current_index .lt. string_len)
      occurance=index(original_string(current_index:), to_replace)
      if (occurance .eq. 0) then
        occurance=len(original_string)
      else
        occurance=occurance+current_index
      end if      
      new_string=trim(new_string)//trim(original_string(current_index:occurance-len(to_replace)-1))
      current_index=current_index+occurance+len(to_replace)-2
    end do

Here is the caller graph for this function:

retrieve_data_definition()

integer function, public configuration_parser_mod::retrieve_data_definition	(	type(io_configuration_type), intent(inout)	io_configuration,
		character(len=*), intent(in)	key
	)

Retrieves a specific data definition from the configuration which matches a key.

Parameters

io_configuration	IO server configuration state
key	Data definition key that we are searching for

Returns

Index of the found data definition or zero if none is found

Definition at line 1048 of file configurationparser.F90.

    type(io_configuration_type), intent(inout) :: io_configuration
    character(len=*), intent(in) :: key
 
    integer :: i
 
    do i=1,io_configuration%number_of_data_definitions
      if (io_configuration%data_definitions(i)%name .eq. key) then
        retrieve_data_definition=i
        return
      end if      
    end do    
    retrieve_data_definition=0

Here is the caller graph for this function:

retrieve_monc_definition()

logical function, public configuration_parser_mod::retrieve_monc_definition	(	type(io_configuration_type), intent(inout)	io_configuration,
		integer, intent(in)	source,
		type(io_configuration_registered_monc_type), intent(out)	monc_defn
	)

Retrieves a specific MONC definition from the configuration which matches a source PID.

Parameters

io_configuration	IO server configuration state
source	MONC process ID to search for
monc_defn	The MONC definition, if it is found, is written into here

Returns

Whether a matching MONC definition is found or not

Definition at line 1068 of file configurationparser.F90.

    type(io_configuration_type), intent(inout) :: io_configuration
    integer, intent(in) :: source
    type(io_configuration_registered_monc_type), intent(out) :: monc_defn
 
    class(*), pointer :: generic
    integer :: location
 
    generic=>c_get_generic(io_configuration%monc_to_index, conv_to_string(source))
    if (associated(generic)) then
      location=conv_to_integer(generic, .false.)
      monc_defn=io_configuration%registered_moncs(location)
      retrieve_monc_definition=.true.
    else
      retrieve_monc_definition=.false.
    end if

retrieve_string_value()

character(len=string_length) function configuration_parser_mod::retrieve_string_value ( character(len=*), intent(in)  original_string, integer, intent(in)  field_value_type  )

private

Definition at line 906 of file configurationparser.F90.

    character(len=*), intent(in) :: original_string
    integer, intent(in) :: field_value_type
 
    integer :: last_char
    character(len=STRING_LENGTH) :: lookup_key
 
    call replace_characters_in_string(original_string, retrieve_string_value, """")
 
    retrieve_string_value=adjustl(retrieve_string_value)
    if (retrieve_string_value(1:1)=="{") then
      last_char=len_trim(retrieve_string_value)
      if (retrieve_string_value(last_char:last_char)=="}") then
        lookup_key=retrieve_string_value(2:last_char-1)
        if (options_has_key(options_database, lookup_key)) then
          if (field_value_type==integer_data_type) then
            retrieve_string_value=conv_to_string(options_get_integer(options_database, lookup_key))
          else if (field_value_type==boolean_data_type) then
            retrieve_string_value=conv_to_string(options_get_logical(options_database, lookup_key))
          else if (field_value_type==double_data_type) then
            retrieve_string_value=conv_to_string(options_get_real(options_database, lookup_key))
          else if (field_value_type==string_data_type) then
            retrieve_string_value=options_get_string(options_database, lookup_key)
          end if          
        else
          call log_log(log_error, "Can not find IO configuration key '"//trim(lookup_key)//"' in the options database")
        end if
      end if      
    end if    

Here is the call graph for this function:

Here is the caller graph for this function:

start_element_callback()

subroutine configuration_parser_mod::start_element_callback ( character(len=*), intent(in)  element_name, integer, intent(in)  number_of_attributes, character(len=*), dimension(:), intent(in)  attribute_names, character(len=*), dimension(:), intent(in)  attribute_values  )

private

XML element start (opening) call back. This handles most of the configuration parsing.

Parameters

element_name	Name of the XML element
number_of_attributes	The number of attributes associated with this XML element
attribute_names	Each attribute name (same location as attribute value)
attribute_values	Each attribute value (same location as attribute name)

Definition at line 296 of file configurationparser.F90.

    character(len=*), intent(in) :: element_name       
    character(len=*), dimension(:), intent(in) :: attribute_names, attribute_values
    integer, intent(in) :: number_of_attributes
 
    integer :: namespace_index
 
    if (inside_data_definition) then
      if (element_name == "field") then
        call process_xml_into_field_description(attribute_names, attribute_values)
      end if
    else if (inside_handling_definition) then
      if (inside_diagnostic_config) then
        call add_misc_member_to_diagnostic(element_name, attribute_names, attribute_values)
      else
        if (element_name == "diagnostic") then
          call define_diagnostic(attribute_names, attribute_values)
          inside_diagnostic_config=.true.        
        end if
      end if
    else if (inside_server_config) then
      if (element_name == "thread_pool") then
        call handle_thread_pool_configuration(attribute_names, attribute_values)
      end if
    else if (inside_group_config) then
      call add_diagnostic_field_to_group(element_name, attribute_names, attribute_values)
    else if (inside_generic_writing) then
      if (inside_specific_file_writing) then
        if (element_name == "include") then
          call add_include_to_file_writer(attribute_names, attribute_values)
        end if
      else if (element_name == "file") then
        inside_specific_file_writing=.true.
        call define_file_writer(attribute_names, attribute_values)
      end if
    else if (element_name == "data-writing") then
      inside_generic_writing=.true.
    else if (element_name == "data-definition") then
      inside_data_definition=.true.
      call handle_new_data_definition(attribute_names, attribute_values)
    else if (element_name == "data-handling") then
      namespace_index=get_field_index_from_name(attribute_names, "namespace")
      if (namespace_index == 0) then
        data_handling_namespace=""
      else
        data_handling_namespace=retrieve_string_value(attribute_values(namespace_index), string_data_type)
      end if
      inside_handling_definition=.true.
    else if (element_name == "group") then
      call define_group(attribute_names, attribute_values)
      inside_group_config=.true.
    else if (element_name == "server-configuration") then
      inside_server_config=.true.
    end if

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

add_operator_type

integer, parameter, public configuration_parser_mod::add_operator_type =6

Definition at line 23 of file configurationparser.F90.

and_operator_type

integer, parameter configuration_parser_mod::and_operator_type =11

private

Definition at line 23 of file configurationparser.F90.

building_config

type(io_configuration_type), save configuration_parser_mod::building_config

private

IO configuration that is build built up from XML parsing.

Definition at line 141 of file configurationparser.F90.

  type(io_configuration_type), save :: building_config

cond_long

character(len=string_length), dimension(:), allocatable, public configuration_parser_mod::cond_long

Definition at line 147 of file configurationparser.F90.

cond_request

character(len=string_length), dimension(:), allocatable, public configuration_parser_mod::cond_request

Definition at line 147 of file configurationparser.F90.

  character(len=STRING_LENGTH), dimension(:), allocatable :: cond_request, diag_request, cond_long, diag_long

current_building_definition

integer configuration_parser_mod::current_building_definition

private

Definition at line 139 of file configurationparser.F90.

  integer :: current_building_definition, current_building_field, current_building_diagnostic, &
       current_trigger_index, current_building_group, current_building_file_writer

current_building_diagnostic

integer configuration_parser_mod::current_building_diagnostic

private

Definition at line 139 of file configurationparser.F90.

current_building_field

integer configuration_parser_mod::current_building_field

private

Definition at line 139 of file configurationparser.F90.

current_building_file_writer

integer configuration_parser_mod::current_building_file_writer

private

Definition at line 139 of file configurationparser.F90.

current_building_group

integer configuration_parser_mod::current_building_group

private

Definition at line 139 of file configurationparser.F90.

current_trigger_index

integer configuration_parser_mod::current_trigger_index

private

Definition at line 139 of file configurationparser.F90.

data_field_names

type(hashset_type) configuration_parser_mod::data_field_names

private

Definition at line 145 of file configurationparser.F90.

  type(hashset_type) :: data_field_names

data_handling_namespace

character(len=string_length) configuration_parser_mod::data_handling_namespace

private

Definition at line 142 of file configurationparser.F90.

  character(len=STRING_LENGTH) :: data_handling_namespace

data_size_stride

integer, parameter, public configuration_parser_mod::data_size_stride =10

Definition at line 26 of file configurationparser.F90.

default_file_title

character(len=string_length), parameter configuration_parser_mod::default_file_title = "MONC diagnostics"

private

Definition at line 22 of file configurationparser.F90.

  character(len=STRING_LENGTH), parameter :: DEFAULT_FILE_TITLE = "MONC diagnostics"

diag_long

character(len=string_length), dimension(:), allocatable, public configuration_parser_mod::diag_long

Definition at line 147 of file configurationparser.F90.

diag_request

character(len=string_length), dimension(:), allocatable, public configuration_parser_mod::diag_request

Definition at line 147 of file configurationparser.F90.

div_operator_type

integer, parameter, public configuration_parser_mod::div_operator_type =9

Definition at line 23 of file configurationparser.F90.

eq_operator_type

integer, parameter, public configuration_parser_mod::eq_operator_type =1

Definition at line 23 of file configurationparser.F90.

  integer, parameter :: EQ_OPERATOR_TYPE=1, lt_operator_type=2, gt_operator_type=3, lte_operator_type=4, &
       gte_operator_type=5, add_operator_type=6, subtract_operator_type=7, multiply_operator_type=8, div_operator_type=9, &
       mod_operator_type=10, and_operator_type=11, or_operator_type=12

field_type

integer, parameter, public configuration_parser_mod::field_type =2

Definition at line 28 of file configurationparser.F90.

file_line_len

integer, parameter configuration_parser_mod::file_line_len =2000

private

Definition at line 135 of file configurationparser.F90.

file_str_stride

integer, parameter configuration_parser_mod::file_str_stride =10000

private

Definition at line 135 of file configurationparser.F90.

  integer, parameter :: FILE_STR_STRIDE=10000, file_line_len=2000

group_type

integer, parameter, public configuration_parser_mod::group_type =1

Definition at line 28 of file configurationparser.F90.

gt_operator_type

integer, parameter, public configuration_parser_mod::gt_operator_type =3

Definition at line 23 of file configurationparser.F90.

gte_operator_type

integer, parameter, public configuration_parser_mod::gte_operator_type =5

Definition at line 23 of file configurationparser.F90.

inside_action_config

logical configuration_parser_mod::inside_action_config

private

Definition at line 137 of file configurationparser.F90.

inside_data_definition

logical configuration_parser_mod::inside_data_definition

private

Definition at line 137 of file configurationparser.F90.

  logical :: inside_data_definition, inside_handling_definition, inside_server_config, inside_action_config, &
       inside_diagnostic_config, inside_group_config, inside_generic_writing, inside_specific_file_writing

inside_diagnostic_config

logical configuration_parser_mod::inside_diagnostic_config

private

Definition at line 137 of file configurationparser.F90.

inside_generic_writing

logical configuration_parser_mod::inside_generic_writing

private

Definition at line 137 of file configurationparser.F90.

inside_group_config

logical configuration_parser_mod::inside_group_config

private

Definition at line 137 of file configurationparser.F90.

inside_handling_definition

logical configuration_parser_mod::inside_handling_definition

private

Definition at line 137 of file configurationparser.F90.

inside_server_config

logical configuration_parser_mod::inside_server_config

private

Definition at line 137 of file configurationparser.F90.

inside_specific_file_writing

logical configuration_parser_mod::inside_specific_file_writing

private

Definition at line 137 of file configurationparser.F90.

instantaneous_type

integer, parameter, public configuration_parser_mod::instantaneous_type =2

Definition at line 28 of file configurationparser.F90.

io_state_type

integer, parameter, public configuration_parser_mod::io_state_type =3

Definition at line 28 of file configurationparser.F90.

lt_operator_type

integer, parameter, public configuration_parser_mod::lt_operator_type =2

Definition at line 23 of file configurationparser.F90.

lte_operator_type

integer, parameter, public configuration_parser_mod::lte_operator_type =4

Definition at line 23 of file configurationparser.F90.

mod_operator_type

integer, parameter, public configuration_parser_mod::mod_operator_type =10

Definition at line 23 of file configurationparser.F90.

monc_size_stride

integer, parameter configuration_parser_mod::monc_size_stride =100

private

Definition at line 26 of file configurationparser.F90.

  integer, parameter :: MONC_SIZE_STRIDE=100, data_size_stride=10

multiply_operator_type

integer, parameter, public configuration_parser_mod::multiply_operator_type =8

Definition at line 23 of file configurationparser.F90.

ncond

integer, public configuration_parser_mod::ncond

Definition at line 148 of file configurationparser.F90.

  integer :: ncond, ndiag

ndiag

integer, public configuration_parser_mod::ndiag

Definition at line 148 of file configurationparser.F90.

none_type

integer, parameter, public configuration_parser_mod::none_type =3

Definition at line 28 of file configurationparser.F90.

options_database

type(hashmap_type) configuration_parser_mod::options_database

private

Definition at line 144 of file configurationparser.F90.

  type(hashmap_type) :: options_database

or_operator_type

integer, parameter configuration_parser_mod::or_operator_type =12

private

Definition at line 23 of file configurationparser.F90.

subtract_operator_type

integer, parameter, public configuration_parser_mod::subtract_operator_type =7

Definition at line 23 of file configurationparser.F90.

time_averaged_type

integer, parameter, public configuration_parser_mod::time_averaged_type =1

Definition at line 28 of file configurationparser.F90.

  integer, parameter :: TIME_AVERAGED_TYPE=1, instantaneous_type=2, none_type=3, group_type=1, field_type=2, io_state_type=3