Bug fix from the BGC merge

CICE-Consortium · Sep 23, 2024 · 7cde537 · 7cde537
1 parent b7270c6
commit 7cde537
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/columnphysics/icepack_therm_itd.F90 b/columnphysics/icepack_therm_itd.F90
@@ -1072,7 +1072,7 @@ subroutine lateral_melt (dt,         fpond,      &
                      end do
 
                      ! timestep required for this
-                     subdt = get_subdt_fsd(nfsd, afsd_tmp(:), d_afsd_tmp(:))
+                     subdt = get_subdt_fsd(afsd_tmp(:), d_afsd_tmp(:))
                      subdt = MIN(subdt, dt)
 
                      ! update fsd and elapsed time

diff --git 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