Changeset 1859 for branches/DEV_r1837_mass_heat_salt_fluxes/NEMO/LIM_SRC_3/ice.F90

Timestamp:

2010-05-06T10:40:07+02:00 (14 years ago)

Author:

gm

Message:

ticket:#665 step 2 & 3: heat content in qns & new forcing terms

File:

• branches/DEV_r1837_mass_heat_salt_fluxes/NEMO/LIM_SRC_3/ice.F90 (modified) (5 diffs)

branches/DEV_r1837_mass_heat_salt_fluxes/NEMO/LIM_SRC_3/ice.F90

@@ -1 +1 @@
 MODULE ice
+   !!======================================================================
+   !!                        ***  MODULE ice  ***
+   !! LIM-3 sea ice :   variables defined in memory
+   !!=====================================================================
+   !! History :  3.0  ! 2008-03  (M. Vancoppenolle)  LIM3 original code
+   !!            3.1  ! 2010-05  (Y. Aksenov, M. Vancoppenolle, G. Madec) add heat content exchanges
+   !!----------------------------------------------------------------------
 #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 : 
-   !!
    !!    * Martin Vancoppenolle (UCL-ASTR, Belgium)
    !!    * Sylvain Bouillon (UCL-ASTR, Belgium)
@@ -41 +24 @@
    !! 
    !! Based on extremely valuable earlier work by
-   !!
    !!    * Thierry Fichefet
    !!    * Hugues Goosse
    !!
    !! The following persons also contributed to the code in various ways
-   !!
    !!    * Gurvan Madec, Claude Talandier, Christian Ethe 
    !!      and Rachid Benshila (LOCEAN-IPSL, France)
    !!    * Xavier Fettweis (UCL-ASTR), Ralph Timmermann (AWI, Germany)
-   !!    * Bill Lipscomb (LANL), Cecilia Bitz (UWa) 
-   !!      and Elisabeth Hunke (LANL), USA.
+   !!    * Bill Lipscomb (LANL), Cecilia Bitz (UWa) and Elisabeth Hunke (LANL), USA.
    !! 
    !! (c) UCL-ASTR, 2005-2008
    !!
-   !! For more info, the interested user is kindly invited to consult the
-   !! following references
+   !! For more info, the interested user is kindly invited to consult the following references
    !!    For model description and validation :
    !!    * Vancoppenolle et al., Ocean Modelling, 2008a.
    !!    * Vancoppenolle et al., Ocean Modelling, 2008b.
-   !!
    !!    For a specific description of EVP :
    !!    * Bouillon et al., in prep for 2008.
-   !!
-   !!    Or the reference manual, that should be available by 2009
    !!
    !!======================================================================
@@ -183 +159 @@
    !!=====================================================================
 
-   LOGICAL, PUBLIC ::    &
-      con_i = .false.           ! switch for conservation test
+   LOGICAL, PUBLIC ::   con_i = .false.   ! switch for conservation test
 
    !!--------------------------------------------------------------------------
@@ -310 +285 @@
       phicif ,   &  !: Old ice thickness
       fbif   ,   &  !: Heat flux at the ice base
-      rdmsnif,   &  !: Variation of snow mass
-      rdmicif,   &  !: Variation of ice mass
+      rdm_snw,   &  !: Variation of snow mass over 1 time step           [Kg/m2]
+      rdq_snw,   &  !: heat content associated to rdm_snw                [J/m2]
+      rdm_ice,   &  !: Variation of ice  mass over 1 time step           [Kg/m2]
+      rdq_ice,   &  !: heat content associated to rdm_ice                [J/m2]
       qldif  ,   &  !: heat balance of the lead (or of the open ocean)
       qcmif  ,   &  !: Energy needed to bring the ocean surface layer until its freezing 
@@ -506 +483 @@
 #endif
 
+   !!----------------------------------------------------------------------
+   !! NEMO/LIM 3.0, UCL-LOCEAN-IPSL (2010)
+   !! $Id$
+   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
    !!======================================================================
 END MODULE ice