Changeset 13906 for NEMO/branches/2020/dev_r13898_Tiling_Cleanup_MPI3/tests/CANAL/MY_SRC/usrdef_istate.F90

Timestamp:

2020-11-28T19:03:50+01:00 (4 years ago)

Author:

mocavero

Message:

Merge with dev_r13296_HPC-07_mocavero_mpi3

File:

• NEMO/branches/2020/dev_r13898_Tiling_Cleanup_MPI3/tests/CANAL/MY_SRC/usrdef_istate.F90 (modified) (2 diffs)

NEMO/branches/2020/dev_r13898_Tiling_Cleanup_MPI3/tests/CANAL/MY_SRC/usrdef_istate.F90

@@ -189 +189 @@
                pssh(ji,jj) = pssh(ji,jj-1) - ff_t(ji,jj) / grav * pu(ji,jj,1) * e2t(ji,jj)
             END_2D
+#if defined key_mpi3
+            CALL lbc_lnk_nc_multi( 'usrdef_istate', pssh, 'T',  1. )
+#else
             CALL lbc_lnk( 'usrdef_istate', pssh, 'T',  1. )
+#endif
          END DO
          
@@ -305 +309 @@
          pssh(:,:) = pssh(:,:) + ( 0.1  * zrandom(:,:) - 0.05 )
       END IF
+#if defined key_mpi3
+      CALL lbc_lnk_nc_multi( 'usrdef_istate', pssh, 'T',  1. )
+      CALL lbc_lnk_nc_multi( 'usrdef_istate', pts , 'T',  1. )
+      CALL lbc_lnk_nc_multi( 'usrdef_istate', pu, 'U', -1., pv, 'V', -1. )
+#else
       CALL lbc_lnk( 'usrdef_istate', pssh, 'T',  1. )
       CALL lbc_lnk( 'usrdef_istate', pts , 'T',  1. )
       CALL lbc_lnk_multi( 'usrdef_istate', pu, 'U', -1., pv, 'V', -1. )
+#endif
 
    END SUBROUTINE usr_def_istate