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

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

@@ -2 +2 @@
    !!======================================================================
    !!                     ***  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 +10 @@
 #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 +22 @@
    !
    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 +45 @@
       !!                    ***  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 +96 @@
       !!                    ***  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 +106 @@
       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 +187 @@
       ENDIF
       !
+      IF( nn_timing == 1 ) CALL timing_stop('ice_rst')
       !
    END SUBROUTINE ice_rst_write
@@ -192 +196 @@
       !!                    ***  ice_rst_read  ***
       !!
-      !! ** purpose  :   read of sea-ice variable restart in a netcdf file
+      !! ** purpose  :   read restart file
       !!----------------------------------------------------------------------
       INTEGER  :: jk, jl
@@ -202 +206 @@
       LOGICAL           ::   llok
       !!----------------------------------------------------------------------
+
+      IF( nn_timing == 1 )   CALL timing_start('ice_rst')
 
       IF(lwp) THEN
@@ -279 +285 @@
       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