Explicitly free output descriptor on desc%clone.

2026-10-16 10:52:08 +00:00 · 2019-05-17 14:54:32 +01:00
parent 4789277b19
commit 3ecdb7d026
1 changed files with 1 additions and 0 deletions
@@ -1030,6 +1030,7 @@ contains
    name = 'psb_cdcpy'

    if (desc%is_valid()) then 
+      call desc_out%free(info)
      ictxt = desc%get_context()

      ! check on blacs grid