Changeset 13630 for NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/stpMLF.F90

Timestamp:

2020-10-19T10:48:19+02:00 (3 years ago)

Author:

mocavero

Message:

Add neighborhood collectives calls in the NEMO src - ticket #2496

File:

• NEMO/branches/2020/dev_r13296_HPC-07_mocavero_mpi3/src/OCE/stpMLF.F90 (modified) (1 diff)

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

@@ -457 +457 @@
 #endif
       !                                        ! local domain boundaries  (T-point, unchanged sign)
+#if defined key_mpi3
+      CALL lbc_lnk_nc_multi( 'finalize_sbc', puu(:,:,:,       Kaa), 'U', -1., pvv(:,:,:       ,Kaa), 'V', -1.   &
+                       &                , pts(:,:,:,jp_tem,Kaa), 'T',  1., pts(:,:,:,jp_sal,Kaa), 'T',  1. )     !* local domain boundaries
+#else
       CALL lbc_lnk_multi( 'finalize_sbc', puu(:,:,:,       Kaa), 'U', -1., pvv(:,:,:       ,Kaa), 'V', -1.   &
                        &                , pts(:,:,:,jp_tem,Kaa), 'T',  1., pts(:,:,:,jp_sal,Kaa), 'T',  1. )     !* local domain boundaries
+#endif
       !
       !                                        !* BDY open boundaries