Changeset 888 for trunk/NEMO/LIM_SRC_3/ice.F90

Timestamp:

2008-04-11T19:05:03+02:00 (16 years ago)

Author:

ctlod

Message:

merge dev_001_SBC branche with the trunk to include the New Surface Module package, see ticket: #113

File:

• trunk/NEMO/LIM_SRC_3/ice.F90 (modified) (2 diffs)

trunk/NEMO/LIM_SRC_3/ice.F90

@@ -9 +9 @@
    !!----------------------------------------------------------------------
    !!  LIM 3.0, UCL-LOCEAN-IPSL (2005)
-   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/LIM_SRC/ice.F90,v 1.4 2005/03/27 18:34:41 opalod Exp $
+   !! $ Id: $
    !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
    !!----------------------------------------------------------------------
@@ -493 +493 @@
       diag_bot_me,                           & ! vertical bottom melt 
       diag_sur_me                              ! vertical surface melt
-   INTEGER , PUBLIC ::   &                      !: indexes of the debugging
-      jiindex,           &                      !  point
-      jjindex
+   INTEGER , PUBLIC ::   jiindx, jjindx        !: indexes of the debugging point
 
 #else