Ignore:
Timestamp:
2017-09-08T19:53:20+02:00 (3 years ago)
Author:
clem
Message:

changes in style - part5 - I think I can see the end of the tunnel

File:
1 edited

Legend:

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

    r8514 r8516  
    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 
     166   !                                     !!** ice-itd namelist (namice_itd) ** 
     167   REAL(wp), PUBLIC ::   rn_himin         !: minimum ice thickness 
    165168    
    166    !                                     !!** ice-diagnostics namelist (namice_dia) ** 
    167    LOGICAL , PUBLIC ::   ln_icediachk     !: flag for ice diag (T) or not (F) 
    168    LOGICAL , PUBLIC ::   ln_icediahsb     !: flag for ice diag (T) or not (F) 
    169    LOGICAL , PUBLIC ::   ln_icectl        !: flag for sea-ice points output (T) or not (F) 
    170    INTEGER , PUBLIC ::   iiceprt          !: debug i-point 
    171    INTEGER , PUBLIC ::   jiceprt          !: debug j-point 
    172  
    173    !                                     !!** ice-dynamics namelist (namicedyn) ** 
     169   !                                     !!** ice-dynamics namelist (namice_dyn) ** 
    174170   LOGICAL , PUBLIC ::   ln_icedyn        !: flag for ice dynamics (T) or not (F) 
    175171   INTEGER , PUBLIC ::   nn_icedyn        !: flag for ice dynamics 
    176172   REAL(wp), PUBLIC ::   rn_uice          !: prescribed u-vel (case nn_icedyn=0) 
    177173   REAL(wp), PUBLIC ::   rn_vice          !: prescribed v-vel (case nn_icedyn=0) 
    178                                           ! -- iceadv -- ! 
    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    
    182                                           ! -- icerdgrft -- ! 
     174   REAL(wp), PUBLIC ::   rn_ishlat        !: lateral boundary condition for sea-ice 
     175   REAL(wp), PUBLIC ::   rn_cio           !: drag coefficient for oceanic stress 
     176   LOGICAL , PUBLIC ::   ln_landfast      !: landfast ice parameterization (T or F)  
     177   REAL(wp), PUBLIC ::   rn_gamma         !: fraction of ocean depth that ice must reach to initiate landfast ice 
     178   REAL(wp), PUBLIC ::   rn_icebfr        !: maximum bottom stress per unit area of contact (landfast ice)  
     179   REAL(wp), PUBLIC ::   rn_lfrelax       !: relaxation time scale (s-1) to reach static friction (landfast ice)  
     180   ! 
     181   !                                     !!** ice-rdige/raft namelist (namice_rdgrft) ** 
    183182   LOGICAL , PUBLIC ::   ln_str_H79       !: ice strength parameterization (Hibler79) 
    184183   REAL(wp), PUBLIC ::   rn_pstar         !: determines ice strength, Hibler JPO79 
     
    186185   LOGICAL , PUBLIC ::   ln_str_R75       !: ice strength parameterization (Rothrock75) 
    187186   REAL(wp), PUBLIC ::   rn_perdg         !: ridging work divided by pot. energy change in ridging 
    188                                           ! -- icerhg -- ! 
    189    REAL(wp), PUBLIC ::   rn_ishlat        !: lateral boundary condition for sea-ice 
    190    REAL(wp), PUBLIC ::   rn_cio           !: drag coefficient for oceanic stress 
     187   ! 
     188   !                                     !!** ice-rheology namelist (namice_rhg) ** 
     189   LOGICAL , PUBLIC ::   ln_rhg_EVP       !: EVP rheology 
    191190   REAL(wp), PUBLIC ::   rn_creepl        !: creep limit : has to be under 1.0e-9 
    192191   REAL(wp), PUBLIC ::   rn_ecc           !: eccentricity of the elliptical yield curve 
    193192   INTEGER , PUBLIC ::   nn_nevp          !: number of iterations for subcycling 
    194193   REAL(wp), PUBLIC ::   rn_relast        !: ratio => telast/rdt_ice (1/3 or 1/9 depending on nb of subcycling nevp)  
    195    LOGICAL , PUBLIC ::   ln_landfast      !: landfast ice parameterization (T or F)  
    196    REAL(wp), PUBLIC ::   rn_gamma         !: fraction of ocean depth that ice must reach to initiate landfast ice 
    197    REAL(wp), PUBLIC ::   rn_icebfr        !: maximum bottom stress per unit area of contact (landfast ice)  
    198    REAL(wp), PUBLIC ::   rn_lfrelax       !: relaxation time scale (s-1) to reach static friction (landfast ice)  
    199  
     194   ! 
     195   !                                     !!** ice-advection namelist (namice_adv) ** 
     196   LOGICAL , PUBLIC ::   ln_adv_Pra       !: Prather        advection scheme 
     197   LOGICAL , PUBLIC ::   ln_adv_UMx       !: Ultimate-Macho advection scheme 
     198   INTEGER , PUBLIC ::   nn_UMx           !: order of the UMx advection scheme    
     199   ! 
    200200   !                                     !!** ice-thermodynamics namelist (namice_thd) ** 
    201201   LOGICAL , PUBLIC ::   ln_icethd        !: flag for ice thermo (T) or not (F) 
     
    221221   REAL(wp), PUBLIC ::   rn_vfraz         !: threshold drift speed for collection of bottom frazil ice 
    222222   REAL(wp), PUBLIC ::   rn_Cfraz         !: squeezing coefficient for collection of bottom frazil ice 
    223                                           ! -- iceitd_th -- ! 
    224    REAL(wp), PUBLIC ::   rn_himin         !: minimum ice thickness 
    225                                           ! --  -- ! 
     223                                          ! -- icethd -- ! 
    226224   INTEGER , PUBLIC ::   nn_iceflx        !: Redistribute heat flux over ice categories 
    227225   !                                      !   =-1  Do nothing (needs N(cat) fluxes) 
     
    254252   REAL(wp), PUBLIC ::   rn_hpnd          !: prescribed pond depth    (0<rn_hpnd<1), only if nn_pnd_scheme = 0 
    255253   ! END MV MP 2016 
     254   !                                     !!** ice-diagnostics namelist (namice_dia) ** 
     255   LOGICAL , PUBLIC ::   ln_icediachk     !: flag for ice diag (T) or not (F) 
     256   LOGICAL , PUBLIC ::   ln_icediahsb     !: flag for ice diag (T) or not (F) 
     257   LOGICAL , PUBLIC ::   ln_icectl        !: flag for sea-ice points output (T) or not (F) 
     258   INTEGER , PUBLIC ::   iiceprt          !: debug i-point 
     259   INTEGER , PUBLIC ::   jiceprt          !: debug j-point 
    256260 
    257261   !                                     !!** some other parameters  
Note: See TracChangeset for help on using the changeset viewer.