Set wv_idx in air_composition

total_hours_in_debugging_one_line = 6
jimmielin · Oct 25, 2024 · 240ef54 · 240ef54
1 parent 38fdbb2
commit 240ef54
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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