From 54dc9a1dcf1a0ea4b1e96550200e8b6ce28bd72c Mon Sep 17 00:00:00 2001 From: David Bailey Date: Wed, 21 Aug 2024 14:17:12 -0600 Subject: [PATCH] clean up driver code --- configuration/driver/icedrv_step.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/configuration/driver/icedrv_step.F90 b/configuration/driver/icedrv_step.F90 index 0f504b50..5ed02c2a 100644 --- a/configuration/driver/icedrv_step.F90 +++ b/configuration/driver/icedrv_step.F90 @@ -521,8 +521,8 @@ subroutine step_therm2 (dt) H2_18O_ocn=H2_18O_ocn(i), & wave_sig_ht=wave_sig_ht(i), & wave_spectrum=wave_spectrum(i,:), & - wavefreq=wavefreq, & - dwavefreq=dwavefreq, & + wavefreq=wavefreq(:), & + dwavefreq=dwavefreq(:), & d_afsd_latg=d_afsd_latg(i,:), & d_afsd_newi=d_afsd_newi(i,:), & d_afsd_latm=d_afsd_latm(i,:), &