From 19be00b46185e0a74bdf7d773fb317009fcf646b Mon Sep 17 00:00:00 2001 From: David Bailey Date: Wed, 21 Aug 2024 14:16:17 -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 5ed02c2a..0f504b50 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,:), &