Merge branch 'rdma_mpi' of https://github.com/mohdsaid497566/MFC-mo2 into rdma_mpi

Author: mohdsaid497566

.github/workflows/pmd.yml

@@ -0,0 +1,36 @@
+name: Source DRYness
+
+on: [push, pull_request, workflow_dispatch]
+
+jobs:    
+  pmd:
+      name: PMD
+      runs-on: "ubuntu-latest"
+      env:
+          pr_everything: 0
+      steps:
+          - name: Clone - PR
+            uses: actions/checkout@v4
+
+          - name: Set up Java
+            uses: actions/setup-java@v4
+            with:
+              distribution: temurin
+              java-version: '17'
+
+          - name: Run CPD for Fortran
+            continue-on-error: true
+            run: |
+              # Get latest PMD version from GitHub API
+              PMD_VERSION=$(curl -s https://api.github.com/repos/pmd/pmd/releases/latest | grep '"tag_name":' | cut -d'"' -f4 | sed 's/pmd_releases\///')
+              echo "Using PMD version: $PMD_VERSION"
+
+              curl -sSL -o pmd.zip \
+                "https://github.com/pmd/pmd/releases/download/pmd_releases/${PMD_VERSION}/pmd-dist-${PMD_VERSION}-bin.zip"
+              unzip -q pmd.zip
+              PMD_HOME="pmd-bin-${PMD_VERSION}"
+          
+              "${PMD_HOME}/bin/pmd" cpd \
+                --dir src \
+                --language fortran \
+                --minimum-tokens=40

src/common/include/macros.fpp

@@ -18,8 +18,8 @@
 
 #:def DEALLOCATE(*args)
     @:LOG({'@:DEALLOCATE(${re.sub(' +', ' ', ', '.join(args))}$)'})
-    deallocate (${', '.join(args)}$)
     !$acc exit data delete(${', '.join(args)}$)
+    deallocate (${', '.join(args)}$)
 #:enddef DEALLOCATE
 
 #:def ACC_SETUP_VFs(*args)

src/common/m_boundary_common.fpp

@@ -1138,6 +1138,10 @@ contains
 
                     if (cont_damage) qK_prim_vf(damage_idx)%sf(j, k, l) = qK_cons_vf(damage_idx)%sf(j, k, l)
 
+#ifdef MFC_POST_PROCESS
+                    if (bubbles_lagrange) qK_prim_vf(beta_idx)%sf(j, k, l) = qK_cons_vf(beta_idx)%sf(j, k, l)
+#endif
+
                 end do
             end do
         end do