Ignore:
Timestamp:
2017-09-07T12:28:42+02:00 (3 years ago)
Author:
clem
Message:

changes in style - part5 - continue changing init routines

File:
1 edited

Legend:

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

    r8505 r8506  
    176176   INTEGER , PUBLIC ::   jiceprt          !: debug j-point 
    177177 
    178    !                                     !!** ice-init namelist (namiceini) ** 
    179                                           ! -- iceist -- ! 
    180    LOGICAL , PUBLIC ::   ln_limini        ! initialization or not 
    181    LOGICAL , PUBLIC ::   ln_limini_file   ! Ice initialization state from 2D netcdf file 
    182    REAL(wp), PUBLIC ::   rn_thres_sst     ! threshold water temperature for initial sea ice 
    183    REAL(wp), PUBLIC ::   rn_hts_ini_n     ! initial snow thickness in the north 
    184    REAL(wp), PUBLIC ::   rn_hts_ini_s     ! initial snow thickness in the south 
    185    REAL(wp), PUBLIC ::   rn_hti_ini_n     ! initial ice thickness in the north 
    186    REAL(wp), PUBLIC ::   rn_hti_ini_s     ! initial ice thickness in the south 
    187    REAL(wp), PUBLIC ::   rn_ati_ini_n     ! initial leads area in the north 
    188    REAL(wp), PUBLIC ::   rn_ati_ini_s     ! initial leads area in the south 
    189    REAL(wp), PUBLIC ::   rn_smi_ini_n     ! initial salinity  
    190    REAL(wp), PUBLIC ::   rn_smi_ini_s     ! initial salinity 
    191    REAL(wp), PUBLIC ::   rn_tmi_ini_n     ! initial temperature 
    192    REAL(wp), PUBLIC ::   rn_tmi_ini_s     ! initial temperature 
    193     
    194178   !                                     !!** ice-dynamics namelist (namicedyn) ** 
    195179                                          ! -- iceadv -- ! 
     
    252236   REAL(wp), PUBLIC ::   rn_simin         !: minimum ice salinity [PSU] 
    253237 
    254    !                                     !!** ice-mechanical redistribution namelist (namiceitdme) 
    255    REAL(wp), PUBLIC ::   rn_cs            !: fraction of shearing energy contributing to ridging             
    256    INTEGER , PUBLIC ::   nn_partfun       !: participation function: =0 Thorndike et al. (1975), =1 Lipscomb et al. (2007) 
    257    REAL(wp), PUBLIC ::   rn_gstar         !: fractional area of young ice contributing to ridging 
    258    REAL(wp), PUBLIC ::   rn_astar         !: equivalent of G* for an exponential participation function 
    259    LOGICAL , PUBLIC ::   ln_ridging       !: ridging of ice or not                         
    260    REAL(wp), PUBLIC ::   rn_hstar         !: thickness that determines the maximal thickness of ridged ice 
    261    REAL(wp), PUBLIC ::   rn_por_rdg       !: initial porosity of ridges (0.3 regular value) 
    262    REAL(wp), PUBLIC ::   rn_fsnowrdg      !: fractional snow loss to the ocean during ridging 
    263    REAL(wp), PUBLIC ::   rn_fpondrdg      !: fractional melt pond loss to the ocean during ridging 
    264    LOGICAL , PUBLIC ::   ln_rafting       !: rafting of ice or not                         
    265    REAL(wp), PUBLIC ::   rn_hraft         !: threshold thickness (m) for rafting / ridging  
    266    REAL(wp), PUBLIC ::   rn_craft         !: coefficient for smoothness of the hyperbolic tangent in rafting 
    267    REAL(wp), PUBLIC ::   rn_fsnowrft      !: fractional snow loss to the ocean during ridging 
    268    REAL(wp), PUBLIC ::   rn_fpondrft      !: fractional snow loss to the ocean during rafting 
    269  
    270238   ! MV MP 2016 
    271239   !                                     !!** melt pond namelist (namicemp) 
Note: See TracChangeset for help on using the changeset viewer.