diff --git a/src/partmc.F90 b/src/partmc.F90 index c59475985..360050cbc 100644 --- a/src/partmc.F90 +++ b/src/partmc.F90 @@ -542,7 +542,7 @@ subroutine partmc_part(file) ! initialize the chemistry solver if (run_part_opt%do_camp_chem) then #ifdef PMC_USE_CAMP - call camp_core%solver_initialize() + call camp_core%solver_initialize() #endif end if @@ -719,7 +719,7 @@ subroutine partmc_exact(file) end if call spec_file_read_run_exact(file, run_exact_opt, aero_data, & - bin_grid, gas_data, env_state, aero_dist_init, scenario) + bin_grid, gas_data, env_state, aero_dist_init, scenario) call run_exact(bin_grid, scenario, env_state, aero_data, & aero_dist_init, gas_data, run_exact_opt) @@ -828,7 +828,7 @@ subroutine partmc_sect(file) end if call spec_file_read_run_sect(file, run_sect_opt, aero_data, bin_grid, & - gas_data, env_state, aero_dist_init, scenario) + gas_data, env_state, aero_dist_init, scenario) call run_sect(bin_grid, gas_data, aero_data, aero_dist_init, scenario, & env_state, run_sect_opt) diff --git a/src/run_exact.F90 b/src/run_exact.F90 index df736bd0f..c75dfc49a 100644 --- a/src/run_exact.F90 +++ b/src/run_exact.F90 @@ -99,7 +99,7 @@ subroutine spec_file_read_run_exact(file, run_exact_opt, aero_data, & !> Bin grid. type(bin_grid_t), intent(out) :: bin_grid !> Initial aerosol state. - type(aero_dist_t), intent(out) :: aero_dist_init + type(aero_dist_t), intent(out) :: aero_dist_init !> Scenario data. type(scenario_t), intent(out) :: scenario !> Environmental state. diff --git a/src/run_part.F90 b/src/run_part.F90 index 7f96ea74b..70340eae5 100644 --- a/src/run_part.F90 +++ b/src/run_part.F90 @@ -506,7 +506,7 @@ subroutine spec_file_read_run_part(file, run_part_opt, aero_data, & call spec_file_read_real(file, 't_progress', run_part_opt%t_progress) call spec_file_read_logical(file, 'do_camp_chem', & - run_part_opt%do_camp_chem) + run_part_opt%do_camp_chem) if (run_part_opt%do_camp_chem) then #ifdef PMC_USE_CAMP call spec_file_read_string(file, 'camp_config', & diff --git a/src/run_sect.F90 b/src/run_sect.F90 index 1c7416804..9b3a07d94 100644 --- a/src/run_sect.F90 +++ b/src/run_sect.F90 @@ -212,7 +212,7 @@ subroutine spec_file_read_run_sect(file, run_sect_opt, aero_data, & !> Bin grid. type(bin_grid_t), intent(out) :: bin_grid !> Initial aerosol state. - type(aero_dist_t), intent(out) :: aero_dist_init + type(aero_dist_t), intent(out) :: aero_dist_init !> Scenario data. type(scenario_t), intent(out) :: scenario !> Environmental state.