Changeset 730 for trunk/NEMO/TOP_SRC/trcdtr.F90

Timestamp:

2007-10-22T12:04:56+02:00 (17 years ago)

Author:

cetlod

Message:

remove unused variables, see ticket:19

File:

• trunk/NEMO/TOP_SRC/trcdtr.F90 (modified) (2 diffs)

trunk/NEMO/TOP_SRC/trcdtr.F90

@@ -8 +8 @@
    !!=======================================================================================
    !!  TOP 1.0,  LOCEAN-IPSL (2005)
-   !! $Header$
+   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/trcdtr.F90,v 1.8 2007/10/17 14:48:56 opalod Exp $
    !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
    !!----------------------------------------------------------------------
@@ -143 +143 @@
       xksi(:,:)=2.E-6
 
-!! initialize Silicate and Calcite and POC in sediments
-!! ---------------------------------------------------
-      sedcal(:,:) = 0.
-      sedsil(:,:) = 0.
-      sedpoc(:,:) = 0.
-
       IF(lwp) WRITE(numout,*) 'Initialization of PISCES tracers done'
       IF(lwp) WRITE(numout,*) ' '