From 240ef548bc3573097a739c67a5f3cac671022677 Mon Sep 17 00:00:00 2001 From: Haipeng Lin Date: Thu, 24 Oct 2024 19:32:07 -0400 Subject: [PATCH] Set wv_idx in air_composition total_hours_in_debugging_one_line = 6 --- src/data/air_composition.F90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/data/air_composition.F90 b/src/data/air_composition.F90 index 0a014c9a..f450c182 100644 --- a/src/data/air_composition.F90 +++ b/src/data/air_composition.F90 @@ -229,7 +229,7 @@ subroutine air_composition_init() ! !************************************************************************ ! - ! add prognostic components of dry air + ! add prognostic components of air ! !************************************************************************ ! @@ -313,6 +313,7 @@ subroutine air_composition_init() ! case(wv_stdname) !water_vapor_mixing_ratio_wrt_moist_air_and_condensed_water call air_species_info(wv_stdname, ix, mw) + wv_idx = ix ! set water species index for use in get_hydrostatic_energy thermodynamic_active_species_idx(icnst) = ix thermodynamic_active_species_cp (icnst) = cpwv thermodynamic_active_species_cv (icnst) = cv3 / mw