Ignore:
Timestamp:
2017-08-08T15:58:05+02:00 (3 years ago)
Author:
clem
Message:

continue naming

File:
1 edited

Legend:

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

    r8413 r8422  
    7777   !! - ice_adv : ice advection                                           | 
    7878   !! - ice_rdgrft : ice ridging and rafting                              | 
    79    !! - lim_thd : ice halo-thermodynamics                                 | 
    80    !! - lim_itd_th : thermodynamic changes in ice thickness distribution  | 
    81    !!                and creation of new ice                              | 
     79   !! - ice_thd : ice halo-thermodynamics and creation of new ice         | 
     80   !! - ice_itd : thermodynamic changes in ice thickness distribution     | 
    8281   !!                                                                     | 
    8382   !! See the associated routines for more information                    | 
     
    150149   !! bv_i        !      -      !    relative brine volume        | ???   |  
    151150   !!===================================================================== 
    152  
    153    LOGICAL, PUBLIC ::   con_i = .false.   ! switch for conservation test 
    154151 
    155152   !!-------------------------------------------------------------------------- 
     
    221218 
    222219   !                                     !!** ice-thermodynamics namelist (namicethd) ** 
    223                                           ! -- limthd_dif -- ! 
     220                                          ! -- icethd_dif -- ! 
    224221   REAL(wp), PUBLIC ::   rn_kappa_i       !: coef. for the extinction of radiation Grenfell et al. (2006) [1/m] 
    225222   INTEGER , PUBLIC ::   nn_ice_thcon     !: thermal conductivity: =0 Untersteiner (1964) ; =1 Pringle et al (2007) 
     
    227224   INTEGER , PUBLIC ::   nn_monocat       !: virtual ITD mono-category parameterizations (1-4) or not (0) 
    228225   REAL(wp), PUBLIC ::   rn_cdsn          !: thermal conductivity of the snow [W/m/K] 
    229                                           ! -- limthd_dh -- ! 
     226                                          ! -- icethd_dh -- ! 
    230227   LOGICAL , PUBLIC ::   ln_limdH         !: activate ice thickness change from growing/melting (T) or not (F) 
    231228   REAL(wp), PUBLIC ::   rn_betas         !: coef. for partitioning of snowfall between leads and sea ice 
    232                                           ! -- limthd_da -- ! 
     229                                          ! -- icethd_da -- ! 
    233230   LOGICAL , PUBLIC ::   ln_limdA         !: activate lateral melting param. (T) or not (F) 
    234231   REAL(wp), PUBLIC ::   rn_beta          !: coef. beta for lateral melting param. 
    235232   REAL(wp), PUBLIC ::   rn_dmin          !: minimum floe diameter for lateral melting param. 
    236                                           ! -- limthd_lac -- ! 
     233                                          ! -- icethd_lac -- ! 
    237234   LOGICAL , PUBLIC ::   ln_limdO         !: activate ice growth in open-water (T) or not (F) 
    238235   REAL(wp), PUBLIC ::   rn_hnewice       !: thickness for new ice formation (m) 
     
    241238   REAL(wp), PUBLIC ::   rn_vfrazb        !: threshold drift speed for collection of bottom frazil ice 
    242239   REAL(wp), PUBLIC ::   rn_Cfrazb        !: squeezing coefficient for collection of bottom frazil ice 
    243                                           ! -- limitd_th -- ! 
     240                                          ! -- iceitd -- ! 
    244241   REAL(wp), PUBLIC ::   rn_himin         !: minimum ice thickness 
    245242 
     
    366363 
    367364   ! heat flux associated with ice-ocean mass exchange 
    368    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   hfx_thd     !: ice-ocean heat flux from thermo processes (limthd_dh) [W.m-2] 
     365   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   hfx_thd     !: ice-ocean heat flux from thermo processes (icethd_dh) [W.m-2] 
    369366   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   hfx_dyn     !: ice-ocean heat flux from ridging                      [W.m-2] 
    370367   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   hfx_res     !: residual heat flux due to correction of ice thickness [W.m-2] 
Note: See TracChangeset for help on using the changeset viewer.