Changes to support interepersed ice-ocean coupling

MJHarrison-GFDL · Feb 27, 2024 · 751c28d · 751c28d
1 parent 0437640
commit 751c28d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/full/coupler_main.F90 b/full/coupler_main.F90
@@ -71,7 +71,7 @@
 !! The three components of coupler: @ref coupler_main , flux_exchange_mod, and surface_flux_mod
 !! are configured through three namelists
 !! * \ref coupler_config "coupler_nml"
-!! * \ref flux_exchange_conf "flux_exchange_nml" 
+!! * \ref flux_exchange_conf "flux_exchange_nml"
 !! * \ref surface_flux_config "surface_flux_nml"
 !!
 !!
@@ -1066,7 +1066,7 @@ program coupler_main
       if (combined_ice_and_ocean) then
         call flux_ice_to_ocean_stocks(Ice)
         call update_slow_ice_and_ocean(ice_ocean_driver_CS, Ice, Ocean_state, Ocean, &
-                      Ice_ocean_boundary, Time_ocean, Time_step_cpld )
+                      Ice_ocean_boundary, Time_ocean, Time_step_cpld, OIB=ocean_ice_boundary )
       else
       if (do_chksum) call ocean_chksum('update_ocean_model-', nc, Ocean, Ice_ocean_boundary)
       ! update_ocean_model since fluxes don't change here