Changeset 641 for trunk/NEMO/OPA_SRC

Timestamp:

2007-03-09T15:49:36+01:00 (17 years ago)

Author:

opalod

Message:

nemo_v2_bugfix_027:RB: small bug in quickest routine (j-ki case)

File:

• trunk/NEMO/OPA_SRC/TRA/traadv_qck.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/TRA/traadv_qck.F90

@@ -585 +585 @@
    !!   'key_mpp_omp' :      quickest advection (k- and j-slabs)
    !!----------------------------------------------------------------------
-   SUBROUTINE tra_adv_qck( kt, pun, pvn, pwn )
+   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,*)