Explicitly free output descriptor on desc%clone.

6 years ago · 3ecdb7d026
parent 4789277b19
commit 3ecdb7d026
1 changed files with 1 additions and 0 deletions
--- a/base/modules/desc/psb_desc_mod.F90
+++ b/base/modules/desc/psb_desc_mod.F90
@ -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