Changeset 730 for trunk/NEMO/TOP_SRC/SMS/trclsm.pisces.h90

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/SMS/trclsm.pisces.h90 (modified) (3 diffs)

trunk/NEMO/TOP_SRC/SMS/trclsm.pisces.h90

@@ -27 +27 @@
       !!---------------------------------------------------------------------
       !!  TOP 1.0 , LOCEAN-IPSL (2005) 
-   !! $Header$ 
+   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/SMS/trclsm.pisces.h90,v 1.7 2007/10/17 14:50:13 opalod Exp $ 
    !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
       !!---------------------------------------------------------------------
@@ -36 +36 @@
       NAMELIST/natext/ atcco2
       NAMELIST/natbio/caco3r, kdca, nca, part,                       &
-         &          dispo0,conc0,oxymin,grosip, sedlam,              &
-         &          sedlostpoc,sedlostcal,sedlostsil,nrdttrc,        &
+         &          dispo0,conc0,oxymin,grosip, nrdttrc,              &
          &          pislope, excret,wsbio,wchl,wchld,resrat,mprat,mzrat,   &
          &          grazrat,xprefc,xprefp,unass,xkgraz,xkmort,xksi1, &
@@ -102 +101 @@
             &   ' Phosphate half saturation                  =', conc0
          WRITE(numout,*)      &
-            &   ' Sediment bioturbation factor               =', sedlam
-         WRITE(numout,*)      &
-            &   ' Sediment burying ratio for POC             =', sedlostpoc
-         WRITE(numout,*)      &
-            &   ' Sediment burying ratio for CACO3           =', sedlostcal
-         WRITE(numout,*)      &
-            &   ' Sediment burying ratio for SI              =', sedlostsil
-         WRITE(numout,*)      &
             &   ' frequence pour la biologie                 =', nrdttrc
          WRITE(numout,*)      &