diff --git a/full/coupler_main.F90 b/full/coupler_main.F90
index 3a0e7149..277cd057 100644
--- a/full/coupler_main.F90
+++ b/full/coupler_main.F90
@@ -1070,6 +1070,7 @@ program coupler_main
       ! does not modify either Ocean or Ice_ocean_boundary
       call flux_ocean_from_ice_stocks(Ocean_state, Ocean, Ice_ocean_boundary)
 
+      call fms_diag_send_complete(Time_step_cpld)
       Time_ocean = Time_ocean +  Time_step_cpld
       Time = Time_ocean