Ignore:
Timestamp:
2017-09-08T17:09:25+02:00 (3 years ago)
Author:
clem
Message:

changes in style - part5 - almost done

File:
1 edited

Legend:

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

    r8512 r8514  
    165165    
    166166   !                                     !!** ice-diagnostics namelist (namice_dia) ** 
    167    LOGICAL , PUBLIC ::   ln_limdiachk     !: flag for ice diag (T) or not (F) 
    168    LOGICAL , PUBLIC ::   ln_limdiahsb     !: flag for ice diag (T) or not (F) 
    169    LOGICAL , PUBLIC ::   ln_limctl        !: flag for sea-ice points output (T) or not (F) 
     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) 
    170170   INTEGER , PUBLIC ::   iiceprt          !: debug i-point 
    171171   INTEGER , PUBLIC ::   jiceprt          !: debug j-point 
     
    181181   INTEGER , PUBLIC ::   nn_UMx           !: order of the UMx advection scheme    
    182182                                          ! -- icerdgrft -- ! 
    183    LOGICAL , PUBLIC ::   ln_str_Hib       !: ice strength parameterization (Hibler79) 
     183   LOGICAL , PUBLIC ::   ln_str_H79       !: ice strength parameterization (Hibler79) 
    184184   REAL(wp), PUBLIC ::   rn_pstar         !: determines ice strength, Hibler JPO79 
    185185   REAL(wp), PUBLIC ::   rn_crhg          !: determines changes in ice strength 
    186    LOGICAL , PUBLIC ::   ln_str_Rot       !: ice strength parameterization (Rothrock75) 
     186   LOGICAL , PUBLIC ::   ln_str_R75       !: ice strength parameterization (Rothrock75) 
    187187   REAL(wp), PUBLIC ::   rn_perdg         !: ridging work divided by pot. energy change in ridging 
    188188                                          ! -- icerhg -- ! 
     
    199199 
    200200   !                                     !!** ice-thermodynamics namelist (namice_thd) ** 
    201    LOGICAL , PUBLIC ::   ln_limthd        !: flag for ice thermo (T) or not (F) 
     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] 
    204    INTEGER , PUBLIC ::   nn_ice_thcon     !: thermal conductivity: =0 Untersteiner (1964) ; =1 Pringle et al (2007) 
    205    LOGICAL , PUBLIC ::   ln_dqnsice       !: change non-solar surface flux with changing surface temperature (T) or not (F) 
     204   LOGICAL , PUBLIC ::   ln_cndi_U64      !: thermal conductivity: Untersteiner (1964) 
     205   LOGICAL , PUBLIC ::   ln_cndi_P07      !: thermal conductivity: Pringle et al (2007) 
     206   LOGICAL , PUBLIC ::   ln_dqns_i        !: change non-solar surface flux with changing surface temperature (T) or not (F) 
    206207   INTEGER , PUBLIC ::   nn_monocat       !: virtual ITD mono-category parameterizations (1-4) or not (0) 
    207    REAL(wp), PUBLIC ::   rn_cdsn          !: thermal conductivity of the snow [W/m/K] 
     208   REAL(wp), PUBLIC ::   rn_cnd_s         !: thermal conductivity of the snow [W/m/K] 
    208209                                          ! -- icethd_dh -- ! 
    209    LOGICAL , PUBLIC ::   ln_limdH         !: activate ice thickness change from growing/melting (T) or not (F) 
    210    REAL(wp), PUBLIC ::   rn_betas         !: coef. for partitioning of snowfall between leads and sea ice 
     210   LOGICAL , PUBLIC ::   ln_icedH         !: activate ice thickness change from growing/melting (T) or not (F) 
     211   REAL(wp), PUBLIC ::   rn_blow_s        !: coef. for partitioning of snowfall between leads and sea ice 
    211212                                          ! -- icethd_da -- ! 
    212    LOGICAL , PUBLIC ::   ln_limdA         !: activate lateral melting param. (T) or not (F) 
     213   LOGICAL , PUBLIC ::   ln_icedA         !: activate lateral melting param. (T) or not (F) 
    213214   REAL(wp), PUBLIC ::   rn_beta          !: coef. beta for lateral melting param. 
    214215   REAL(wp), PUBLIC ::   rn_dmin          !: minimum floe diameter for lateral melting param. 
    215216                                          ! -- icethd_lac -- ! 
    216    LOGICAL , PUBLIC ::   ln_limdO         !: activate ice growth in open-water (T) or not (F) 
    217    REAL(wp), PUBLIC ::   rn_hnewice       !: thickness for new ice formation (m) 
     217   LOGICAL , PUBLIC ::   ln_icedO         !: activate ice growth in open-water (T) or not (F) 
     218   REAL(wp), PUBLIC ::   rn_hinew         !: thickness for new ice formation (m) 
    218219   LOGICAL , PUBLIC ::   ln_frazil        !: use of frazil ice collection as function of wind (T) or not (F) 
    219    REAL(wp), PUBLIC ::   rn_maxfrazb      !: maximum portion of frazil ice collecting at the ice bottom 
    220    REAL(wp), PUBLIC ::   rn_vfrazb        !: threshold drift speed for collection of bottom frazil ice 
    221    REAL(wp), PUBLIC ::   rn_Cfrazb        !: squeezing coefficient for collection of bottom frazil ice 
     220   REAL(wp), PUBLIC ::   rn_maxfraz       !: maximum portion of frazil ice collecting at the ice bottom 
     221   REAL(wp), PUBLIC ::   rn_vfraz         !: threshold drift speed for collection of bottom frazil ice 
     222   REAL(wp), PUBLIC ::   rn_Cfraz         !: squeezing coefficient for collection of bottom frazil ice 
    222223                                          ! -- iceitd_th -- ! 
    223224   REAL(wp), PUBLIC ::   rn_himin         !: minimum ice thickness 
    224225                                          ! --  -- ! 
    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 
     226   INTEGER , PUBLIC ::   nn_iceflx        !: Redistribute heat flux over ice categories 
     227   !                                      !   =-1  Do nothing (needs N(cat) fluxes) 
     228   !                                      !   = 0  Average N(cat) fluxes then apply the average over the N(cat) ice  
     229   !                                      !   = 1  Average N(cat) fluxes then redistribute over the N(cat) ice 
     230   !                                      !                                   using T-ice and albedo sensitivity 
    229231   !                                      !   = 2  Redistribute a single flux over categories 
    230232 
    231233   !                                     !!** ice-salinity namelist (namice_sal) ** 
    232    LOGICAL , PUBLIC ::   ln_limdS         !: activate gravity drainage and flushing (T) or not (F) 
     234   LOGICAL , PUBLIC ::   ln_icedS         !: activate gravity drainage and flushing (T) or not (F) 
    233235   INTEGER , PUBLIC ::   nn_icesal        !: salinity configuration used in the model 
    234236   !                                      ! 1 - constant salinity in both space and time 
     
    354356   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   sm_i      !: Sea-Ice Bulk salinity (ppt) 
    355357   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   smv_i     !: Sea-Ice Bulk salinity times volume per area (ppt.m) 
    356    !                                                                    !  this is an extensive variable that has to be transported 
    357358   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   o_i       !: Sea-Ice Age (s) 
    358359   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   oa_i      !: Sea-Ice Age times ice area (s) 
Note: See TracChangeset for help on using the changeset viewer.