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

branches/dev_001_SBC/NEMO/LIM_SRC/limhdf.F90

@@ -1 @@
-MODULE limhdf
+MODULE limhdf_2
    !!======================================================================
-   !!                    ***  MODULE limhdf   ***
-   !! LIM ice model : horizontal diffusion of sea-ice quantities
+   !!                    ***  MODULE limhdf_2   ***
+   !! LIM 2.0 ice model : horizontal diffusion of sea-ice quantities
    !!======================================================================
-#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_hdf  : diffusion trend on sea-ice variable
+   !!   lim_hdf_2  : diffusion trend on sea-ice variable
    !!----------------------------------------------------------------------
    !! * Modules used
@@ -14 +14 @@
    USE ice_oce         ! ice variables
    USE in_out_manager
-   USE ice
+   USE ice_2
    USE lbclnk
    USE lib_mpp
@@ -23 +23 @@
 
    !! * Routine accessibility
-   PUBLIC lim_hdf    ! called by lim_tra
+   PUBLIC lim_hdf_2    ! called by lim_tra_2
 
    !! * Module variables
@@ -40 +40 @@
 CONTAINS
 
-   SUBROUTINE lim_hdf( ptab )
+   SUBROUTINE lim_hdf_2( ptab )
       !!-------------------------------------------------------------------
-      !!                  ***  ROUTINE lim_hdf  ***
+      !!                  ***  ROUTINE lim_hdf_2  ***
       !!
       !! ** purpose :   Compute and add the diffusive trend on sea-ice
@@ -171 +171 @@
       ENDIF
 
-   END SUBROUTINE lim_hdf
+   END SUBROUTINE lim_hdf_2
 
 #else
    !!----------------------------------------------------------------------
-   !!   Default option          Dummy module           NO LIM sea-ice model
+   !!   Default option          Dummy module       NO LIM 2.0 sea-ice model
    !!----------------------------------------------------------------------
 CONTAINS
-   SUBROUTINE lim_hdf         ! Empty routine
-   END SUBROUTINE lim_hdf
+   SUBROUTINE lim_hdf_2       ! Empty routine
+   END SUBROUTINE lim_hdf_2
 #endif
 
    !!======================================================================
-END MODULE limhdf
+END MODULE limhdf_2