New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 3901 for branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ICB/icb_oce.F90 – NEMO

Ignore:
Timestamp:
2013-05-03T14:35:21+02:00 (11 years ago)
Author:
clevy
Message:

Configuration Setting/Step2, see ticket:#1074

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ICB/icb_oce.F90

    r3614 r3901  
    109109 
    110110   !                                                         !!* namberg namelist parameters (and defaults) ** 
    111    LOGICAL , PUBLIC ::   ln_bergdia               = .true.    !: Calculate budgets 
    112    INTEGER , PUBLIC ::   nn_verbose_level         = 0         !: Turn on debugging when level > 0 
    113    INTEGER , PUBLIC ::   nn_test_icebergs         = 0         !: Create icebergs in absence of a restart file from the supplied class nb 
    114    REAL(wp), PUBLIC, DIMENSION(4) ::   rn_test_box = (/ 0._wp, 1._wp, 0._wp, 1._wp /)   !: lon1,lon2,lat1,lat2 box to create them in 
    115    INTEGER , PUBLIC ::   nn_sample_rate           = 0         !: Timesteps between sampling of position for trajectory storage 
    116    INTEGER , PUBLIC ::   nn_verbose_write         = 15        !: timesteps between verbose messages 
    117    REAL(wp), PUBLIC ::   rn_rho_bergs             = 850._wp   !: Density of icebergs 
    118    REAL(wp), PUBLIC ::   rn_LoW_ratio             = 1.5_wp    !: Initial ratio L/W for newly calved icebergs 
    119    REAL(wp), PUBLIC ::   rn_bits_erosion_fraction = 0.        !: Fraction of erosion melt flux to divert to bergy bits 
    120    REAL(wp), PUBLIC ::   rn_sicn_shift            = 0._wp     !: Shift of sea-ice concentration in erosion flux modulation (0<sicn_shift<1) 
    121    LOGICAL , PUBLIC ::   ln_operator_splitting    = .true.    !: Use first order operator splitting for thermodynamics 
    122    LOGICAL , PUBLIC ::   ln_passive_mode          = .false.   !: iceberg - ocean decoupling 
    123    LOGICAL , PUBLIC ::   ln_time_average_weight   = .false.   !: Time average the weight on the ocean    !!gm I don't understand that ! 
    124    REAL(wp), PUBLIC ::   rn_speed_limit           = 0._wp     !: CFL speed limit for a berg 
     111   LOGICAL , PUBLIC ::   ln_bergdia                      !: Calculate budgets 
     112   INTEGER , PUBLIC ::   nn_verbose_level                !: Turn on debugging when level > 0 
     113   INTEGER , PUBLIC ::   nn_test_icebergs                !: Create icebergs in absence of a restart file from the supplied class nb 
     114   REAL(wp), PUBLIC, DIMENSION(4) ::   rn_test_box       !: lon1,lon2,lat1,lat2 box to create them in 
     115   INTEGER , PUBLIC ::   nn_sample_rate                  !: Timesteps between sampling of position for trajectory storage 
     116   INTEGER , PUBLIC ::   nn_verbose_write                !: timesteps between verbose messages 
     117   REAL(wp), PUBLIC ::   rn_rho_bergs                    !: Density of icebergs 
     118   REAL(wp), PUBLIC ::   rn_LoW_ratio                    !: Initial ratio L/W for newly calved icebergs 
     119   REAL(wp), PUBLIC ::   rn_bits_erosion_fraction        !: Fraction of erosion melt flux to divert to bergy bits 
     120   REAL(wp), PUBLIC ::   rn_sicn_shift                   !: Shift of sea-ice concentration in erosion flux modulation (0<sicn_shift<1) 
     121   LOGICAL , PUBLIC ::   ln_operator_splitting           !: Use first order operator splitting for thermodynamics 
     122   LOGICAL , PUBLIC ::   ln_passive_mode                 !: iceberg - ocean decoupling 
     123   LOGICAL , PUBLIC ::   ln_time_average_weight          !: Time average the weight on the ocean    !!gm I don't understand that ! 
     124   REAL(wp), PUBLIC ::   rn_speed_limit                  !: CFL speed limit for a berg 
    125125   ! 
    126126   !                                     ! Mass thresholds between iceberg classes [kg] 
    127    REAL(wp), DIMENSION(nclasses), PUBLIC ::   rn_initial_mass      = (/8.8e07, 4.1e08, 3.3e09, 1.8e10, 3.8e10,   & 
    128       &                                                                7.5e10, 1.2e11, 2.2e11, 3.9e11, 7.4e11/) 
    129    !                                     ! Fraction of calving to apply to this class [non-dim] 
    130    REAL(wp), DIMENSION(nclasses), PUBLIC ::   rn_distribution      = (/0.25  , 0.12  , 0.15  , 0.18  , 0.12  ,   & 
    131       &                                                                0.07  , 0.03  , 0.03  , 0.03  , 0.02  /) 
    132    !                                     ! Ratio between effective and real iceberg mass (non-dim) 
    133    REAL(wp), DIMENSION(nclasses), PUBLIC ::   rn_mass_scaling      = (/2000. ,  200. ,   50. ,   20. ,   10. ,   & 
    134       &                                                                   5. ,    2. ,    1. ,    1. ,    1. /) 
    135    !                                     ! Total thickness of newly calved bergs [m] 
    136    REAL(wp), DIMENSION(nclasses), PUBLIC ::   rn_initial_thickness = (/  40. ,   67. ,  133. ,  175. ,  250. ,   & 
    137       &                                                                 250. ,  250. ,  250. ,  250. ,  250./) 
    138  
    139    ! Single instance of an icebergs type initialised in icebergs_init and updated in icebergs_run 
     127   REAL(wp), DIMENSION(nclasses), PUBLIC ::   rn_initial_mass      ! Fraction of calving to apply to this class [non-dim] 
     128   REAL(wp), DIMENSION(nclasses), PUBLIC ::   rn_distribution      ! Ratio between effective and real iceberg mass (non-dim) 
     129   REAL(wp), DIMENSION(nclasses), PUBLIC ::   rn_mass_scaling      ! Total thickness of newly calved bergs [m] 
     130   REAL(wp), DIMENSION(nclasses), PUBLIC ::   rn_initial_thickness !  Single instance of an icebergs type initialised in icebergs_init and updated in icebergs_run 
    140131   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)     ::   src_calving, src_calving_hflx    !: accumulate input ice 
    141132   INTEGER , PUBLIC             , SAVE                     ::   numicb                           !: iceberg IO 
Note: See TracChangeset for help on using the changeset viewer.