From 476cfb8ad294ad91d7b8b19f332f88da21bbe15d Mon Sep 17 00:00:00 2001 From: Steven Brus Date: Wed, 29 Apr 2026 09:14:10 -0700 Subject: [PATCH] Revert indexing change for wave frequency arrays --- components/mpas-seaice/src/shared/mpas_seaice_icepack.F | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/components/mpas-seaice/src/shared/mpas_seaice_icepack.F b/components/mpas-seaice/src/shared/mpas_seaice_icepack.F index 24c10c6c03a3..b830abd3aa9f 100644 --- a/components/mpas-seaice/src/shared/mpas_seaice_icepack.F +++ b/components/mpas-seaice/src/shared/mpas_seaice_icepack.F @@ -593,8 +593,8 @@ subroutine init_column_waves(domain) waveFreqBinWidth_TEMP) ! remove frequency 'tails' (which are only needed in WW3, not MPAS-SI) - waveFrequency(1:nFrequencies-2) = waveFrequency_TEMP(2:nFrequencies-1) - waveFreqBinWidth(1:nFrequencies-2) = waveFreqBinWidth_TEMP(2:nFrequencies-1) + waveFrequency = waveFrequency_TEMP(2:nFrequencies-1) + waveFreqBinWidth = waveFreqBinWidth_TEMP(2:nFrequencies-1) ! initialize HS and Spectra if (.not. config_do_restart) then