Changeset 13963 for NEMO/branches/2020/dev_r13923_Tiling_Cleanup_MPI3_LoopFusion/src/OCE/SBC/sbcwave.F90

Timestamp:

2020-12-02T06:43:12+01:00 (4 years ago)

Author:

mocavero

Message:

Cleanup mpi3 calls and key_mpi3 moved inside lbc_lnk routine

File:

• NEMO/branches/2020/dev_r13923_Tiling_Cleanup_MPI3_LoopFusion/src/OCE/SBC/sbcwave.F90 (modified) (3 diffs)

NEMO/branches/2020/dev_r13923_Tiling_Cleanup_MPI3_LoopFusion/src/OCE/SBC/sbcwave.F90

@@ -199 +199 @@
       ENDIF
 
-#if defined key_mpi3
-      CALL lbc_lnk_nc_multi( 'sbcwave', usd, 'U', -1.0_wp, vsd, 'V', -1.0_wp )
-#else
       CALL lbc_lnk_multi( 'sbcwave', usd, 'U', -1.0_wp, vsd, 'V', -1.0_wp )
-#endif
 
       !
@@ -216 +212 @@
       END_3D
       !
-#if defined key_mpi3
-      CALL lbc_lnk_nc_multi( 'sbcwave', ze3divh, 'T', 1.0_wp )
-#else
       CALL lbc_lnk( 'sbcwave', ze3divh, 'T', 1.0_wp )
-#endif
       !
       IF( ln_linssh ) THEN   ;   ik = 1   ! none zero velocity through the sea surface
@@ -279 +271 @@
             taum(ji,jj) = SQRT( tauw_x(ji,jj)*tauw_x(ji,jj) + tauw_y(ji,jj)*tauw_y(ji,jj) )
          END_2D
-#if defined key_mpi3
-         CALL lbc_lnk_nc_multi( 'sbcwave', utau(:,:), 'U', -1.0_wp , vtau(:,:), 'V', -1.0_wp , taum(:,:) , 'T', -1.0_wp )
-#else
          CALL lbc_lnk_multi( 'sbcwave', utau(:,:), 'U', -1.0_wp , vtau(:,:), 'V', -1.0_wp , taum(:,:) , 'T', -1.0_wp )
-#endif
       ENDIF
       !