Changeset 881 for branches/dev_001_SBC/NEMO/LIM_SRC/thd_ice.F90

Timestamp:

2008-04-08T11:45:52+02:00 (16 years ago)

Author:

ctlod

Message:

dev_001_SBC: Step I: change cpp ket name key_ice_lim into key_lim2 & change names inside modules with extension _2, see ticket: #110

File:

• branches/dev_001_SBC/NEMO/LIM_SRC/thd_ice.F90 (modified) (3 diffs)

branches/dev_001_SBC/NEMO/LIM_SRC/thd_ice.F90

@@ -1 @@
-MODULE thd_ice
+MODULE thd_ice_2
+#if defined key_lim2
    !!======================================================================
-   !!                       ***  MODULE thd_ice  ***
-   !! LIM sea-ice :   Ice thermodynamics in 1D
+   !!                       ***  MODULE thd_ice_2  ***
+   !! LIM 2.0 sea-ice :   Ice thermodynamics in 1D
    !!=====================================================================
    !! History :
@@ -12 +13 @@
    !!----------------------------------------------------------------------
    !! * Modules used
-   USE par_ice
+   USE par_ice_2
 
    IMPLICIT NONE
@@ -82 +83 @@
 
    !!======================================================================
-END MODULE thd_ice
+#endif
+END MODULE thd_ice_2