From 94c1ba3271a7472063269e903ca84e24891341f3 Mon Sep 17 00:00:00 2001 From: Nick Wogan Date: Wed, 2 Oct 2024 12:40:45 -0700 Subject: [PATCH] species_mass problematic --- src/equilibrate.f90 | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/equilibrate.f90 b/src/equilibrate.f90 index 262e786..5d094c7 100644 --- a/src/equilibrate.f90 +++ b/src/equilibrate.f90 @@ -111,7 +111,10 @@ function create_ChemEquiAnalysis(thermopath, atoms, species, err) result(cea) cea%atoms_names = cea%dat%names_atoms(1:size(cea%dat%names_atoms)-1) ! skip E cea%species_names = cea%dat%names_reactants_orig - cea%species_mass = cea%dat%mol_weight + allocate(cea%species_mass(size(cea%dat%mol_weight))) + do i = 1,size(cea%species_mass) + cea%species_mass(i) = cea%dat%mol_weight(cea%dat%id_reactants(i,1)) + enddo allocate(cea%condensate_names(cea%dat%N_cond)) allocate(cea%gas_names(cea%dat%N_gas))