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

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

@@ -2 +2 @@
    !!======================================================================
    !!                       ***  MODULE icethd_dh ***
-   !!  LIM-3 :   thermodynamic growth and decay of the ice 
+   !!   seaice : thermodynamic growth and melt 
    !!======================================================================
    !! History :  LIM  ! 2003-05 (M. Vancoppenolle) Original code in 1D
@@ -12 +12 @@
 #if defined key_lim3
    !!----------------------------------------------------------------------
-   !!   'key_lim3'                                       LIM3 sea-ice model
+   !!   'key_lim3'                                       ESIM sea-ice model
    !!----------------------------------------------------------------------
-   !!   ice_thd_dh    : vertical accr./abl. and lateral ablation of sea ice
-   !!----------------------------------------------------------------------
-   USE par_oce        ! ocean parameters
-   USE phycst         ! physical constants (OCE directory) 
-   USE ice            ! LIM variables
-   USE ice1D          ! LIM thermodynamics
+   !!   ice_thd_dh        : vertical sea-ice growth and melt
+   !!   ice_thd_snwblow   : distribute snow fall between ice and ocean
+  !!----------------------------------------------------------------------
+   USE dom_oce        ! ocean space and time domain
+   USE phycst         ! physical constants
+   USE ice            ! sea-ice: variables
+   USE ice1D          ! sea-ice: thermodynamics variables
    USE icethd_sal     ! sea-ice: salinity profiles
    !
    USE in_out_manager ! I/O manager
    USE lib_mpp        ! MPP library
-   USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)  
+   USE lib_fortran    ! fortran utilities (glob_sum + no signed zero)
    
    IMPLICIT NONE
    PRIVATE
 
-   PUBLIC   ice_thd_dh      ! called by ice_thd
-   PUBLIC   ice_thd_snwblow ! called in sbcblk/sbcclio/sbccpl and here
+   PUBLIC   ice_thd_dh        ! called by ice_thd
+   PUBLIC   ice_thd_snwblow   ! called in sbcblk/sbcclio/sbccpl and here
 
    INTERFACE ice_thd_snwblow
@@ -47 +48 @@
       !!                ***  ROUTINE ice_thd_dh  ***
       !!
-      !! ** Purpose :   determines variations of ice and snow thicknesses.
+      !! ** Purpose :   compute ice and snow thickness changes due to growing/melting
       !!
       !! ** Method  :   Ice/Snow surface melting arises from imbalance in surface fluxes
@@ -679 +680 @@
 #else
    !!----------------------------------------------------------------------
-   !!   Default option                               NO  LIM3 sea-ice model
+   !!   Default option                                NO ESIM sea-ice model
    !!----------------------------------------------------------------------
 #endif