Skip to content

Commit e0450f9

Browse files
committed
Fix index underflow in get_hydrostatic_energy; update ncar-physics external to latest
1 parent a4d3866 commit e0450f9

File tree

3 files changed

+4
-4
lines changed

3 files changed

+4
-4
lines changed

.gitmodules

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -20,7 +20,7 @@
2020
[submodule "ncar-physics"]
2121
path = src/physics/ncar_ccpp
2222
url = https://github.com/jimmielin/atmospheric_physics
23-
fxtag = 69621f8
23+
fxtag = 87a45418
2424
fxrequired = AlwaysRequired
2525
fxDONOTUSEurl = https://github.com/ESCOMP/atmospheric_physics
2626
[submodule "ccs_config"]

src/data/cam_thermo.F90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1666,12 +1666,12 @@ subroutine get_hydrostatic_energy_1hd(tracer, moist_mixing_ratio, pdel_in, &
16661666
species_liq_idx(:) = thermodynamic_active_species_liq_idx_dycore(:)
16671667
species_ice_idx(:) = thermodynamic_active_species_ice_idx_dycore(:)
16681668
else
1669-
species_idx(:) = thermodynamic_active_species_idx(:)
1669+
species_idx(:) = thermodynamic_active_species_idx(1:)
16701670
species_liq_idx(:) = thermodynamic_active_species_liq_idx(:)
16711671
species_ice_idx(:) = thermodynamic_active_species_ice_idx(:)
16721672
end if
16731673
else
1674-
species_idx(:) = thermodynamic_active_species_idx(:)
1674+
species_idx(:) = thermodynamic_active_species_idx(1:)
16751675
species_liq_idx(:) = thermodynamic_active_species_liq_idx(:)
16761676
species_ice_idx(:) = thermodynamic_active_species_ice_idx(:)
16771677
end if

src/physics/ncar_ccpp

0 commit comments

Comments
 (0)