Merge pull request #604 from FESOM/fix/allocation_bug

fix missing/miss placed allocation
FESOM · Jun 19, 2024 · 6bf98ba · 6bf98ba
2 parents c1e17a3 + 94c96d1
commit 6bf98ba
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/cpl_driver.F90 b/src/cpl_driver.F90
@@ -477,6 +477,9 @@ subroutine cpl_oasis3mct_define_unstr(partit, mesh)
     ALLOCATE(send_id(nsend))
     ALLOCATE(recv_id(nrecv))
 !---wiso-code-end
+
+    ALLOCATE(displs_from_all_pes(partit%npes))
+    ALLOCATE(counts_from_all_pes(partit%npes))
 
     send_id = 0
     recv_id = 0
@@ -565,8 +568,6 @@ subroutine cpl_oasis3mct_define_unstr(partit, mesh)
       ALLOCATE(all_x_corners(1, 1, 1))
       ALLOCATE(all_y_corners(1, 1, 1))
     endif
-    ALLOCATE(displs_from_all_pes(partit%npes))
-    ALLOCATE(counts_from_all_pes(partit%npes))