Ignore:
Timestamp:
2017-09-15T20:07:33+02:00 (3 years ago)
Author:
clem
Message:

changes in style - part6 - more clarity (still not finished)

File:
1 edited

Legend:

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

    r8518 r8531  
    153153   !! * Share Module variables 
    154154   !!-------------------------------------------------------------------------- 
    155    !                                     !!** ice-generic parameters namelist (namice_run) ** 
     155   !                                     !!** ice-generic parameters namelist (nampar) ** 
    156156   INTEGER           , PUBLIC ::   jpl             !: number of ice  categories  
    157157   INTEGER           , PUBLIC ::   nlay_i          !: number of ice  layers  
    158158   INTEGER           , PUBLIC ::   nlay_s          !: number of snow layers  
     159   INTEGER           , PUBLIC ::   nn_monocat      !: virtual ITD mono-category parameterizations (1-4) or not (0) 
    159160   LOGICAL           , PUBLIC ::   ln_icedyn       !: flag for ice dynamics (T) or not (F) 
    160161   LOGICAL           , PUBLIC ::   ln_icethd       !: flag for ice thermo   (T) or not (F) 
     
    166167   CHARACTER(len=256), PUBLIC ::   cn_icerst_outdir!: ice restart output directory 
    167168 
    168    !                                     !!** ice-itd namelist (namice_itd) ** 
     169   !                                     !!** ice-itd namelist (namitd) ** 
    169170   REAL(wp), PUBLIC ::   rn_himin         !: minimum ice thickness 
    170171    
    171    !                                     !!** ice-dynamics namelist (namice_dyn) ** 
     172   !                                     !!** ice-dynamics namelist (namdyn) ** 
    172173   REAL(wp), PUBLIC ::   rn_ishlat        !: lateral boundary condition for sea-ice 
    173174   REAL(wp), PUBLIC ::   rn_cio           !: drag coefficient for oceanic stress 
     
    177178   REAL(wp), PUBLIC ::   rn_lfrelax       !:    relaxation time scale (s-1) to reach static friction (landfast ice)  
    178179   ! 
    179    !                                     !!** ice-rheology namelist (namice_rhg) ** 
     180   !                                     !!** ice-rheology namelist (namrhg) ** 
    180181   REAL(wp), PUBLIC ::   rn_creepl        !: creep limit : has to be under 1.0e-9 
    181182   REAL(wp), PUBLIC ::   rn_ecc           !: eccentricity of the elliptical yield curve 
     
    183184   REAL(wp), PUBLIC ::   rn_relast        !: ratio => telast/rdt_ice (1/3 or 1/9 depending on nb of subcycling nevp)  
    184185   ! 
    185    !                                     !!** ice-thermodynamics namelist (namice_thd) ** 
    186                                           ! -- icethd_dif -- ! 
    187    REAL(wp), PUBLIC ::   rn_kappa_i       !: coef. for the extinction of radiation Grenfell et al. (2006) [1/m] 
    188    LOGICAL , PUBLIC ::   ln_cndi_U64      !: thermal conductivity: Untersteiner (1964) 
    189    LOGICAL , PUBLIC ::   ln_cndi_P07      !: thermal conductivity: Pringle et al (2007) 
    190    LOGICAL , PUBLIC ::   ln_dqns_i        !: change non-solar surface flux with changing surface temperature (T) or not (F) 
    191    INTEGER , PUBLIC ::   nn_monocat       !: virtual ITD mono-category parameterizations (1-4) or not (0) 
    192    REAL(wp), PUBLIC ::   rn_cnd_s         !: thermal conductivity of the snow [W/m/K] 
     186   !                                     !!** ice-thermodynamics namelist (namthd) ** 
    193187                                          ! -- icethd_dh -- ! 
    194    LOGICAL , PUBLIC ::   ln_icedH         !: activate ice thickness change from growing/melting (T) or not (F) 
    195188   REAL(wp), PUBLIC ::   rn_blow_s        !: coef. for partitioning of snowfall between leads and sea ice 
    196                                           ! -- icethd_da -- ! 
    197    LOGICAL , PUBLIC ::   ln_icedA         !: activate lateral melting param. (T) or not (F) 
    198    REAL(wp), PUBLIC ::   rn_beta          !: coef. beta for lateral melting param. 
    199    REAL(wp), PUBLIC ::   rn_dmin          !: minimum floe diameter for lateral melting param. 
    200                                           ! -- icethd_lac -- ! 
    201    LOGICAL , PUBLIC ::   ln_icedO         !: activate ice growth in open-water (T) or not (F) 
    202    REAL(wp), PUBLIC ::   rn_hinew         !: thickness for new ice formation (m) 
    203    LOGICAL , PUBLIC ::   ln_frazil        !: use of frazil ice collection as function of wind (T) or not (F) 
    204    REAL(wp), PUBLIC ::   rn_maxfraz       !: maximum portion of frazil ice collecting at the ice bottom 
    205    REAL(wp), PUBLIC ::   rn_vfraz         !: threshold drift speed for collection of bottom frazil ice 
    206    REAL(wp), PUBLIC ::   rn_Cfraz         !: squeezing coefficient for collection of bottom frazil ice 
    207189                                          ! -- icethd -- ! 
    208190   INTEGER , PUBLIC ::   nn_iceflx        !: Redistribute heat flux over ice categories 
     
    213195   !                                      !   = 2  Redistribute a single flux over categories 
    214196 
    215    !                                     !!** ice-salinity namelist (namice_sal) ** 
     197   !                                     !!** ice-salinity namelist (namthd_sal) ** 
    216198   INTEGER , PUBLIC ::   nn_icesal        !: salinity configuration used in the model 
    217199   !                                      ! 1 - constant salinity in both space and time 
     
    223205 
    224206   ! MV MP 2016 
    225    !                                     !!** melt pond namelist (namicemp) 
     207   !                                     !!** melt pond namelist (nammp) 
    226208   LOGICAL , PUBLIC ::   ln_pnd           !: activate ponds or not 
    227209   LOGICAL , PUBLIC ::   ln_pnd_rad       !: ponds radiatively active or not 
     
    231213   REAL(wp), PUBLIC ::   rn_hpnd          !: prescribed pond depth    (0<rn_hpnd<1), only if nn_pnd_scheme = 0 
    232214   ! END MV MP 2016 
    233    !                                     !!** ice-diagnostics namelist (namice_dia) ** 
     215   !                                     !!** ice-diagnostics namelist (namdia) ** 
    234216   LOGICAL , PUBLIC ::   ln_icediachk     !: flag for ice diag (T) or not (F) 
    235217   LOGICAL , PUBLIC ::   ln_icediahsb     !: flag for ice diag (T) or not (F) 
Note: See TracChangeset for help on using the changeset viewer.