Changeset 5372 for branches/2015/dev_r5302_CNRS18_HPC_scalability/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

Timestamp:

2015-06-05T21:14:36+02:00 (9 years ago)

Author:

mcastril

Message:

ticket #1523 Message Packing

File:

• branches/2015/dev_r5302_CNRS18_HPC_scalability/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90 (modified) (4 diffs)

branches/2015/dev_r5302_CNRS18_HPC_scalability/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

@@ -557 +557 @@
                END DO
             END DO
+#if defined key_multisend
+            CALL lbc_lnk_multi( zwx, 'U', 1._wp , zwy, 'V', 1._wp )
+#else
             CALL lbc_lnk( zwx, 'U', 1._wp )    ;   CALL lbc_lnk( zwy, 'V', 1._wp )
+#endif
             !
             zhup2_e (:,:) = hu_0(:,:) + zwx(:,:)                ! Ocean depth at U- and V-points
@@ -635 +639 @@
                END DO
             END DO
+#if defined key_multisend
+            CALL lbc_lnk_multi( zsshu_a, 'U', 1._wp , zsshv_a, 'V', 1._wp )
+#else
             CALL lbc_lnk( zsshu_a, 'U', 1._wp )   ;   CALL lbc_lnk( zsshv_a, 'V', 1._wp )
+#endif
          ENDIF   
          !                                 
@@ -803 +811 @@
          !                                                 !  -----------------------
          !
+#if defined key_multisend
+         CALL lbc_lnk_multi( ua_e, 'U', -1._wp , va_e , 'V', -1._wp )
+#else
          CALL lbc_lnk( ua_e  , 'U', -1._wp )               ! local domain boundaries 
          CALL lbc_lnk( va_e  , 'V', -1._wp )
+#endif
+
+
 
 #if defined key_bdy  
@@ -859 +873 @@
             END DO
          END DO
+#if defined key_multisend
+         CALL lbc_lnk_multi( zsshu_a, 'U', 1._wp , zsshv_a, 'V', 1._wp ) ! Boundary conditions
+#else
          CALL lbc_lnk( zsshu_a, 'U', 1._wp )   ;   CALL lbc_lnk( zsshv_a, 'V', 1._wp ) ! Boundary conditions
+#endif
       ENDIF
       !