Changeset 8534 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/iceitd.F90

Timestamp:

2017-09-18T16:54:04+02:00 (7 years ago)

Author:

clem

Message:

changes in style - part6 - pure cosmetics

File:

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

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

@@ -2 +2 @@
    !!======================================================================
    !!                       ***  MODULE iceitd ***
-   !!   LIM3 ice model : ice thickness distribution: Thermodynamics
+   !!   sea-ice : ice thickness distribution
    !!======================================================================
    !! History :   -   !          (W. H. Lipscomb and E.C. Hunke) CICE (c) original code
@@ -11 +11 @@
 #if defined key_lim3
    !!----------------------------------------------------------------------
-   !!   'key_lim3'                                       LIM3 sea-ice model
+   !!   'key_lim3'                                       ESIM sea-ice model
    !!----------------------------------------------------------------------
-   !!   ice_itd_rem   :
-   !!   ice_itd_reb   :
-   !!   ice_itd_glinear  :
-   !!   ice_itd_shiftice :
+   !!   ice_itd_init   : read ice thicknesses mean and min from namelist
+   !!   ice_itd_rem    : redistribute ice thicknesses after thermo growth and melt
+   !!   ice_itd_reb    : rebin ice thicknesses into bounded categories
    !!----------------------------------------------------------------------
-   USE par_oce        ! ocean parameters
    USE dom_oce        ! ocean domain
    USE phycst         ! physical constants 
@@ -26 +24 @@
    USE icetab         ! sea-ice: convert 1D<=>2D
    !
-   USE prtctl         ! Print control
    USE in_out_manager ! I/O manager
    USE lib_mpp        ! MPP library
-   USE lib_fortran    ! to use key_nosignedzero
+   USE lib_fortran    ! fortran utilities (glob_sum + no signed zero)
+   USE prtctl         ! Print control
 
    IMPLICIT NONE
@@ -36 +34 @@
    PUBLIC   ice_itd_init  ! called in icestp
    PUBLIC   ice_itd_rem   ! called in icethd
-   PUBLIC   ice_itd_reb   ! called in iceerr
-
-   ! ** ice-thickness distribution namelist (namitd) **
-   REAL(wp) ::   rn_himean        ! mean thickness of the domain (used to compute the distribution)
+   PUBLIC   ice_itd_reb   ! called in icecor
+
+   ! ** namelist (namitd) **
+   REAL(wp) ::   rn_himean   ! mean thickness of the domain
 
    !!----------------------------------------------------------------------
@@ -53 +51 @@
       !!
       !! ** Purpose :   computes the redistribution of ice thickness
-      !!              after thermodynamic growth of ice thickness
-      !!
-      !! ** Method  : Linear remapping 
-      !!
-      !! References : W.H. Lipscomb, JGR 2001
+      !!                after thermodynamic growth of ice thickness
+      !!
+      !! ** Method  :   Linear remapping 
+      !!
+      !! References :   W.H. Lipscomb, JGR 2001
       !!------------------------------------------------------------------
       INTEGER , INTENT (in) ::   kt      ! Ocean time step 
@@ -696 +694 @@
 #else
    !!----------------------------------------------------------------------
-   !!   Default option :         Empty module          NO LIM sea-ice model
+   !!   Default option :         Empty module         NO ESIM sea-ice model
    !!----------------------------------------------------------------------
 #endif