Ignore:
Timestamp:
2017-09-18T16:54:04+02:00 (3 years ago)
Author:
clem
Message:

changes in style - part6 - pure cosmetics

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icerst.F90

    r8518 r8534  
    22   !!====================================================================== 
    33   !!                     ***  MODULE  icerst  *** 
    4    !! Ice restart :  write the ice restart file 
     4   !!   sea-ice :  write/read the ice restart file 
    55   !!====================================================================== 
    66   !! History:   3.0  ! 2005-04 (M. Vancoppenolle) Original code 
     
    1010#if defined key_lim3 
    1111   !!---------------------------------------------------------------------- 
    12    !!   'key_lim3'                                        LIM sea-ice model 
    13    !!---------------------------------------------------------------------- 
    14    !!   ice_rst_opn   : open ice restart file 
    15    !!   ice_rst_write : write of the restart file  
    16    !!   ice_rst_read  : read  the restart file  
     12   !!   'key_lim3'                                       ESIM sea-ice model 
     13   !!---------------------------------------------------------------------- 
     14   !!   ice_rst_opn   : open restart file 
     15   !!   ice_rst_write : write restart file  
     16   !!   ice_rst_read  : read  restart file  
    1717   !!---------------------------------------------------------------------- 
    1818   USE ice            ! sea-ice variables 
     
    2222   ! 
    2323   USE in_out_manager ! I/O manager 
    24    USE iom            ! I/O library 
     24   USE iom            ! I/O manager library 
    2525   USE lib_mpp        ! MPP library 
    26    USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
     26   USE lib_fortran    ! fortran utilities (glob_sum + no signed zero) 
     27   USE timing         ! Timing 
    2728 
    2829   IMPLICIT NONE 
     
    4445      !!                    ***  ice_rst_opn  *** 
    4546      !! 
    46       !! ** purpose  :   output of sea-ice variable in a netcdf file 
     47      !! ** purpose  :   open restart file 
    4748      !!---------------------------------------------------------------------- 
    4849      INTEGER, INTENT(in) ::   kt       ! number of iteration 
     
    9596      !!                    ***  ice_rst_write  *** 
    9697      !! 
    97       !! ** purpose  :   output of sea-ice variable in a netcdf file 
     98      !! ** purpose  :   write restart file 
    9899      !!---------------------------------------------------------------------- 
    99100      INTEGER, INTENT(in) ::   kt     ! number of iteration 
     
    105106      REAL(wp), DIMENSION(jpi,jpj) :: z2d 
    106107      !!---------------------------------------------------------------------- 
     108 
     109      IF( nn_timing == 1 )   CALL timing_start('ice_rst') 
    107110 
    108111      iter = kt + nn_fsbc - 1   ! ice restarts are written at kt == nitrst - nn_fsbc + 1 
     
    184187      ENDIF 
    185188      ! 
     189      IF( nn_timing == 1 ) CALL timing_stop('ice_rst') 
    186190      ! 
    187191   END SUBROUTINE ice_rst_write 
     
    192196      !!                    ***  ice_rst_read  *** 
    193197      !! 
    194       !! ** purpose  :   read of sea-ice variable restart in a netcdf file 
     198      !! ** purpose  :   read restart file 
    195199      !!---------------------------------------------------------------------- 
    196200      INTEGER  :: jk, jl 
     
    202206      LOGICAL           ::   llok 
    203207      !!---------------------------------------------------------------------- 
     208 
     209      IF( nn_timing == 1 )   CALL timing_start('ice_rst') 
    204210 
    205211      IF(lwp) THEN 
     
    279285      CALL iom_get( numrir, jpdom_autoglo, 'v_ice', v_ice ) 
    280286 
     287      IF( nn_timing == 1 ) CALL timing_stop('ice_rst') 
     288 
    281289   END SUBROUTINE ice_rst_read 
    282290 
    283291#else 
    284292   !!---------------------------------------------------------------------- 
    285    !!   Default option :       Empty module            NO LIM sea-ice model 
     293   !!   Default option :       Empty module           NO ESIM sea-ice model 
    286294   !!---------------------------------------------------------------------- 
    287295#endif 
Note: See TracChangeset for help on using the changeset viewer.