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

branches/dev_001_SBC/NEMO/LIM_SRC/limistate.F90

@@ -1 @@
-MODULE limistate
+MODULE limistate_2
    !!======================================================================
-   !!                     ***  MODULE  limistate  ***
+   !!                     ***  MODULE  limistate_2  ***
    !!              Initialisation of diagnostics ice variables
    !!======================================================================
@@ -10 +10 @@
    !!                  !  07-10  (G. Madec)  surface module
    !!--------------------------------------------------------------------
-#if defined key_ice_lim
-   !!----------------------------------------------------------------------
-   !!   'key_ice_lim' :                                   LIM sea-ice model
-   !!----------------------------------------------------------------------
-   !!----------------------------------------------------------------------
-   !!   lim_istate      :  Initialisation of diagnostics ice variables
-   !!   lim_istate_init :  initialization of ice state and namelist read
+#if defined key_lim2
+   !!----------------------------------------------------------------------
+   !!   'key_lim2' :                                  LIM 2.0 sea-ice model
+   !!----------------------------------------------------------------------
+   !!----------------------------------------------------------------------
+   !!   lim_istate_2      :  Initialisation of diagnostics ice variables
+   !!   lim_istate_init_2 :  initialization of ice state and namelist read
    !!----------------------------------------------------------------------
    USE phycst
    USE ocfzpt
-   USE par_ice         ! ice parameters
+   USE par_ice_2       ! ice parameters
    USE ice_oce         ! ice variables
-   USE dom_ice
+   USE dom_ice_2
    USE lbclnk
    USE oce
-   USE ice
+   USE ice_2
    USE iom
    USE in_out_manager
@@ -32 +32 @@
    PRIVATE
 
-   PUBLIC   lim_istate   ! routine called by lim_init.F90
-
-   REAL(wp) ::           & !!! ** init namelist (namiceini) **
+   PUBLIC lim_istate_2      ! routine called by lim_init_2.F90
+
+   REAL(wp) ::           &  !!! ** init namelist (namiceini) **
       ttest  = 2.0  ,    &  ! threshold water temperature for initial sea ice
       hninn  = 0.5  ,    &  ! initial snow thickness in the north
@@ -54 +54 @@
 CONTAINS
 
-   SUBROUTINE lim_istate
-      !!-------------------------------------------------------------------
-      !!                    ***  ROUTINE lim_istate  ***
+   SUBROUTINE lim_istate_2
+      !!-------------------------------------------------------------------
+      !!                    ***  ROUTINE lim_istate_2  ***
       !!
       !! ** Purpose :   defined the sea-ice initial state
@@ -68 +68 @@
       !--------------------------------------------------------------------
  
-      CALL lim_istate_init     !  reading the initials parameters of the ice
+      CALL lim_istate_init_2     !  reading the initials parameters of the ice
 
       IF( .NOT. ln_limini ) THEN  
@@ -153 +153 @@
       CALL lbc_lnk( qstoif , 'T', 1. )
 
-   END SUBROUTINE lim_istate
+   END SUBROUTINE lim_istate_2
 
    
-   SUBROUTINE lim_istate_init
-      !!-------------------------------------------------------------------
-      !!                   ***  ROUTINE lim_istate_init  ***
+   SUBROUTINE lim_istate_init_2
+      !!-------------------------------------------------------------------
+      !!                   ***  ROUTINE lim_istate_init_2  ***
       !!        
       !! ** Purpose :   Definition of initial state of the ice 
@@ -179 +179 @@
       IF(lwp) THEN
          WRITE(numout,*)
-         WRITE(numout,*) 'lim_istate_init : ice parameters inititialisation '
-         WRITE(numout,*) '~~~~~~~~~~~~~~~'
+         WRITE(numout,*) 'lim_istate_init_2 : ice parameters inititialisation '
+         WRITE(numout,*) '~~~~~~~~~~~~~~~~~'
          WRITE(numout,*) '         threshold water temp. for initial sea-ice    ttest      = ', ttest
          WRITE(numout,*) '         initial snow thickness in the north          hninn      = ', hninn
@@ -214 +214 @@
       ENDIF
       !     
-   END SUBROUTINE lim_istate_init
+   END SUBROUTINE lim_istate_init_2
 
 #else
    !!----------------------------------------------------------------------
-   !!   Default option :         Empty module          NO LIM sea-ice model
+   !!   Default option :         Empty module      NO LIM 2.0 sea-ice model
    !!----------------------------------------------------------------------
 CONTAINS
-   SUBROUTINE lim_istate          ! Empty routine
-   END SUBROUTINE lim_istate
+   SUBROUTINE lim_istate_2        ! Empty routine
+   END SUBROUTINE lim_istate_2
 #endif
 
    !!======================================================================
-END MODULE limistate
+END MODULE limistate_2