Change end do to enddo

NOAA-GFDL · Dec 10, 2018 · 88fd8c6 · 88fd8c6
1 parent acc2ef5
commit 88fd8c6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/config_src/mct_driver/MOM_surface_forcing.F90 b/config_src/mct_driver/MOM_surface_forcing.F90
@@ -600,7 +600,7 @@ subroutine convert_IOB_to_forces(IOB, forces, index_bounds, Time, G, CS)
       endif
 
     endif
-  end do; end do
+  enddo; enddo
 
   if (CS%use_limited_P_SSH) then
     forces%p_surf_SSH => forces%p_surf