New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 834 for trunk/NEMO/LIM_SRC_3/thd_ice.F90 – NEMO

Ignore:
Timestamp:
2008-03-07T18:11:35+01:00 (16 years ago)
Author:
ctlod
Message:

Clean comments and useless lines, see ticket:#72

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/LIM_SRC_3/thd_ice.F90

    r825 r834  
    1717   PRIVATE 
    1818 
     19   !!--------------------------- 
    1920   !! * Share Module variables 
     21   !!--------------------------- 
    2022   REAL(wp) , PUBLIC ::   & !!! ** ice-thermo namelist (namicethd) ** 
    21       hmelt   = -0.15  ,  &  !: maximum melting at the bottom 
    22       hicmin  = 0.2    ,  &  !: ice th. corr. to max. ener. in brine pocket 
     23      hmelt   = -0.15  ,  &  !: maximum melting at the bottom; active only for 
     24                             !: one category 
     25      hicmin  = 0.2    ,  &  !: (REMOVE) 
    2326      hiclim  = 0.05   ,  &  !: minimum ice thickness 
    2427      amax    = 0.999  ,  &  !: maximum lead fraction 
    25       sbeta   = 1.0    ,  &  !: numerical scheme for diffusion in ice  
    26       parlat  = 0.0    ,  &  !: percent. of energy used for lateral ablation 
    27       hakspl  = 0.5    ,  &  !: slope of distr. for Hakkinen-Mellro's lat. melt 
    28       hibspl  = 0.5    ,  &  !: slope of distribution for Hibler's lat. melt 
    29       exld    = 2.0    ,  &  !: exponent for leads-closure rate 
    30       hakdif  = 1.0    ,  &  !: coefficient for diffusions of ice and snow 
    31       thth    = 0.2    ,  &  !: thick. for comp. of eq. thermal conduct 
     28      sbeta   = 1.0    ,  &  !: numerical scheme for diffusion in ice  (REMOVE) 
     29      parlat  = 0.0    ,  &  !: (REMOVE) 
     30      hakspl  = 0.5    ,  &  !: (REMOVE) 
     31      hibspl  = 0.5    ,  &  !: (REMOVE) 
     32      exld    = 2.0    ,  &  !: (REMOVE) 
     33      hakdif  = 1.0    ,  &  !: (REMOVE) 
     34      thth    = 0.2    ,  &  !: (REMOVE) 
    3235      hnzst   = 0.1    ,  &  !: thick. of the surf. layer in temp. comp. 
    3336      parsub  = 1.0    ,  &  !: switch for snow sublimation or not 
     
    4144      hiccrit = (/0.3,0.3/)  !: ice th. for lateral accretion in the NH (SH) (m) 
    4245 
    43    REAL(wp) , PUBLIC ::   &  !: 
    44       uscomi                 !: inverse of minimum lead fraction 
     46   !!----------------------------- 
     47   !! * Share 1D Module variables 
     48   !!----------------------------- 
     49   !: In ice thermodynamics, to spare memory, the vectors are folded 
     50   !: from 1D to 2D vectors. The following variables, with ending _1d (or _b) 
     51   !: are the variables corresponding to 2d vectors 
    4552 
    4653   INTEGER , PUBLIC, DIMENSION(jpij) ::   &  !: 
    4754      npb     ,   &   !: number of points where computations has to be done 
    48       npac            !: correspondance between the points 
     55      npac            !: correspondance between the points (lateral accretion) 
    4956 
    5057   REAL(wp), PUBLIC, DIMENSION(jpij) ::   &  !:  
     
    123130      q_s_b                !:    Snow enthalpy per unit volume 
    124131 
    125   ! goes to trash, just for conservation checks 
    126    REAL(wp), PUBLIC, DIMENSION(jpij,jpl)    ::   &  !: ! goes to trash 
     132  ! Clean the following ... 
     133  ! These variables are coded for conservation checks 
     134   REAL(wp), PUBLIC, DIMENSION(jpij,jpl)    ::   &  ! 
    127135      qt_i_in   ,           &  !: ice energy summed over categories (initial) 
    128136      qt_i_fin  ,           &  !: ice energy summed over categories (final) 
Note: See TracChangeset for help on using the changeset viewer.