Changeset 13807 for NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/DYN/dynvor.F90

Timestamp:

2020-11-17T17:16:58+01:00 (4 years ago)

Author:

mocavero

Message:

Added latest mpi3 calls in the NEMO code

File:

• NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/DYN/dynvor.F90 (modified) (2 diffs)

NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/DYN/dynvor.F90

@@ -618 +618 @@
       END DO                                           !   End of slab
          !
+#if defined key_mpi3
+      CALL lbc_lnk_nc_multi( 'dynvor', zwz, 'F', 1.0_wp )
+#else
       CALL lbc_lnk( 'dynvor', zwz, 'F', 1.0_wp )
+#endif
 
       DO jk = 1, jpkm1                                 ! Horizontal slab
@@ -739 +743 @@
       END DO
       !
+#if defined key_mpi3
+      CALL lbc_lnk_nc_multi( 'dynvor', zwz, 'F', 1.0_wp )
+#else
       CALL lbc_lnk( 'dynvor', zwz, 'F', 1.0_wp )
+#endif
       !
       DO jk = 1, jpkm1                                 ! Horizontal slab