Functions/Subroutines
subroutine	add_component (component_descriptions, single_description)

subroutine	test_load_model

subroutine	test_fill_registry_components

Function/Subroutine Documentation

◆ add_component()

subroutine test_monc_mod::add_component	(	type(list_type), intent(inout)	component_descriptions,
		type(component_descriptor_type), intent(in)	single_description
	)

Definition at line 19 of file test_monc.F90.

     type(list_type), intent(inout) :: component_descriptions
     type(component_descriptor_type), intent(in) :: single_description
 
     class(*), pointer :: raw_data
     allocate(raw_data, source=single_description)
     call c_add(component_descriptions, raw_data)

◆ test_fill_registry_components()

subroutine test_monc_mod::test_fill_registry_components ( )

Definition at line 40 of file test_monc.F90.

     type(model_state_type) :: current_state
     type(list_type) :: component_descriptions
     type(map_type) :: registered_components
    
     registered_components = get_all_registered_components()
     call assert_equals(0,c_size(registered_components),"Test there are not components in the registry")
     ! add the component to the database
     call add_component(component_descriptions, fftsolver_get_descriptor())
     call fill_registry_with_components(current_state%options_database, component_descriptions)
     
     registered_components = get_all_registered_components()
     call assert_equals(1,c_size(registered_components),"Test there is only 1 component in the registry")

Here is the call graph for this function:

Here is the caller graph for this function:

◆ test_load_model()

subroutine test_monc_mod::test_load_model ( )

Definition at line 30 of file test_monc.F90.

     type(model_state_type) :: current_state
     real :: z0
     
     call load_model_configuration(current_state%options_database)
     z0 = options_get_real(current_state%options_database, "z0")
     call assert_equals(2.0e-3,z0,"Test z0 has been read properly")