Added TBD comments.

6 years ago · f8c7a1a4ba
parent 1fbca2abef
commit f8c7a1a4ba
1 changed files with 4 additions and 2 deletions
--- a/tests/Bcmatch/mld_d_bcmatch_aggregator_mod.F90
+++ b/tests/Bcmatch/mld_d_bcmatch_aggregator_mod.F90
@ -187,8 +187,10 @@ contains
      agnext%matching_alg = ag%matching_alg
      agnext%n_sweeps     = ag%n_sweeps 
      agnext%max_csize    = ag%max_csize 
-      agnext%max_nlevels  = ag%max_nlevels 
-      agnext%w_par        = ag%w_par 
+      agnext%max_nlevels  = ag%max_nlevels
+      ! Is this going to generate shallow copies/memory leaks/double frees?
+      ! To be investigated further.
+      agnext%w_par        = ag%w_par  
    end select
    info = 0 
  end subroutine d_bcmatch_aggregator_update_level