Changeset 13807 for NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/tests/CANAL/MY_SRC/domvvl.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/tests/CANAL/MY_SRC/domvvl.F90 (modified) (3 diffs)

NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/tests/CANAL/MY_SRC/domvvl.F90

@@ -725 +725 @@
                &                           + e1e2t(ji+1,jj) * ( pe3_in(ji+1,jj,jk) - e3t_0(ji+1,jj,jk) ) )
          END_3D
+#if defined key_mpi3
+         CALL lbc_lnk_nc_multi( 'domvvl', pe3_out(:,:,:), 'U', 1._wp )
+#else
          CALL lbc_lnk( 'domvvl', pe3_out(:,:,:), 'U', 1._wp )
+#endif
          pe3_out(:,:,:) = pe3_out(:,:,:) + e3u_0(:,:,:)
          !
@@ -734 +738 @@
                &                           + e1e2t(ji,jj+1) * ( pe3_in(ji,jj+1,jk) - e3t_0(ji,jj+1,jk) ) )
          END_3D
+#if defined key_mpi3
+         CALL lbc_lnk_nc_multi( 'domvvl', pe3_out(:,:,:), 'V', 1._wp )
+#else
          CALL lbc_lnk( 'domvvl', pe3_out(:,:,:), 'V', 1._wp )
+#endif
          pe3_out(:,:,:) = pe3_out(:,:,:) + e3v_0(:,:,:)
          !
@@ -744 +752 @@
                &                           + e1e2u(ji,jj+1) * ( pe3_in(ji,jj+1,jk) - e3u_0(ji,jj+1,jk) ) )
          END_3D
+#if defined key_mpi3
+         CALL lbc_lnk_nc_multi( 'domvvl', pe3_out(:,:,:), 'F', 1._wp )
+#else
          CALL lbc_lnk( 'domvvl', pe3_out(:,:,:), 'F', 1._wp )
+#endif
          pe3_out(:,:,:) = pe3_out(:,:,:) + e3f_0(:,:,:)
          !