Changeset 1857 for branches/DEV_r1837_mass_heat_salt_fluxes/NEMO/LIM_SRC_2/limthd_2.F90

Timestamp:

2010-05-03T13:59:46+02:00 (14 years ago)

Author:

gm

Message:

ticket:#665 Reverting previous commit and going back to revision 1850

File:

• branches/DEV_r1837_mass_heat_salt_fluxes/NEMO/LIM_SRC_2/limthd_2.F90 (modified) (5 diffs)

branches/DEV_r1837_mass_heat_salt_fluxes/NEMO/LIM_SRC_2/limthd_2.F90

@@ -2 +2 @@
    !!======================================================================
    !!                  ***  MODULE limthd_2   ***
-   !!   LIM 2 ice model : thermodynamics
+   !!              LIM thermo ice model : ice thermodynamic
    !!======================================================================
-   !! History :  LIM  ! 2000-01 (UCL) Original code
+   !! History :  1.0  ! 2000-01 (LIM)
    !!            2.0  ! 2002-07 (C. Ethe, G. Madec) F90
-   !!             -   ! 2003-08 (C. Ethe)  add lim_thd_init
-   !!             -   ! 2008-08  (A. Caubel, G. Madec, E. Maisonnave, S. Masson ) generic coupled interface
+   !!            2.0  ! 2003-08 (C. Ethe)  add lim_thd_init
+   !!             -   ! 2008-2008  (A. Caubel, G. Madec, E. Maisonnave, S. Masson ) generic coupled interface
    !!---------------------------------------------------------------------
 #if defined key_lim2
@@ -13 +13 @@
    !!   'key_lim2' :                                  LIM 2.0 sea-ice model
    !!----------------------------------------------------------------------
-   !!   lim_thd_2      : thermodynamics of sea ice
+   !!   lim_thd_2      : thermodynamic of sea ice
    !!   lim_thd_init_2 : initialisation of sea-ice thermodynamic
    !!----------------------------------------------------------------------
@@ -23 +23 @@
    USE lib_mpp
    USE iom             ! IOM library
-   USE ice_2           ! LIM 2 sea-ice variables
+   USE ice_2           ! LIM sea-ice variables
    USE sbc_oce         ! 
    USE sbc_ice         ! 
-   USE dom_ice_2       ! LIM 2 sea-ice domain
+   USE thd_ice_2       ! LIM thermodynamic sea-ice variables
+   USE dom_ice_2       ! LIM sea-ice domain
    USE limthd_zdf_2
    USE limthd_lac_2
@@ -48 +49 @@
 #  include "domzgr_substitute.h90"
 #  include "vectopt_loop_substitute.h90"
-   !!----------------------------------------------------------------------
-   !! NEMO/LIM 3.3,  UCL-LOCEAN-IPSL (2010) 
+   !!-------- -------------------------------------------------------------
+   !! NEMO/LIM 3.2,  UCL-LOCEAN-IPSL (2009) 
    !! $Id$
    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
@@ -565 +566 @@
    !!   Default option          Dummy module       NO LIM 2.0 sea-ice model
    !!----------------------------------------------------------------------
+CONTAINS
+   SUBROUTINE lim_thd_2         ! Dummy routine
+   END SUBROUTINE lim_thd_2
 #endif