Ignore:
Timestamp:
2017-09-12T20:46:13+02:00 (3 years ago)
Author:
clem
Message:

changes in style - part6 - one more round

File:
1 edited

Legend:

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

    r8516 r8517  
    157157   INTEGER           , PUBLIC ::   nlay_i          !: number of ice  layers  
    158158   INTEGER           , PUBLIC ::   nlay_s          !: number of snow layers  
     159   LOGICAL           , PUBLIC ::   ln_icedyn       !: flag for ice dynamics (T) or not (F) 
     160   LOGICAL           , PUBLIC ::   ln_icethd       !: flag for ice thermo   (T) or not (F) 
    159161   REAL(wp)          , PUBLIC ::   rn_amax_n       !: maximum ice concentration Northern hemisphere 
    160162   REAL(wp)          , PUBLIC ::   rn_amax_s       !: maximum ice concentration Southern hemisphere 
     
    168170    
    169171   !                                     !!** ice-dynamics namelist (namice_dyn) ** 
    170    LOGICAL , PUBLIC ::   ln_icedyn        !: flag for ice dynamics (T) or not (F) 
    171    INTEGER , PUBLIC ::   nn_icedyn        !: flag for ice dynamics 
    172    REAL(wp), PUBLIC ::   rn_uice          !: prescribed u-vel (case nn_icedyn=0) 
    173    REAL(wp), PUBLIC ::   rn_vice          !: prescribed v-vel (case nn_icedyn=0) 
     172   LOGICAL,  PUBLIC ::   ln_dynFULL       !:  dyn.: full ice dynamics               (rheology + advection + ridging/rafting + correction) 
     173   LOGICAL,  PUBLIC ::   ln_dynRHGADV     !:  dyn.: no ridge/raft & no corrections  (rheology + advection) 
     174   LOGICAL,  PUBLIC ::   ln_dynADV        !:  dyn.: only advection w prescribed vel.(rn_uvice + advection) 
    174175   REAL(wp), PUBLIC ::   rn_ishlat        !: lateral boundary condition for sea-ice 
    175176   REAL(wp), PUBLIC ::   rn_cio           !: drag coefficient for oceanic stress 
    176177   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)  
     178   REAL(wp), PUBLIC ::   rn_gamma         !:    fraction of ocean depth that ice must reach to initiate landfast ice 
     179   REAL(wp), PUBLIC ::   rn_icebfr        !:    maximum bottom stress per unit area of contact (landfast ice)  
     180   REAL(wp), PUBLIC ::   rn_lfrelax       !:    relaxation time scale (s-1) to reach static friction (landfast ice)  
    180181   ! 
    181182   !                                     !!** ice-rdige/raft namelist (namice_rdgrft) ** 
     
    199200   ! 
    200201   !                                     !!** ice-thermodynamics namelist (namice_thd) ** 
    201    LOGICAL , PUBLIC ::   ln_icethd        !: flag for ice thermo (T) or not (F) 
    202202                                          ! -- icethd_dif -- ! 
    203203   REAL(wp), PUBLIC ::   rn_kappa_i       !: coef. for the extinction of radiation Grenfell et al. (2006) [1/m] 
     
    266266   REAL(wp), PUBLIC ::   r1_nlay_s        !: 1 / nlay_s  
    267267   REAL(wp), PUBLIC ::   rswitch          !: switch for the presence of ice (1) or not (0) 
     268   REAL(wp), PUBLIC ::   rdiag_v, rdiag_s, rdiag_t, rdiag_fv, rdiag_fs, rdiag_ft   !: conservation diagnostics 
    268269   REAL(wp), PUBLIC, PARAMETER ::   epsi06 = 1.e-06_wp  !: small number  
    269270   REAL(wp), PUBLIC, PARAMETER ::   epsi10 = 1.e-10_wp  !: small number  
    270271   REAL(wp), PUBLIC, PARAMETER ::   epsi20 = 1.e-20_wp  !: small number  
    271    ! 
    272    LOGICAL , PUBLIC ::   l_piling         !: =T simple conservative piling, comparable with LIM2 
     272 
    273273 
    274274   !                                     !!** define arrays 
Note: See TracChangeset for help on using the changeset viewer.