Free more communicators for DriverAdaptive

library/LibUtilities/Communication/GsLib.hpp

@@ -161,7 +161,10 @@ namespace Gs
         MPI_Comm_dup(vCommMpi->GetComm(), &vComm.c);
         vComm.id = vCommMpi->GetRank();
         vComm.np = vCommMpi->GetSize();
-        return nektar_gs_setup(pId.get(),pId.num_elements(), &vComm, 0, gs_auto, 1);
+        gs_data* result = nektar_gs_setup(pId.get(),pId.num_elements(), 
+                                                    &vComm, 0, gs_auto, 1);
+        MPI_Comm_free(&vComm.c);
+        return result;
 #else
         return 0;
 #endif

library/LibUtilities/Communication/Xxt.hpp

@@ -169,7 +169,10 @@ namespace Xxt
         MPI_Comm_dup(vCommMpi->GetComm(), &vComm.c);
         vComm.id = vCommMpi->GetRank();
         vComm.np = vCommMpi->GetSize();
-        return nektar_crs_setup(pRank, &pId[0], nz, &pAi[0], &pAj[0], &pAr[0], 0, &vComm);
+        crs_data* result = nektar_crs_setup(pRank, &pId[0], nz, &pAi[0],
+                                            &pAj[0], &pAr[0], 0, &vComm);
+        MPI_Comm_free(&vComm.c);
+        return result;
 #else
         return 0;
 #endif