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

changes in style - part5 - reaching the end

File:
1 edited

Legend:

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

    r8506 r8512  
    153153   !! * Share Module variables 
    154154   !!-------------------------------------------------------------------------- 
    155    !                                     !!** ice-generic parameters namelist (namicerun) ** 
     155   !                                     !!** ice-generic parameters namelist (namice_run) ** 
    156156   INTEGER           , PUBLIC ::   jpl             !: number of ice  categories  
    157157   INTEGER           , PUBLIC ::   nlay_i          !: number of ice  layers  
     
    163163   CHARACTER(len=256), PUBLIC ::   cn_icerst_indir !: ice restart input directory 
    164164   CHARACTER(len=256), PUBLIC ::   cn_icerst_outdir!: ice restart output directory 
    165    LOGICAL           , PUBLIC ::   ln_limthd       !: flag for ice thermo (T) or not (F) 
    166    LOGICAL           , PUBLIC ::   ln_limdyn       !: flag for ice dynamics (T) or not (F) 
    167    INTEGER           , PUBLIC ::   nn_limdyn       !: flag for ice dynamics 
    168    REAL(wp)          , PUBLIC ::   rn_uice         !: prescribed u-vel (case nn_limdyn=0) 
    169    REAL(wp)          , PUBLIC ::   rn_vice         !: prescribed v-vel (case nn_limdyn=0) 
    170165    
    171    !                                     !!** ice-diagnostics namelist (namicediag) ** 
     166   !                                     !!** ice-diagnostics namelist (namice_dia) ** 
    172167   LOGICAL , PUBLIC ::   ln_limdiachk     !: flag for ice diag (T) or not (F) 
    173168   LOGICAL , PUBLIC ::   ln_limdiahsb     !: flag for ice diag (T) or not (F) 
     
    177172 
    178173   !                                     !!** ice-dynamics namelist (namicedyn) ** 
     174   LOGICAL , PUBLIC ::   ln_icedyn        !: flag for ice dynamics (T) or not (F) 
     175   INTEGER , PUBLIC ::   nn_icedyn        !: flag for ice dynamics 
     176   REAL(wp), PUBLIC ::   rn_uice          !: prescribed u-vel (case nn_icedyn=0) 
     177   REAL(wp), PUBLIC ::   rn_vice          !: prescribed v-vel (case nn_icedyn=0) 
    179178                                          ! -- iceadv -- ! 
    180    INTEGER , PUBLIC ::   nn_limadv        !: choose the advection scheme (-1=Prather ; 0=Ultimate-Macho) 
    181    INTEGER , PUBLIC ::   nn_limadv_ord    !: choose the order of the advection scheme (if Ultimate-Macho)    
     179   LOGICAL , PUBLIC ::   ln_adv_Pra       !: Prather        advection scheme 
     180   LOGICAL , PUBLIC ::   ln_adv_UMx       !: Ultimate-Macho advection scheme 
     181   INTEGER , PUBLIC ::   nn_UMx           !: order of the UMx advection scheme    
    182182                                          ! -- icerdgrft -- ! 
    183    INTEGER , PUBLIC ::   nn_icestr        !: ice strength parameterization (0=Hibler79 1=Rothrock75) 
    184    REAL(wp), PUBLIC ::   rn_pe_rdg        !: ridging work divided by pot. energy change in ridging, nn_icestr = 1 
     183   LOGICAL , PUBLIC ::   ln_str_Hib       !: ice strength parameterization (Hibler79) 
    185184   REAL(wp), PUBLIC ::   rn_pstar         !: determines ice strength, Hibler JPO79 
    186185   REAL(wp), PUBLIC ::   rn_crhg          !: determines changes in ice strength 
    187    LOGICAL , PUBLIC ::   ln_icestr_bvf    !: use brine volume to diminish ice strength 
     186   LOGICAL , PUBLIC ::   ln_str_Rot       !: ice strength parameterization (Rothrock75) 
     187   REAL(wp), PUBLIC ::   rn_perdg         !: ridging work divided by pot. energy change in ridging 
    188188                                          ! -- icerhg -- ! 
    189189   REAL(wp), PUBLIC ::   rn_ishlat        !: lateral boundary condition for sea-ice 
     
    198198   REAL(wp), PUBLIC ::   rn_lfrelax       !: relaxation time scale (s-1) to reach static friction (landfast ice)  
    199199 
    200    !                                     !!** ice-thermodynamics namelist (namicethd) ** 
     200   !                                     !!** ice-thermodynamics namelist (namice_thd) ** 
     201   LOGICAL , PUBLIC ::   ln_limthd        !: flag for ice thermo (T) or not (F) 
    201202                                          ! -- icethd_dif -- ! 
    202203   REAL(wp), PUBLIC ::   rn_kappa_i       !: coef. for the extinction of radiation Grenfell et al. (2006) [1/m] 
     
    219220   REAL(wp), PUBLIC ::   rn_vfrazb        !: threshold drift speed for collection of bottom frazil ice 
    220221   REAL(wp), PUBLIC ::   rn_Cfrazb        !: squeezing coefficient for collection of bottom frazil ice 
    221                                           ! -- iceitd -- ! 
     222                                          ! -- iceitd_th -- ! 
    222223   REAL(wp), PUBLIC ::   rn_himin         !: minimum ice thickness 
    223  
    224    !                                     !!** ice-salinity namelist (namicesal) ** 
     224                                          ! --  -- ! 
     225   INTEGER , PUBLIC ::   nn_limflx        !: LIM3 Multi-category heat flux formulation 
     226   !                                      !   =-1  Use of per-category fluxes 
     227   !                                      !   = 0  Average per-category fluxes 
     228   !                                      !   = 1  Average then redistribute per-category fluxes 
     229   !                                      !   = 2  Redistribute a single flux over categories 
     230 
     231   !                                     !!** ice-salinity namelist (namice_sal) ** 
    225232   LOGICAL , PUBLIC ::   ln_limdS         !: activate gravity drainage and flushing (T) or not (F) 
    226233   INTEGER , PUBLIC ::   nn_icesal        !: salinity configuration used in the model 
Note: See TracChangeset for help on using the changeset viewer.