From 7289d41228a50bc50ca19235b86fe8e742215613 Mon Sep 17 00:00:00 2001 From: Uriel Ramirez Date: Wed, 21 Feb 2024 17:10:44 -0500 Subject: [PATCH] deallocates the weight sum in flush buffer --- diag_manager/fms_diag_output_buffer.F90 | 1 + 1 file changed, 1 insertion(+) diff --git a/diag_manager/fms_diag_output_buffer.F90 b/diag_manager/fms_diag_output_buffer.F90 index c34cca603..33bad48e7 100644 --- a/diag_manager/fms_diag_output_buffer.F90 +++ b/diag_manager/fms_diag_output_buffer.F90 @@ -146,6 +146,7 @@ subroutine flush_buffer(this) if (allocated(this%buffer_dims)) deallocate(this%buffer_dims) if (allocated(this%num_elements)) deallocate(this%num_elements) if (allocated(this%axis_ids)) deallocate(this%axis_ids) + if (allocated(this%weight_sum)) deallocate(this%weight_sum) end subroutine flush_buffer !> Allocates a 5D buffer to given buff_type.