Changeset 14804 for NEMO

Timestamp:

2021-05-07T13:14:41+02:00 (3 years ago)

Author:

francesca

Message:

remove traadv_mus_lf.F90 file - ticket #2607

Location:

NEMO/branches/2021/dev_r14393_HPC-03_Mele_Comm_Cleanup/src/OCE/TRA

Files:

• traadv_mus.F90 (modified) (3 diffs)
• traadv_mus_lf.F90 (deleted)

NEMO/branches/2021/dev_r14393_HPC-03_Mele_Comm_Cleanup/src/OCE/TRA/traadv_mus.F90

@@ -31 +31 @@
    USE lbclnk         ! ocean lateral boundary condition (or mpp link)
    USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)
-#if defined key_loop_fusion
-   USE traadv_mus_lf  ! MUSCL    scheme            (tra_adv_mus  routine - loop fusion version)
-#endif
 
    IMPLICIT NONE
@@ -96 +93 @@
       !!----------------------------------------------------------------------
       !
-#if defined key_loop_fusion
-      CALL tra_adv_mus_lf ( kt, nit000, cdtype, p2dt, pU, pV, pW, Kbb, Kmm, pt, kjpt, Krhs, ld_msc_ups )
-#else
       IF( ntile == 0 .OR. ntile == 1 )  THEN                       ! Do only on the first tile
          IF( kt == kit000 )  THEN
@@ -246 +240 @@
       END DO                     ! end of tracer loop
       !
-#endif
    END SUBROUTINE tra_adv_mus