deallocates the weight sum in flush buffer

uramirez8707 · Feb 21, 2024 · 7289d41 · 7289d41
1 parent cc41191
commit 7289d41
Showing 1 changed file with 1 addition and 0 deletions.
diff --git 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.