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

    r8531 r8534  
    22   !!====================================================================== 
    33   !!                       ***  MODULE iceitd *** 
    4    !!   LIM3 ice model : ice thickness distribution: Thermodynamics 
     4   !!   sea-ice : ice thickness distribution 
    55   !!====================================================================== 
    66   !! History :   -   !          (W. H. Lipscomb and E.C. Hunke) CICE (c) original code 
     
    1111#if defined key_lim3 
    1212   !!---------------------------------------------------------------------- 
    13    !!   'key_lim3'                                       LIM3 sea-ice model 
     13   !!   'key_lim3'                                       ESIM sea-ice model 
    1414   !!---------------------------------------------------------------------- 
    15    !!   ice_itd_rem   : 
    16    !!   ice_itd_reb   : 
    17    !!   ice_itd_glinear  : 
    18    !!   ice_itd_shiftice : 
     15   !!   ice_itd_init   : read ice thicknesses mean and min from namelist 
     16   !!   ice_itd_rem    : redistribute ice thicknesses after thermo growth and melt 
     17   !!   ice_itd_reb    : rebin ice thicknesses into bounded categories 
    1918   !!---------------------------------------------------------------------- 
    20    USE par_oce        ! ocean parameters 
    2119   USE dom_oce        ! ocean domain 
    2220   USE phycst         ! physical constants  
     
    2624   USE icetab         ! sea-ice: convert 1D<=>2D 
    2725   ! 
    28    USE prtctl         ! Print control 
    2926   USE in_out_manager ! I/O manager 
    3027   USE lib_mpp        ! MPP library 
    31    USE lib_fortran    ! to use key_nosignedzero 
     28   USE lib_fortran    ! fortran utilities (glob_sum + no signed zero) 
     29   USE prtctl         ! Print control 
    3230 
    3331   IMPLICIT NONE 
     
    3634   PUBLIC   ice_itd_init  ! called in icestp 
    3735   PUBLIC   ice_itd_rem   ! called in icethd 
    38    PUBLIC   ice_itd_reb   ! called in iceerr 
    39  
    40    ! ** ice-thickness distribution namelist (namitd) ** 
    41    REAL(wp) ::   rn_himean        ! mean thickness of the domain (used to compute the distribution) 
     36   PUBLIC   ice_itd_reb   ! called in icecor 
     37 
     38   ! ** namelist (namitd) ** 
     39   REAL(wp) ::   rn_himean   ! mean thickness of the domain 
    4240 
    4341   !!---------------------------------------------------------------------- 
     
    5351      !! 
    5452      !! ** Purpose :   computes the redistribution of ice thickness 
    55       !!              after thermodynamic growth of ice thickness 
    56       !! 
    57       !! ** Method  : Linear remapping  
    58       !! 
    59       !! References : W.H. Lipscomb, JGR 2001 
     53      !!                after thermodynamic growth of ice thickness 
     54      !! 
     55      !! ** Method  :   Linear remapping  
     56      !! 
     57      !! References :   W.H. Lipscomb, JGR 2001 
    6058      !!------------------------------------------------------------------ 
    6159      INTEGER , INTENT (in) ::   kt      ! Ocean time step  
     
    696694#else 
    697695   !!---------------------------------------------------------------------- 
    698    !!   Default option :         Empty module          NO LIM sea-ice model 
     696   !!   Default option :         Empty module         NO ESIM sea-ice model 
    699697   !!---------------------------------------------------------------------- 
    700698#endif 
Note: See TracChangeset for help on using the changeset viewer.