fix formatting issues

compdyn · Dec 8, 2023 · 8516212 · 8516212
1 parent aecfd22
commit 8516212
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 6 deletions.
diff --git 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
@@ -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
@@ -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
@@ -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.