Changeset 2528 for trunk/NEMOGCM/NEMO/LIM_SRC_3/ice.F90

Timestamp:

2010-12-27T18:33:53+01:00 (13 years ago)

Author:

rblod

Message:

Update NEMOGCM from branch nemo_v3_3_beta

File:

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

trunk/NEMOGCM/NEMO/LIM_SRC_3/ice.F90

@@ -1 +1 @@
 MODULE ice
+   !!======================================================================
+   !!                        ***  MODULE ice  ***
+   !! LIM-3 Sea Ice physics:  diagnostics variables of ice defined in memory
+   !!=====================================================================
+   !! History :  3.0  ! 2008-03  (M. Vancoppenolle) : original code LIM-3
+   !!----------------------------------------------------------------------
 #if defined key_lim3
    !!----------------------------------------------------------------------
    !!   'key_lim3' :                                   LIM3 sea-ice model
    !!----------------------------------------------------------------------
-   !! History :
-   !!   2.0  !  03-08  (C. Ethe)  F90: Free form and module
-   !!   3.0  !  08-03  (M. Vancoppenolle) : LIM3 !
-   !!----------------------------------------------------------------------
-   !!  LIM 3.0, UCL-LOCEAN-IPSL (2005)
-   !! $Id$
-   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
-   !!----------------------------------------------------------------------
-   !! * Modules used
    USE par_ice          ! LIM sea-ice parameters
 
    IMPLICIT NONE
    PRIVATE
-   !!
+
    !!======================================================================
-   !!                        ***  MODULE ice  ***
-   !!
-   !!                           **************
-   !!                           * L I M  3.0 *
-   !!                           **************
-   !!
-   !!                         ''in ice we trust''
-   !!
-   !!                   This module contains the sea ice 
-   !!                 diagnostics variables of ice defined 
-   !!                             in memory
-   !!
-   !!======================================================================
-   !!
    !! LIM3 by the use of sweat, agile fingers and sometimes brain juice, 
    !!  was developed in Louvain-la-Neuve by : 
@@ -48 +31 @@
    !!
    !!    * Gurvan Madec, Claude Talandier, Christian Ethe 
-   !!      and Rachid Benshila (LOCEAN-IPSL, France)
+   !! NEMO/LIM3 3.3 , UCL - NEMO Consortium (2010)
    !!    * Xavier Fettweis (UCL-ASTR), Ralph Timmermann (AWI, Germany)
    !!    * Bill Lipscomb (LANL), Cecilia Bitz (UWa) 
@@ -64 +47 @@
    !!    * Bouillon et al., in prep for 2008.
    !!
-   !!    Or the reference manual, that should be available by 2009
-   !!
+   !!    Or the reference manual, that should be available by 2010
    !!======================================================================
    !!                                                                     |
-   !!            *****************************************                |
-   !!            *                                       *                |
-   !! ************ I C E   S T A T E   V A R I A B L E S **************** |
-   !!            *                                       *                |
-   !!            *****************************************                |
+   !!              I C E   S T A T E   V A R I A B L E S                  |
    !!                                                                     |
    !! Introduction :                                                      |
    !! --------------                                                      |
-   !!                                                                     |
    !! Every ice-covered grid cell is characterized by a series of state   |
    !! variables. To account for unresolved spatial variability in ice     |
@@ -130 +107 @@
    !!                                                                     |
    !! ** Global variables                                                 |
-   !!                                                                     |
    !!-------------|-------------|---------------------------------|-------|
    !! a_i         | a_i_b       |    Ice concentration            |       |
@@ -145 +121 @@
    !!                                                                     |
    !! ** Equivalent variables                                             |
-   !!                                                                     |
    !!-------------|-------------|---------------------------------|-------|
    !!                                                                     |
@@ -179 +154 @@
    !! et_s        !      -      !    Total snow enthalpy          | 10^9 J| 
    !! bv_i        !      -      !    Mean relative brine volume   | ???   | 
-   !!                                                                     |
-   !!                                                                     |
    !!=====================================================================
 
-   LOGICAL, PUBLIC ::    &
-      con_i = .false.           ! switch for conservation test
+   LOGICAL, PUBLIC ::   con_i = .false.   ! switch for conservation test
 
    !!--------------------------------------------------------------------------
    !! * Share Module variables
    !!--------------------------------------------------------------------------
-   REAL(wp), PUBLIC ::   rdt_ice      !: ice time step
+   INTEGER , PUBLIC ::   nstart    !: iteration number of the begining of the run 
+   INTEGER , PUBLIC ::   nlast     !: iteration number of the end of the run 
+   INTEGER , PUBLIC ::   nitrun    !: number of iteration
+   INTEGER , PUBLIC ::   numit     !: iteration number
+   REAL(wp), PUBLIC ::   tpstot    !: time of the run in seconds
+   REAL(wp), PUBLIC ::   rdt_ice   !: ice time step
 
    INTEGER , PUBLIC ::   &     !!: ** ice-dynamic namelist (namicedyn) **