Changeset 8534 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icethd_do.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/icethd_do.F90 (modified) (6 diffs)

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

@@ -2 +2 @@
    !!======================================================================
    !!                       ***  MODULE icethd_do   ***
-   !!                lateral thermodynamic growth of the ice 
+   !!   sea-ice: sea ice growth in the leads (open water)  
    !!======================================================================
    !! History :  LIM  ! 2005-12 (M. Vancoppenolle)  Original code
@@ -11 +11 @@
 #if defined key_lim3
    !!----------------------------------------------------------------------
-   !!   'key_lim3'                                       LIM3 sea-ice model
-   !!----------------------------------------------------------------------
-   !!   ice_thd_do   : ice growth in open water (=lateral accretion of ice)
-   !!----------------------------------------------------------------------
-   USE par_oce        ! ocean parameters
-   USE dom_oce        ! domain variables
+   !!   'key_lim3'                                       ESIM sea-ice model
+   !!----------------------------------------------------------------------
+   !!   ice_thd_do        : ice growth in open water (=lateral accretion of ice)
+   !!   ice_thd_do_init   : initialization
+   !!----------------------------------------------------------------------
+   USE dom_oce        ! ocean space and time domain
    USE phycst         ! physical constants
    USE sbc_oce , ONLY : sss_m
    USE sbc_ice , ONLY : utau_ice, vtau_ice
-   USE ice1D          ! sea-ice: thermodynamics
+   USE ice1D          ! sea-ice: thermodynamics variables
    USE ice            ! sea-ice: variables
    USE icetab         ! sea-ice: 2D <==> 1D
@@ -30 +30 @@
    USE in_out_manager ! I/O manager
    USE lib_mpp        ! MPP library
-   USE lbclnk         ! ocean lateral boundary conditions (or mpp link)
-   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)  
+   USE lib_fortran    ! fortran utilities (glob_sum + no signed zero)
+   USE lbclnk         ! lateral boundary conditions (or mpp links)
 
    IMPLICIT NONE
@@ -59 +59 @@
       !! ** Purpose : Computation of the evolution of the ice thickness and 
       !!      concentration as a function of the heat balance in the leads.
-      !!      It is only used for lateral accretion
       !!       
       !! ** Method  : Ice is formed in the open water when ocean lose heat
@@ -495 +494 @@
       !!                 
       !! ** Purpose :   Physical constants and parameters associated with
-      !!                ice thermodynamics
+      !!                ice growth in the leads
       !!
       !! ** Method  :   Read the namthd_do namelist and check the parameters
@@ -534 +533 @@
 #else
    !!----------------------------------------------------------------------
-   !!   Default option                               NO  LIM3 sea-ice model
+   !!   Default option                                NO ESIM sea-ice model
    !!----------------------------------------------------------------------
 #endif