Changeset 5372 for branches/2015/dev_r5302_CNRS18_HPC_scalability/NEMOGCM/NEMO/LIM_SRC_3/limrhg.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/LIM_SRC_3/limrhg.F90 (modified) (6 diffs)

branches/2015/dev_r5302_CNRS18_HPC_scalability/NEMOGCM/NEMO/LIM_SRC_3/limrhg.F90

@@ -377 +377 @@
             END DO
          END DO
-         CALL lbc_lnk( v_ice1  , 'U', -1. )   ;   CALL lbc_lnk( u_ice2  , 'V', -1. )      ! lateral boundary cond.
+
+
+#if defined key_multisend
+         CALL lbc_lnk_multi( v_ice1, 'U', -1. , u_ice2, 'V', -1. )      ! lateral boundary cond.
+#else
+         CALL lbc_lnk( v_ice1, 'U', -1. )   ;   CALL lbc_lnk( u_ice2, 'V', -1. )      ! lateral boundary cond.
+#endif
 
          DO jj = k_j1+1, k_jpj-1
@@ -412 +418 @@
             END DO
          END DO
+
+#if defined key_multisend
+         CALL lbc_lnk_multi( zs1 , 'T', 1. , zs2, 'T', 1. , zs12, 'F', 1. )
+         
+#else
          CALL lbc_lnk( zs1 , 'T', 1. )   ;   CALL lbc_lnk( zs2, 'T', 1. )
          CALL lbc_lnk( zs12, 'F', 1. )
+#endif
+
 
          ! Ice internal stresses (Appendix C of Hunke and Dukowicz, 2002)
@@ -570 +583 @@
       END DO
 
-      CALL lbc_lnk( u_ice(:,:), 'U', -1. ) 
-      CALL lbc_lnk( v_ice(:,:), 'V', -1. ) 
+#if defined key_multisend
+      CALL lbc_lnk_multi( u_ice(:,:), 'U', -1. , v_ice(:,:), 'V', -1. )
+
+#else
+      CALL lbc_lnk( u_ice(:,:), 'U', -1. )
+      CALL lbc_lnk( v_ice(:,:), 'V', -1. )
+#endif
+
 #if defined key_agrif && defined key_lim2
       CALL agrif_rhg_lim2( nn_nevp , nn_nevp, 'U' )
@@ -595 +614 @@
       END DO
 
-      CALL lbc_lnk( u_ice2(:,:), 'V', -1. ) 
+#if defined key_multisend
+      CALL lbc_lnk_multi( u_ice2(:,:), 'V', -1. , v_ice1(:,:), 'U', -1. )
+
+#else
+      CALL lbc_lnk( u_ice2(:,:), 'V', -1. )
       CALL lbc_lnk( v_ice1(:,:), 'U', -1. )
+#endif
 
       ! Recompute delta, shear and div, inputs for mechanical redistribution 
@@ -642 +666 @@
       END DO
 
+#if defined key_multisend
+      ! Lateral boundary condition
+      CALL lbc_lnk_multi( divu_i (:,:), 'T', 1. , delta_i(:,:), 'T', 1. ,  shear_i(:,:), 'T', 1. )
+      ! CALL lbc_lnk( shear_i(:,:), 'F', 1. )
+
+#else
       ! Lateral boundary condition
       CALL lbc_lnk( divu_i (:,:), 'T', 1. )
@@ -647 +677 @@
       ! CALL lbc_lnk( shear_i(:,:), 'F', 1. )
       CALL lbc_lnk( shear_i(:,:), 'T', 1. )
+#endif
 
       ! * Store the stress tensor for the next time step