Commits

Anonymous committed 1b2060e

NS: Add identity interp/restrict.

Comments (0)

Files changed (1)

examples/mpi-navier-stokes/src/transfer.f90

     nG = qG%shape(1)
     nF = qF%shape(1)
 
+    if (nF == nG) then
+       qF%array = qG%array
+       return
+    end if
+
     !$omp parallel workshare
     qF%array = 0.0d0
     !$omp end parallel workshare
     nG = qG%shape(1)
     nF = qF%shape(1)
 
+    if (nF == nG) then
+       qG%array = qF%array
+       return
+    end if
+
     !$omp parallel workshare
     qG%array = 0.0d0
     !$omp end parallel workshare