Changeset 811 for branches/dev_001_SBC/NEMO/OPA_SRC/TRA/traadv_qck.F90

Timestamp:

2008-02-07T17:00:12+01:00 (16 years ago)

Author:

ctlod

Message:

dev_001_SBC: merge with the trunk last changesets: #780, 782, 783, 784, 785, 788, 789, 793, 794

File:

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

branches/dev_001_SBC/NEMO/OPA_SRC/TRA/traadv_qck.F90

@@ -50 +50 @@
 
 CONTAINS
-
-#if ! defined key_mpp_omp
-   !!----------------------------------------------------------------------
-   !!   Default option :             quickest advection scheme (k-j-i loop)
-   !!----------------------------------------------------------------------
 
    SUBROUTINE tra_adv_qck( kt, pun, pvn, pwn )
@@ -579 +574 @@
    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