- Timestamp:
- 2013-05-03T14:35:21+02:00 (11 years ago)
- Location:
- branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ICB
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ICB/icb_oce.F90
r3614 r3901 109 109 110 110 ! !!* namberg namelist parameters (and defaults) ** 111 LOGICAL , PUBLIC :: ln_bergdia = .true.!: Calculate budgets112 INTEGER , PUBLIC :: nn_verbose_level = 0!: Turn on debugging when level > 0113 INTEGER , PUBLIC :: nn_test_icebergs = 0!: Create icebergs in absence of a restart file from the supplied class nb114 REAL(wp), PUBLIC, DIMENSION(4) :: rn_test_box = (/ 0._wp, 1._wp, 0._wp, 1._wp /)!: lon1,lon2,lat1,lat2 box to create them in115 INTEGER , PUBLIC :: nn_sample_rate = 0!: Timesteps between sampling of position for trajectory storage116 INTEGER , PUBLIC :: nn_verbose_write = 15!: timesteps between verbose messages117 REAL(wp), PUBLIC :: rn_rho_bergs = 850._wp!: Density of icebergs118 REAL(wp), PUBLIC :: rn_LoW_ratio = 1.5_wp!: Initial ratio L/W for newly calved icebergs119 REAL(wp), PUBLIC :: rn_bits_erosion_fraction = 0.!: Fraction of erosion melt flux to divert to bergy bits120 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 thermodynamics122 LOGICAL , PUBLIC :: ln_passive_mode = .false.!: iceberg - ocean decoupling123 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 berg111 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 125 125 ! 126 126 ! ! 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 140 131 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: src_calving, src_calving_hflx !: accumulate input ice 141 132 INTEGER , PUBLIC , SAVE :: numicb !: iceberg IO -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ICB/icbini.F90
r3875 r3901 35 35 PUBLIC icb_init ! routine called in nemogcm.F90 module 36 36 37 CHARACTER(len=100) :: cn_dir = './'! Root directory for location of icb files37 CHARACTER(len=100) :: cn_dir ! Root directory for location of icb files 38 38 TYPE(FLD_N) :: sn_icb ! information about the calving file to be read 39 39 … … 355 355 !!---------------------------------------------------------------------- 356 356 357 ! (NB: frequency positive => hours, negative => months)358 ! ! file ! frequency ! variable ! time intep ! clim ! 'yearly' or ! weights ! rotation !359 ! ! name ! (hours) ! name ! (T/F) ! (T/F) ! 'monthly' ! filename ! pairs !360 sn_icb = FLD_N( 'calving' , -1 , 'calving' , .TRUE. , .TRUE. , 'yearly' , '' , '' )361 362 357 REWIND( numnam_ref ) ! Namelist namberg in reference namelist : Iceberg parameters 363 358 READ ( numnam_ref, namberg, IOSTAT = ios, ERR = 901)
Note: See TracChangeset
for help on using the changeset viewer.