Changeset 821 for branches/dev_002_LIM/NEMO/LIM_SRC/limthd_lac.F90

Timestamp:

2008-03-06T12:22:15+01:00 (16 years ago)

Author:

rblod

Message:

Change name of modules and subroutines for LIM2 with suffix _2, add albedo_2 and flxblk_2, see ticket #71

File:

• branches/dev_002_LIM/NEMO/LIM_SRC/limthd_lac.F90 (modified) (4 diffs)

branches/dev_002_LIM/NEMO/LIM_SRC/limthd_lac.F90

@@ -1 @@
-MODULE limthd_lac
-#if defined key_ice_lim
-   !!======================================================================
-   !!                       ***  MODULE limthd_lac   ***
+MODULE limthd_lac_2
+#if defined key_lim2
+   !!======================================================================
+   !!                       ***  MODULE limthd_lac_2   ***
    !!                lateral thermodynamic growth of the ice 
    !!======================================================================
 
    !!----------------------------------------------------------------------
-   !!   lim_lat_acr    : lateral accretion of ice
+   !!   lim_lat_acr_2    : lateral accretion of ice
    !! * Modules used
    USE par_oce          ! ocean parameters
    USE phycst
-   USE ice_oce         ! ice variables
-   USE thd_ice
-   USE iceini
-   USE limistate 
+   USE ice_oce          ! ice variables
+   USE thd_ice_2
+   USE iceini_2
+   USE limistate_2 
      
    IMPLICIT NONE
@@ -20 +20 @@
 
    !! * Routine accessibility
-   PUBLIC lim_thd_lac     ! called by lim_thd
+   PUBLIC lim_thd_lac_2   ! called by lim_thd_2
 
    !! * Module variables
@@ -35 +35 @@
 CONTAINS
     
-   SUBROUTINE lim_thd_lac( kideb, kiut )
+   SUBROUTINE lim_thd_lac_2( kideb, kiut )
       !!-------------------------------------------------------------------
-      !!               ***   ROUTINE lim_thd_lac  ***
+      !!               ***   ROUTINE lim_thd_lac_2  ***
       !!  
       !! ** Purpose : Computation of the evolution of the ice thickness and 
@@ -220 +220 @@
       END DO
       
-   END SUBROUTINE lim_thd_lac
+   END SUBROUTINE lim_thd_lac_2
 #else
    !!======================================================================
-   !!                       ***  MODULE limthd_lac   ***
+   !!                       ***  MODULE limthd_lac_2   ***
    !!                           no sea ice model
    !!======================================================================
 CONTAINS
-   SUBROUTINE lim_thd_lac           ! Empty routine
-   END SUBROUTINE lim_thd_lac
+   SUBROUTINE lim_thd_lac_2           ! Empty routine
+   END SUBROUTINE lim_thd_lac_2
 #endif
-END MODULE limthd_lac
+END MODULE limthd_lac_2