Changeset 789 for trunk/NEMO/OPA_SRC/TRA/traadv_qck.F90

Timestamp:

2008-01-11T19:04:56+01:00 (16 years ago)

Author:

rblod

Message:

Suppress jki routines and associated key_mpp_omp

File:

• trunk/NEMO/OPA_SRC/TRA/traadv_qck.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/TRA/traadv_qck.F90

@@ -52 +52 @@
 
 CONTAINS
-
-#if ! defined key_mpp_omp
-   !!----------------------------------------------------------------------
-   !!   Default option :             quickest advection scheme (k-j-i loop)
-   !!----------------------------------------------------------------------
 
    SUBROUTINE tra_adv_qck( kt, pun, pvn, pwn )
@@ -581 +576 @@
    END FUNCTION
 
-#else
-   !!----------------------------------------------------------------------
-   !!   'key_mpp_omp' :      quickest advection (k- and j-slabs)
-   !!----------------------------------------------------------------------
-   SUBROUTINE tra_adv_qck( kt, pun, pvn, pwn  )
-      !!----------------------------------------------------------------------
-      !! * Arguments
-      INTEGER, INTENT( in ) ::   kt             ! ocean time-step index
-      REAL(wp), INTENT(in), DIMENSION(jpi,jpj,jpk) ::  pun   ! effective ocean velocity, u_component
-      REAL(wp), INTENT(in), DIMENSION(jpi,jpj,jpk) ::  pvn   ! effective ocean velocity, v_component
-      REAL(wp), INTENT(in), DIMENSION(jpi,jpj,jpk) ::  pwn   ! effective ocean velocity, w_component
-      !!----------------------------------------------------------------------  
-         IF(lwp) WRITE(numout,*)
-         IF(lwp) WRITE(numout,*) 'tra_adv_ qck:3st order quickest advection scheme' 
-         IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~   Vector optimization case'
-         IF(lwp) WRITE(numout,*) 'WITH AUTOTASKING =>this routine doesn t exist for the moment'
-    IF(lwp) WRITE(numout,*) ' EMPTY ROUTINE!!!!!!'      
-
-   END SUBROUTINE tra_adv_qck
-
-#endif
-
    !!======================================================================
 END MODULE traadv_qck