make camp happy by passing aero_state

compdyn · Aug 8, 2023 · 3e1f407 · 3e1f407
1 parent 0c4529f
commit 3e1f407
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/src/partmc.F90 b/src/partmc.F90
@@ -454,7 +454,7 @@ subroutine partmc_part(file)
          aero_state_init, gas_data, gas_state_init, env_state_init, &
          aero_dist_init, scenario, &
 #ifdef PMC_USE_CAMP
-         camp_core, photolysis, &
+         camp_core, photolysis, aero_state, &
 #endif
          n_part, rand_init, do_init_equilibrate, do_restart)
 

diff --git a/src/run_part.F90 b/src/run_part.F90
@@ -443,7 +443,7 @@ subroutine spec_file_read_run_part(file, run_part_opt, aero_data, &
        aero_state_init, gas_data, gas_state_init, env_state_init, &
        aero_dist_init, scenario, &
 #ifdef PMC_USE_CAMP
-       camp_core, photolysis, &
+       camp_core, photolysis, aero_state, &
 #endif
        n_part, rand_init, do_init_equilibrate, do_restart)
 
@@ -470,6 +470,8 @@ subroutine spec_file_read_run_part(file, run_part_opt, aero_data, &
     type(camp_core_t), pointer :: camp_core
     !> Photolysis calculator.
     type(photolysis_t), pointer :: photolysis
+    !> Aerosol state.
+    type(aero_state_t), intent(inout) :: aero_state
 #endif
     !> Ideal number of computational particles.
     real(kind=dp), intent(inout) :: n_part
@@ -550,7 +552,7 @@ subroutine spec_file_read_run_part(file, run_part_opt, aero_data, &
           else
 #ifdef PMC_USE_CAMP
              call aero_data_initialize(aero_data, camp_core)
-             call aero_state_initialize(aero_state_init, aero_data, camp_core)
+             call aero_state_initialize(aero_state, aero_data, camp_core)
 #endif
           end if
           call spec_file_read_fractal(file, aero_data%fractal)