comment out currently unused aero_data related code

compdyn · Oct 2, 2024 · 73d8847 · 73d8847
1 parent 7f86924
commit 73d8847
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 12 deletions.
diff --git a/src/run_part.F90 b/src/run_part.F90
@@ -601,8 +601,8 @@ subroutine spec_file_read_run_part(file, run_part_opt, aero_data, &
           call spec_file_open(sub_filename, sub_file)
           call spec_file_read_aero_data(sub_file, aero_data)
           call spec_file_close(sub_file)
+       ! FIXME: Temporary to run PartMC. Replace with initialization from TChem
        else if (run_part_opt%do_tchem) then
-          ! FIXME: Replace with something else
           call spec_file_read_string(file, 'aerosol_data', sub_filename)
           call spec_file_open(sub_filename, sub_file)
           call spec_file_read_aero_data(sub_file, aero_data)

diff --git a/src/tchem_interface.F90 b/src/tchem_interface.F90
@@ -144,17 +144,16 @@ subroutine pmc_tchem_initialize(gas_config_filename, aero_config_filename, &
     ! From TChem we need:
     !   Species names
     !   Species properties - density, kappa, molecular weight
-    ! Temporarily allocate aero_data structure so PartMC can run.
-    n_species = 10
-    call ensure_string_array_size(aero_data%name, n_species)
-    call ensure_integer_array_size(aero_data%mosaic_index, n_species)
-    call ensure_real_array_size(aero_data%wavelengths, n_swbands)
-    call ensure_real_array_size(aero_data%density, n_species)
-    call ensure_integer_array_size(aero_data%num_ions, n_species)
-    call ensure_real_array_size(aero_data%molec_weight, n_species)
-    call ensure_real_array_size(aero_data%kappa, n_species)
-    do i = 1,n_species
-    end do 
+    ! n_species = 10
+    ! call ensure_string_array_size(aero_data%name, n_species)
+    ! call ensure_integer_array_size(aero_data%mosaic_index, n_species)
+    ! call ensure_real_array_size(aero_data%wavelengths, n_swbands)
+    ! call ensure_real_array_size(aero_data%density, n_species)
+    ! call ensure_integer_array_size(aero_data%num_ions, n_species)
+    ! call ensure_real_array_size(aero_data%molec_weight, n_species)
+    ! call ensure_real_array_size(aero_data%kappa, n_species)
+    !do i = 1,n_species
+    !end do 
 
   end subroutine pmc_tchem_initialize