Changeset 738 for tags/nemo_v2_3/NEMO/TOP_SRC/SMS

Timestamp:

2007-11-19T16:27:14+01:00 (17 years ago)

Author:

cetlod

Message:

remove unused variables, see ticket:19

Location:

tags/nemo_v2_3/NEMO/TOP_SRC/SMS

Files:

• sms_pisces.h90 (modified) (1 diff)
• trclsm.pisces.h90 (modified) (3 diffs)

tags/nemo_v2_3/NEMO/TOP_SRC/SMS/sms_pisces.h90

@@ -66 +66 @@
       REAL(wp), DIMENSION(jpi,jpj,jpk) :: &
          sio3eq, fekeq
-!!
-!!----------------------------------------------------------------------
-!!
-!!  Variable for simplified sediments
-!!
-!! ---------------------------------------------------------------------
-!!
-      REAL(wp), DIMENSION(jpi,jpj) :: & 
-         sedpoc, sedcal, sedsil
-
-      REAL(wp) :: &
-         sedlam,sedlostpoc, sedlostsil,sedlostcal
-
 
 !!

tags/nemo_v2_3/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,*)      &