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

branches/dev_001_SBC/NEMO/LIM_SRC/limrhg.F90

@@ -1 @@
-MODULE limrhg
+MODULE limrhg_2
    !!======================================================================
-   !!                     ***  MODULE  limrhg  ***
+   !!                     ***  MODULE  limrhg_2  ***
    !!   Ice rheology :  performs sea ice rheology
    !!======================================================================
@@ -10 +10 @@
    !!            " "  !  09-09  (G. Madec)  Huge verctor optimisation
    !!----------------------------------------------------------------------
-#if defined key_ice_lim
-   !!----------------------------------------------------------------------
-   !!   'key_ice_lim'                                     LIM sea-ice model
-   !!----------------------------------------------------------------------
-   !!----------------------------------------------------------------------
-   !!   lim_rhg   : computes ice velocities
+#if defined key_lim2
+   !!----------------------------------------------------------------------
+   !!   'key_lim2'                                    LIM 2.0 sea-ice model
+   !!----------------------------------------------------------------------
+   !!----------------------------------------------------------------------
+   !!   lim_rhg_2   : computes ice velocities
    !!----------------------------------------------------------------------
    USE par_oce        ! ocean parameter
    USE ice_oce        ! ice variables
    USE sbc_ice        ! surface boundary condition: ice variables
-   USE dom_ice        ! domaine: ice variables
+   USE dom_ice_2      ! domaine: ice variables
    USE phycst         ! physical constant
-   USE ice            ! ice variables
+   USE ice_2          ! ice variables
    USE lbclnk         ! lateral boundary condition
    USE lib_mpp        ! MPP library
@@ -31 +31 @@
    PRIVATE
 
-   PUBLIC   lim_rhg   ! routine called by lim_dyn
+   PUBLIC   lim_rhg_2 ! routine called by lim_dyn
 
    REAL(wp) ::   rzero   = 0.e0   ! constant value: zero
@@ -46 +46 @@
 CONTAINS
 
-   SUBROUTINE lim_rhg( k_j1, k_jpj )
+   SUBROUTINE lim_rhg_2( k_j1, k_jpj )
       !!-------------------------------------------------------------------
-      !!                 ***  SUBROUTINR lim_rhg  ***
+      !!                 ***  SUBROUTINR lim_rhg_2  ***
       !!
       !! ** purpose :   determines the velocity field of sea ice by using
@@ -567 +567 @@
       ENDIF
 
-   END SUBROUTINE lim_rhg
+   END SUBROUTINE lim_rhg_2
 
 #else
    !!----------------------------------------------------------------------
-   !!   Default option          Dummy module           NO LIM sea-ice model
+   !!   Default option          Dummy module       NO 2.0 LIM sea-ice model
    !!----------------------------------------------------------------------
 CONTAINS
-   SUBROUTINE lim_rhg( k1 , k2 )         ! Dummy routine
-      WRITE(*,*) 'lim_rhg: You should not have seen this print! error?', k1, k2
-   END SUBROUTINE lim_rhg
+   SUBROUTINE lim_rhg_2( k1 , k2 )       ! Dummy routine
+      WRITE(*,*) 'lim_rhg_2: You should not have seen this print! error?', k1, k2
+   END SUBROUTINE lim_rhg_2
 #endif
 
    !!==============================================================================
-END MODULE limrhg
+END MODULE limrhg_2