Changeset 14801 for NEMO/branches/2021/dev_r14393_HPC-03_Mele_Comm_Cleanup/src/OCE/DYN/dynldf_lap_blp.F90

Timestamp:

2021-05-06T18:36:42+02:00 (3 years ago)

Author:

francesca

Message:

add loop fusion to DYN and TRA modules - ticket #2607

File:

• NEMO/branches/2021/dev_r14393_HPC-03_Mele_Comm_Cleanup/src/OCE/DYN/dynldf_lap_blp.F90 (modified) (5 diffs)

NEMO/branches/2021/dev_r14393_HPC-03_Mele_Comm_Cleanup/src/OCE/DYN/dynldf_lap_blp.F90

@@ -21 +21 @@
    USE lbclnk         ! ocean lateral boundary conditions (or mpp link)
    USE lib_mpp
+#if defined key_loop_fusion
+   USE dynldf_lap_blp_lf
+#endif
    
    IMPLICIT NONE
@@ -65 +68 @@
       !!----------------------------------------------------------------------
       !
+#if defined key_loop_fusion
+      CALL dyn_ldf_lap_lf( kt, Kbb, Kmm, pu, pv, pu_rhs, pv_rhs, kpass ) 
+#else
       IF( kt == nit000 .AND. lwp ) THEN
          WRITE(numout,*)
@@ -150 +156 @@
       END SELECT
       !
+#endif
    END SUBROUTINE dyn_ldf_lap
 
@@ -174 +181 @@
       !!----------------------------------------------------------------------
       !
+#if defined key_loop_fusion
+      CALL dyn_ldf_blp_lf( kt, Kbb, Kmm, pu, pv, pu_rhs, pv_rhs ) 
+#else
       IF( kt == nit000 )  THEN
          IF(lwp) WRITE(numout,*)
@@ -189 +199 @@
       CALL dyn_ldf_lap( kt, Kbb, Kmm, zulap, zvlap, pu_rhs, pv_rhs, 2 )   ! rotated laplacian applied to zlap (output in pt(:,:,:,:,Krhs))
       !
+#endif
    END SUBROUTINE dyn_ldf_blp