Changeset 821 for branches/dev_002_LIM/NEMO/LIM_SRC/limthd_zdf.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_zdf.F90 (modified) (5 diffs)

branches/dev_002_LIM/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 
    !!======================================================================
-#if defined key_ice_lim
+#if defined key_lim2
    !!----------------------------------------------------------------------
-   !!   'key_ice_lim'                                     LIM sea-ice model
+   !!   'key_lim2'                                    LIM 2.0 sea-ice model
    !!----------------------------------------------------------------------
-   !!   lim_thd_zdf  : vertical accr./abl. and lateral ablation of sea ice
+   !!   lim_thd_zdf_2 : vertical accr./abl. and lateral ablation of sea ice
    !!----------------------------------------------------------------------
    !! * Modules used
@@ -14 +14 @@
    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
       
@@ -23 +23 @@
 
    !! * Routine accessibility
-   PUBLIC lim_thd_zdf        ! called by lim_thd
+   PUBLIC lim_thd_zdf_2      ! called by lim_thd_2
 
    !! * Module variables
@@ -38 +38 @@
 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 
@@ -802 +802 @@
        END DO
        
-    END SUBROUTINE lim_thd_zdf
+    END SUBROUTINE lim_thd_zdf_2
 #else
    !!======================================================================
-   !!                       ***  MODULE limthd_zdf   ***
+   !!                       ***  MODULE limthd_zdf_2   ***
    !!                              no sea ice model  
    !!======================================================================
 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