New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 730 – NEMO

Changeset 730


Ignore:
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:
4 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/TOP_SRC/SMS/sms_pisces.h90

    r719 r730  
    6666      REAL(wp), DIMENSION(jpi,jpj,jpk) :: & 
    6767         sio3eq, fekeq 
    68 !! 
    69 !!---------------------------------------------------------------------- 
    70 !! 
    71 !!  Variable for simplified sediments 
    72 !! 
    73 !! --------------------------------------------------------------------- 
    74 !! 
    75       REAL(wp), DIMENSION(jpi,jpj) :: &  
    76          sedpoc, sedcal, sedsil 
    77  
    78       REAL(wp) :: & 
    79          sedlam,sedlostpoc, sedlostsil,sedlostcal 
    80  
    8168 
    8269!! 
  • trunk/NEMO/TOP_SRC/SMS/trclsm.pisces.h90

    r719 r730  
    2727      !!--------------------------------------------------------------------- 
    2828      !!  TOP 1.0 , LOCEAN-IPSL (2005)  
    29    !! $Header$  
     29   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/SMS/trclsm.pisces.h90,v 1.7 2007/10/17 14:50:13 opalod Exp $  
    3030   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt  
    3131      !!--------------------------------------------------------------------- 
     
    3636      NAMELIST/natext/ atcco2 
    3737      NAMELIST/natbio/caco3r, kdca, nca, part,                       & 
    38          &          dispo0,conc0,oxymin,grosip, sedlam,              & 
    39          &          sedlostpoc,sedlostcal,sedlostsil,nrdttrc,        & 
     38         &          dispo0,conc0,oxymin,grosip, nrdttrc,              & 
    4039         &          pislope, excret,wsbio,wchl,wchld,resrat,mprat,mzrat,   & 
    4140         &          grazrat,xprefc,xprefp,unass,xkgraz,xkmort,xksi1, & 
     
    102101            &   ' Phosphate half saturation                  =', conc0 
    103102         WRITE(numout,*)      & 
    104             &   ' Sediment bioturbation factor               =', sedlam 
    105          WRITE(numout,*)      & 
    106             &   ' Sediment burying ratio for POC             =', sedlostpoc 
    107          WRITE(numout,*)      & 
    108             &   ' Sediment burying ratio for CACO3           =', sedlostcal 
    109          WRITE(numout,*)      & 
    110             &   ' Sediment burying ratio for SI              =', sedlostsil 
    111          WRITE(numout,*)      & 
    112103            &   ' frequence pour la biologie                 =', nrdttrc 
    113104         WRITE(numout,*)      & 
  • trunk/NEMO/TOP_SRC/trcdtr.F90

    r719 r730  
    88   !!======================================================================================= 
    99   !!  TOP 1.0,  LOCEAN-IPSL (2005) 
    10    !! $Header$ 
     10   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/trcdtr.F90,v 1.8 2007/10/17 14:48:56 opalod Exp $ 
    1111   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
    1212   !!---------------------------------------------------------------------- 
     
    143143      xksi(:,:)=2.E-6 
    144144 
    145 !! initialize Silicate and Calcite and POC in sediments 
    146 !! --------------------------------------------------- 
    147       sedcal(:,:) = 0. 
    148       sedsil(:,:) = 0. 
    149       sedpoc(:,:) = 0. 
    150  
    151145      IF(lwp) WRITE(numout,*) 'Initialization of PISCES tracers done' 
    152146      IF(lwp) WRITE(numout,*) ' ' 
  • trunk/NEMO/TOP_SRC/trcrst.F90

    r719 r730  
    88   !!====================================================================== 
    99   !!  TOP 1.0,  LOCEAN-IPSL (2005)  
    10    !! $Header$  
     10   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/trcrst.F90,v 1.11 2007/10/17 14:48:56 opalod Exp $  
    1111   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt  
    1212   !!---------------------------------------------------------------------- 
     
    205205      CALL iom_get( numrtr, jpdom_local, 'Silicalim', xksi(:,:) )  
    206206      xksimax = xksi 
    207  
    208       CALL iom_get( numrtr, jpdom_local, 'SED'//ctrcnm(jppoc), sedpoc(:,:) )  
    209       CALL iom_get( numrtr, jpdom_local, 'SED'//ctrcnm(jpcal), sedcal(:,:) )  
    210       CALL iom_get( numrtr, jpdom_local, 'SED'//ctrcnm(jpsil), sedsil(:,:) )  
    211207 
    212208#elif defined key_cfc 
     
    446442         CALL iom_rstput( kt, nitrst, numrtw, 'Silicalim', xksi(:,:) ) 
    447443 
    448          CALL iom_rstput( kt, nitrst, numrtw, 'SED'//ctrcnm(jppoc), sedpoc(:,:) ) 
    449          CALL iom_rstput( kt, nitrst, numrtw, 'SED'//ctrcnm(jpcal), sedcal(:,:) ) 
    450          CALL iom_rstput( kt, nitrst, numrtw, 'SED'//ctrcnm(jpsil), sedsil(:,:) ) 
    451           
    452444#elif defined key_cfc 
    453445         DO jn=1,jptra 
Note: See TracChangeset for help on using the changeset viewer.