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/icewri.F90

    r8522 r8534  
    22   !!====================================================================== 
    33   !!                     ***  MODULE  icewri  *** 
    4    !!         Ice diagnostics :  write ice output files 
     4   !!   sea-ice : output ice variables 
    55   !!====================================================================== 
    66#if defined key_lim3 
    77   !!---------------------------------------------------------------------- 
    8    !!   'key_lim3'                                      LIM3 sea-ice model 
     8   !!   'key_lim3'                                       ESIM sea-ice model 
    99   !!---------------------------------------------------------------------- 
    1010   !!   ice_wri       : write of the diagnostics variables in ouput file  
     
    2020   ! 
    2121   USE ioipsl         ! 
    22    USE in_out_manager ! 
    23    USE lbclnk         ! 
     22   USE in_out_manager ! I/O manager 
     23   USE iom            ! I/O manager library 
    2424   USE lib_mpp        ! MPP library 
    25    USE iom            ! 
     25   USE lib_fortran    ! fortran utilities (glob_sum + no signed zero) 
     26   USE lbclnk         ! lateral boundary conditions (or mpp links) 
    2627   USE timing         ! Timing 
    27    USE lib_fortran    ! Fortran utilities 
    2828 
    2929   IMPLICIT NONE 
     
    485485#else 
    486486   !!---------------------------------------------------------------------- 
    487    !!   Default option :         Empty module          NO LIM sea-ice model 
     487   !!   Default option :         Empty module         NO ESIM sea-ice model 
    488488   !!---------------------------------------------------------------------- 
    489489#endif 
Note: See TracChangeset for help on using the changeset viewer.