Changeset 881 for branches/dev_001_SBC/NEMO/LIM_SRC/limmsh.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/limmsh.F90 (modified) (6 diffs)

branches/dev_001_SBC/NEMO/LIM_SRC/limmsh.F90

@@ -1 @@
-MODULE limmsh
+MODULE limmsh_2
    !!======================================================================
-   !!                     ***  MODULE  limmsh  ***
-   !! LIM ice model :   definition of the ice mesh parameters
+   !!                     ***  MODULE  limmsh_2  ***
+   !! LIM 2.0 ice model :   definition of the ice mesh parameters
    !!======================================================================
-#if defined key_ice_lim
-   !!----------------------------------------------------------------------
-   !!   'key_ice_lim'                                     LIM sea-ice model
-   !!----------------------------------------------------------------------
-   !!   lim_msh   : definition of the ice mesh
+#if defined key_lim2
+   !!----------------------------------------------------------------------
+   !!   'key_lim2'                                     LIM 2.0sea-ice model
+   !!----------------------------------------------------------------------
+   !!   lim_msh_2   : definition of the ice mesh
    !!----------------------------------------------------------------------
    !! * Modules used
    USE phycst
    USE dom_oce
-   USE dom_ice
+   USE dom_ice_2
    USE lbclnk
    USE in_out_manager
@@ -21 +21 @@
 
    !! * Accessibility
-   PUBLIC lim_msh      ! routine called by ice_ini.F90
+   PUBLIC lim_msh_2      ! routine called by ice_ini_2.F90
 
    !!----------------------------------------------------------------------
@@ -31 +31 @@
 CONTAINS
 
-   SUBROUTINE lim_msh
+   SUBROUTINE lim_msh_2
       !!-------------------------------------------------------------------
-      !!                  ***  ROUTINE lim_msh  ***
+      !!                  ***  ROUTINE lim_msh_2  ***
       !!              
       !! ** Purpose : Definition of the charact. of the numerical grid
@@ -62 +62 @@
       IF(lwp) THEN
          WRITE(numout,*)
-         WRITE(numout,*) 'lim_msh : LIM sea-ice model, mesh initialization'
-         WRITE(numout,*) '~~~~~~~'
+         WRITE(numout,*) 'lim_msh_2 : LIM 2.0 sea-ice model, mesh initialization'
+         WRITE(numout,*) '~~~~~~~~~'
       ENDIF
       
@@ -245 +245 @@
       area(:,:) = e1t(:,:) * e2t(:,:)
       
-   END SUBROUTINE lim_msh
+   END SUBROUTINE lim_msh_2
 
 #else
@@ -252 +252 @@
    !!----------------------------------------------------------------------
 CONTAINS
-   SUBROUTINE lim_msh           ! Dummy routine
-   END SUBROUTINE lim_msh
+   SUBROUTINE lim_msh_2           ! Dummy routine
+   END SUBROUTINE lim_msh_2
 #endif
 
    !!======================================================================
-END MODULE limmsh
+END MODULE limmsh_2