Changeset 8486 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icethd_dif.F90

Timestamp:

2017-09-01T15:49:35+02:00 (7 years ago)

Author:

clem

Message:

changes in style - part1 - (now the code looks better txs to Gurvan's comments)

File:

• branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icethd_dif.F90 (modified) (6 diffs)

branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icethd_dif.F90

@@ -18 +18 @@
    USE par_oce        ! ocean parameters
    USE phycst         ! physical constants (ocean directory) 
-   USE ice            ! LIM-3 variables
-   USE ice1D          ! LIM-3: thermodynamics
+   USE ice            ! sea-ice: variables
+   USE ice1D          ! sea-ice: thermodynamics
    !
    USE in_out_manager ! I/O manager
@@ -31 +31 @@
 
    !!----------------------------------------------------------------------
-   !! NEMO/LIM3 4.0 , UCL - NEMO Consortium (2011)
+   !! NEMO/ICE 4.0 , NEMO Consortium (2017)
    !! $Id: icethd_dif.F90 8420 2017-08-08 12:18:46Z clem $
    !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
@@ -67 +67 @@
       !!           of temperature
       !!
-      !!
       !! ** Inputs / Ouputs : (global commons)
       !!           surface temperature : t_su_1d
@@ -75 +74 @@
       !!           profile of the ice/snow layers : z_i, z_s
       !!           total ice/snow thickness : ht_i_1d, ht_s_1d
-      !!
-      !! ** External : 
-      !!
-      !! ** References :
-      !!
-      !! ** History :
-      !!           (02-2003) Martin Vancoppenolle, Louvain-la-Neuve, Belgium
-      !!           (06-2005) Martin Vancoppenolle, 3d version
-      !!           (11-2006) Vectorized by Xavier Fettweis (UCL-ASTR)
-      !!           (04-2007) Energy conservation tested by M. Vancoppenolle
       !!------------------------------------------------------------------
-      !! * Local variables
       INTEGER ::   ji             ! spatial loop index
       INTEGER ::   ii, ij         ! temporary dummy loop index
@@ -796 +784 @@
    END SUBROUTINE ice_thd_dif
 
+
    SUBROUTINE ice_thd_enmelt
       !!-----------------------------------------------------------------------
@@ -830 +819 @@
    !!                   Dummy Module                 No LIM-3 sea-ice model
    !!----------------------------------------------------------------------
-CONTAINS
-   SUBROUTINE ice_thd_dif          ! Empty routine
-   END SUBROUTINE ice_thd_dif
 #endif
+
    !!======================================================================
 END MODULE icethd_dif