Changeset 2528 for trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd_dif.F90

Timestamp:

2010-12-27T18:33:53+01:00 (14 years ago)

Author:

rblod

Message:

Update NEMOGCM from branch nemo_v3_3_beta

File:

• trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd_dif.F90 (modified) (5 diffs)

trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd_dif.F90

@@ -1 +1 @@
 MODULE limthd_dif
-#if defined key_lim3
-   !!----------------------------------------------------------------------
-   !!   'key_lim3'                                      LIM3 sea-ice model
-   !!----------------------------------------------------------------------
    !!======================================================================
    !!                       ***  MODULE limthd_dif ***
@@ -9 +5 @@
    !!                   computation of surface and inner T  
    !!======================================================================
-
    !!----------------------------------------------------------------------
-   !! * Modules used
+#if defined key_lim3
+   !!----------------------------------------------------------------------
+   !!   'key_lim3'                                      LIM3 sea-ice model
+   !!----------------------------------------------------------------------
    USE par_oce          ! ocean parameters
    USE phycst           ! physical constants (ocean directory) 
@@ -23 +21 @@
    PRIVATE
 
-   !! * Routine accessibility
-   PUBLIC lim_thd_dif        ! called by lim_thd
-
-   !! * Module variables
+   PUBLIC   lim_thd_dif   ! called by lim_thd
+
    REAL(wp)  ::           &  ! constant values
       epsi20 = 1e-20   ,  &
@@ -34 +30 @@
 
    !!----------------------------------------------------------------------
-   !!   LIM 3.0,  UCL-LOCEAN-IPSL (2005)
+   !! NEMO/LIM3 3.3 , UCL - NEMO Consortium (2010)
    !! $Id$
-   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
+   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
-
 CONTAINS
 
@@ -870 +865 @@
    END SUBROUTINE lim_thd_dif
 #endif
+   !!======================================================================
 END MODULE limthd_dif