diff --git a/diag_manager/fms_diag_object.F90 b/diag_manager/fms_diag_object.F90
index ea81afeba..9bb7ef308 100644
--- a/diag_manager/fms_diag_object.F90
+++ b/diag_manager/fms_diag_object.F90
@@ -898,8 +898,9 @@ subroutine fms_diag_do_io(this, end_time)
       call diag_file%flush_diag_file()
       call diag_file%update_next_write(model_time)
       call diag_file%update_current_new_file_freq_index(model_time)
-      if (diag_file%is_time_to_close_file(model_time, force_write)) call diag_file%close_diag_file(this%FMS_diag_output_buffers, &
-        this%model_end_time, diag_fields = this%FMS_diag_fields)
+      if (diag_file%is_time_to_close_file(model_time, force_write)) &
+        call diag_file%close_diag_file(this%FMS_diag_output_buffers, &
+          this%model_end_time, diag_fields = this%FMS_diag_fields)
     else if (force_write) then
       call diag_file%prepare_for_force_write()
       call diag_file%write_time_data()