diff --git a/applications/io_demo/source/io_demo.f90 b/applications/io_demo/source/io_demo.f90 index 4a5c69e73..d742d4942 100644 --- a/applications/io_demo/source/io_demo.f90 +++ b/applications/io_demo/source/io_demo.f90 @@ -43,25 +43,23 @@ program io_demo call parse_command_line( filename ) call modeldb%values%initialise() - call modeldb%configuration%initialise( program_name, table_len=10 ) call modeldb%config%initialise(program_name) - write(log_scratch_space,& - '("Application built with ", A, "-bit real numbers")') & - trim(precision_real) - call log_event( log_scratch_space, log_level_trace ) modeldb%mpi => global_mpi - call init_comm(program_name, modeldb) - call init_config(filename, & - io_demo_required_namelists, & - configuration=modeldb%configuration, & + call init_comm(program_name, modeldb) + call init_config(filename, io_demo_required_namelists, & config=modeldb%config) deallocate( filename ) call init_logger(modeldb%mpi%get_comm(), program_name) + write(log_scratch_space,& + '("Application built with ", A, "-bit real numbers")') & + trim(precision_real) + call log_event( log_scratch_space, log_level_trace ) + subroutine_timers = modeldb%config%io%subroutine_timers() timer_output_path = modeldb%config%io%timer_output_path() diff --git a/mesh_tools/source/cubedsphere_mesh_generator.f90 b/mesh_tools/source/cubedsphere_mesh_generator.f90 index 7f6f70045..dfa3384cc 100644 --- a/mesh_tools/source/cubedsphere_mesh_generator.f90 +++ b/mesh_tools/source/cubedsphere_mesh_generator.f90 @@ -189,12 +189,12 @@ program cubedsphere_mesh_generator total_ranks = global_mpi%get_comm_size() local_rank = global_mpi%get_comm_rank() - call initialise_logging( communicator%get_comm_mpi_val(), 'CubeGen' ) call config%initialise( 'CubeGen' ) call read_configuration( filename, config=config ) + call initialise_logging( communicator%get_comm_mpi_val(), 'CubeGen' ) deallocate( filename ) mesh_file_prefix = config%mesh%mesh_file_prefix()