diff --git a/configuration/driver/icedrv_forcing.F90 b/configuration/driver/icedrv_forcing.F90
index cfcfb798..f719abbb 100644
--- a/configuration/driver/icedrv_forcing.F90
+++ b/configuration/driver/icedrv_forcing.F90
@@ -1141,7 +1141,7 @@ subroutine get_wave_spec
 
       ! local variables
       integer (kind=int_kind) :: &
-         i,k
+         k
 
       real(kind=dbl_kind), dimension(nfreq) :: &
          wave_spectrum_profile  ! wave spectrum
@@ -1150,12 +1150,10 @@ subroutine get_wave_spec
 
       ! wave spectrum and frequencies
       ! get hardwired frequency bin info and a dummy wave spectrum profile
-      do i=1,nx
 
       call icepack_init_wave(nfreq=nfreq,                 &
                              wave_spectrum_profile=wave_spectrum_profile, &
                              wavefreq=wavefreq, dwavefreq=dwavefreq)
-      enddo
 
       do k = 1, nfreq
           wave_spectrum(:,k) = wave_spectrum_profile(k)