Index: branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icerst.F90
===================================================================
--- branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icerst.F90	(revision 8518)
+++ branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icerst.F90	(revision 8534)
@@ -2,5 +2,5 @@
    !!======================================================================
    !!                     ***  MODULE  icerst  ***
-   !! Ice restart :  write the ice restart file
+   !!   sea-ice :  write/read the ice restart file
    !!======================================================================
    !! History:   3.0  ! 2005-04 (M. Vancoppenolle) Original code
@@ -10,9 +10,9 @@
 #if defined key_lim3
    !!----------------------------------------------------------------------
-   !!   'key_lim3'                                        LIM sea-ice model
-   !!----------------------------------------------------------------------
-   !!   ice_rst_opn   : open ice restart file
-   !!   ice_rst_write : write of the restart file 
-   !!   ice_rst_read  : read  the restart file 
+   !!   'key_lim3'                                       ESIM sea-ice model
+   !!----------------------------------------------------------------------
+   !!   ice_rst_opn   : open  restart file
+   !!   ice_rst_write : write restart file 
+   !!   ice_rst_read  : read  restart file 
    !!----------------------------------------------------------------------
    USE ice            ! sea-ice variables
@@ -22,7 +22,8 @@
    !
    USE in_out_manager ! I/O manager
-   USE iom            ! I/O library
+   USE iom            ! I/O manager library
    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)
+   USE timing         ! Timing
 
    IMPLICIT NONE
@@ -44,5 +45,5 @@
       !!                    ***  ice_rst_opn  ***
       !!
-      !! ** purpose  :   output of sea-ice variable in a netcdf file
+      !! ** purpose  :   open restart file
       !!----------------------------------------------------------------------
       INTEGER, INTENT(in) ::   kt       ! number of iteration
@@ -95,5 +96,5 @@
       !!                    ***  ice_rst_write  ***
       !!
-      !! ** purpose  :   output of sea-ice variable in a netcdf file
+      !! ** purpose  :   write restart file
       !!----------------------------------------------------------------------
       INTEGER, INTENT(in) ::   kt     ! number of iteration
@@ -105,4 +106,6 @@
       REAL(wp), DIMENSION(jpi,jpj) :: z2d
       !!----------------------------------------------------------------------
+
+      IF( nn_timing == 1 )   CALL timing_start('ice_rst')
 
       iter = kt + nn_fsbc - 1   ! ice restarts are written at kt == nitrst - nn_fsbc + 1
@@ -184,4 +187,5 @@
       ENDIF
       !
+      IF( nn_timing == 1 ) CALL timing_stop('ice_rst')
       !
    END SUBROUTINE ice_rst_write
@@ -192,5 +196,5 @@
       !!                    ***  ice_rst_read  ***
       !!
-      !! ** purpose  :   read of sea-ice variable restart in a netcdf file
+      !! ** purpose  :   read restart file
       !!----------------------------------------------------------------------
       INTEGER  :: jk, jl
@@ -202,4 +206,6 @@
       LOGICAL           ::   llok
       !!----------------------------------------------------------------------
+
+      IF( nn_timing == 1 )   CALL timing_start('ice_rst')
 
       IF(lwp) THEN
@@ -279,9 +285,11 @@
       CALL iom_get( numrir, jpdom_autoglo, 'v_ice', v_ice )
 
+      IF( nn_timing == 1 ) CALL timing_stop('ice_rst')
+
    END SUBROUTINE ice_rst_read
 
 #else
    !!----------------------------------------------------------------------
-   !!   Default option :       Empty module            NO LIM sea-ice model
+   !!   Default option :       Empty module           NO ESIM sea-ice model
    !!----------------------------------------------------------------------
 #endif
