Changeset 404 for trunk/NEMO/TOP_SRC/TRP/trcadv_tvd.F90

Timestamp:

2006-03-20T16:54:10+01:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_bugfix_023 : CT : add arrays initialization and passive tracer index jn in the CALL to nonosc subroutine

File:

• trunk/NEMO/TOP_SRC/TRP/trcadv_tvd.F90 (modified) (3 diffs)

trunk/NEMO/TOP_SRC/TRP/trcadv_tvd.F90

@@ -84 +84 @@
       !!----------------------------------------------------------------------
 
+      zti(:,:,:) = 0.e0
+
       IF( kt == nittrc000  .AND. lwp ) THEN
          WRITE(numout,*)
@@ -220 +222 @@
          ! 4. monotonicity algorithm
          ! -------------------------
-         CALL nonosc( trb, ztu, ztv, ztw, zti, z2 )
+         CALL nonosc( trb(:,:,:,jn), ztu, ztv, ztw, zti, z2 )
 
 
@@ -288 +290 @@
       zbig = 1.e+40
       zrtrn = 1.e-15
+      zbetup(:,:,:) = 0.e0   ;   zbetdo(:,:,:) = 0.e0
 
       ! Search local extrema