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,:), &