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

branches/dev_001_SBC/NEMO/LIM_SRC/limthd_zdf.F90

@@ -1 @@
-MODULE limthd_zdf
+MODULE limthd_zdf_2
    !!======================================================================
-   !!                       ***  MODULE limthd_zdf ***
+   !!                       ***  MODULE limthd_zdf_2 ***
    !!                thermodynamic growth and decay of the ice 
    !!======================================================================
@@ -7 +7 @@
    !!            2.0  !  02-08 (C. Ethe, G. Madec) F90
    !!----------------------------------------------------------------------
-#if defined key_ice_lim
-   !!----------------------------------------------------------------------
-   !!   'key_ice_lim'                                     LIM sea-ice model
-   !!----------------------------------------------------------------------
-   !!----------------------------------------------------------------------
-   !!   lim_thd_zdf  : vertical accr./abl. and lateral ablation of sea ice
+#if defined key_lim2
+   !!----------------------------------------------------------------------
+   !!   'key_lim2'                                    LIM 2.0 sea-ice model
+   !!----------------------------------------------------------------------
+   !!----------------------------------------------------------------------
+   !!   lim_thd_zdf_2 : vertical accr./abl. and lateral ablation of sea ice
    !!----------------------------------------------------------------------
    USE par_oce          ! ocean parameters
    USE phycst           ! ???
    USE ice_oce          ! ice variables
-   USE thd_ice
-   USE iceini
-   USE limistate
+   USE thd_ice_2
+   USE iceini_2
+   USE limistate_2
    USE in_out_manager
       
@@ -25 +25 @@
    PRIVATE
 
-   PUBLIC   lim_thd_zdf        ! called by lim_thd
+   PUBLIC   lim_thd_zdf_2        ! called by lim_thd_2
 
    REAL(wp) ::   epsi20 = 1.e-20  ,  &  ! constant values
@@ -39 +39 @@
 CONTAINS
 
-   SUBROUTINE lim_thd_zdf( kideb , kiut )
+   SUBROUTINE lim_thd_zdf_2( kideb , kiut )
       !!------------------------------------------------------------------
-      !!                ***  ROUTINE lim_thd_zdf  ***
+      !!                ***  ROUTINE lim_thd_zdf_2  ***
       !!              
       !! ** Purpose : This routine determines the time evolution of snow 
@@ -773 +773 @@
        END DO
        ! 
-    END SUBROUTINE lim_thd_zdf
+    END SUBROUTINE lim_thd_zdf_2
 
 #else
@@ -780 +780 @@
    !!----------------------------------------------------------------------
 CONTAINS
-   SUBROUTINE lim_thd_zdf          ! Empty routine
-   END SUBROUTINE lim_thd_zdf
+   SUBROUTINE lim_thd_zdf_2          ! Empty routine
+   END SUBROUTINE lim_thd_zdf_2
 #endif
 
    !!======================================================================
-END MODULE limthd_zdf
+END MODULE limthd_zdf_2