From 73d8847219ffb2ab894be4f18ec87c2c9e077369 Mon Sep 17 00:00:00 2001 From: Jeff Curtis Date: Wed, 2 Oct 2024 16:28:30 -0500 Subject: [PATCH] comment out currently unused aero_data related code --- src/run_part.F90 | 2 +- src/tchem_interface.F90 | 21 ++++++++++----------- 2 files changed, 11 insertions(+), 12 deletions(-) diff --git a/src/run_part.F90 b/src/run_part.F90 index 69497194f..b43eda50e 100644 --- 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 index 0ea5518f3..afd69e443 100644 --- 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