From 162aa9c8d681fe32d56fa41659852a48038860f7 Mon Sep 17 00:00:00 2001 From: Uriel Ramirez Date: Wed, 8 Jan 2025 12:54:12 -0500 Subject: [PATCH] Fix line length limit --- diag_manager/fms_diag_object.F90 | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/diag_manager/fms_diag_object.F90 b/diag_manager/fms_diag_object.F90 index 8efab0cdb..dad97e13f 100644 --- a/diag_manager/fms_diag_object.F90 +++ b/diag_manager/fms_diag_object.F90 @@ -885,8 +885,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()