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

    r8517 r8534  
    22   !!====================================================================== 
    33   !!                     ***  MODULE  icecor  *** 
    4    !!   LIM-3 : Update of sea-ice global variables at the end of the time step 
     4   !!   ESIM : Corrections on sea-ice variables at the end of the time step 
    55   !!====================================================================== 
    66   !! History :  3.0  !  2006-04  (M. Vancoppenolle) Original code 
     
    99#if defined key_lim3 
    1010   !!---------------------------------------------------------------------- 
    11    !!   'key_lim3'                                       LIM3 sea-ice model 
     11   !!   'key_lim3'                                       ESIM sea-ice model 
    1212   !!---------------------------------------------------------------------- 
    13    !!    ice_cor      : computes update of sea-ice global variables from trend terms 
     13   !!    ice_cor      : corrections on sea-ice variables 
    1414   !!---------------------------------------------------------------------- 
    1515   USE dom_oce        ! ocean domain 
     
    2222   ! 
    2323   USE in_out_manager ! I/O manager 
    24    USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)   
    25    USE lbclnk         ! lateral boundary condition - MPP link 
     24   USE iom            ! I/O manager library 
    2625   USE lib_mpp        ! MPP library 
     26   USE lib_fortran    ! fortran utilities (glob_sum + no signed zero) 
     27   USE lbclnk         ! lateral boundary conditions (or mpp links) 
    2728   USE timing         ! Timing 
    28    USE iom            ! 
    2929 
    3030   IMPLICIT NONE 
     
    4747      !!                
    4848      !! ** Purpose :   Computes corrections on sea-ice global variables at  
    49       !!              the end of the dynamics. 
     49      !!              the end of the dynamics (kn=1) and thermodynamics (kn=2) 
    5050      !!---------------------------------------------------------------------- 
    5151      INTEGER, INTENT(in) ::   kt    ! number of iteration 
     
    184184#else 
    185185   !!---------------------------------------------------------------------- 
    186    !!   Default option           Dummy module      NO LIM 3.0 sea-ice model 
     186   !!   Default option           Dummy module         NO ESIM sea-ice model 
    187187   !!---------------------------------------------------------------------- 
    188188#endif 
Note: See TracChangeset for help on using the changeset viewer.