clean up driver code

CICE-Consortium · Sep 20, 2024 · 54dc9a1 · 54dc9a1
1 parent 19be00b
commit 54dc9a1
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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,:),                &