Changeset 730 for trunk/NEMO

Timestamp:

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

Author:

cetlod

Message:

remove unused variables, see ticket:19

Location:

trunk/NEMO/TOP_SRC

Files:

• SMS/sms_pisces.h90 (modified) (1 diff)
• SMS/trclsm.pisces.h90 (modified) (3 diffs)
• trcdtr.F90 (modified) (2 diffs)
• trcrst.F90 (modified) (3 diffs)

trunk/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
-
 
 !!

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

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,*) ' '

trunk/NEMO/TOP_SRC/trcrst.F90

@@ -8 +8 @@
    !!======================================================================
    !!  TOP 1.0,  LOCEAN-IPSL (2005) 
-   !! $Header$ 
+   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/trcrst.F90,v 1.11 2007/10/17 14:48:56 opalod Exp $ 
    !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
    !!----------------------------------------------------------------------
@@ -205 +205 @@
       CALL iom_get( numrtr, jpdom_local, 'Silicalim', xksi(:,:) ) 
       xksimax = xksi
-
-      CALL iom_get( numrtr, jpdom_local, 'SED'//ctrcnm(jppoc), sedpoc(:,:) ) 
-      CALL iom_get( numrtr, jpdom_local, 'SED'//ctrcnm(jpcal), sedcal(:,:) ) 
-      CALL iom_get( numrtr, jpdom_local, 'SED'//ctrcnm(jpsil), sedsil(:,:) ) 
 
 #elif defined key_cfc
@@ -446 +442 @@
          CALL iom_rstput( kt, nitrst, numrtw, 'Silicalim', xksi(:,:) )
 
-         CALL iom_rstput( kt, nitrst, numrtw, 'SED'//ctrcnm(jppoc), sedpoc(:,:) )
-         CALL iom_rstput( kt, nitrst, numrtw, 'SED'//ctrcnm(jpcal), sedcal(:,:) )
-         CALL iom_rstput( kt, nitrst, numrtw, 'SED'//ctrcnm(jpsil), sedsil(:,:) )
-         
 #elif defined key_cfc
          DO jn=1,jptra