Changeset 730 for trunk/NEMO/TOP_SRC/trcrst.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/trcrst.F90 (modified) (3 diffs)

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