- Timestamp:
- 2020-07-30T13:20:57+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/tickets_icb_1900/src/OCE/ICB/icbini.F90
r13276 r13357 78 78 ! 79 79 ! ! initialised variable with extra haloes to zero 80 uo_e(:,:) = 0._wp ; vo_e(:,:) = 0._wp ; 81 ua_e(:,:) = 0._wp ; va_e(:,:) = 0._wp ; 82 ff_e(:,:) = 0._wp ; tt_e(:,:) = 0._wp ; 83 fr_e(:,:) = 0._wp ; 84 ! prepration to Nacho work 85 ! e3t_e 86 ! tt3d_e 87 ! uo3d_e 88 ! vo3d_e 80 ssu_e(:,:) = 0._wp ; ssv_e(:,:) = 0._wp ; 81 ua_e(:,:) = 0._wp ; va_e(:,:) = 0._wp ; 82 ff_e(:,:) = 0._wp ; sst_e(:,:) = 0._wp ; 83 fr_e(:,:) = 0._wp ; 84 ! 85 IF ( ln_M2016 ) THEN 86 toce_e(:,:,:) = 0._wp 87 uoce_e(:,:,:) = 0._wp 88 voce_e(:,:,:) = 0._wp 89 e3t_e(:,:,:) = 0._wp 90 END IF 89 91 ! 90 92 #if defined key_si3 … … 106 108 first_width (:) = SQRT( rn_initial_mass(:) / ( rn_LoW_ratio * rn_rho_bergs * rn_initial_thickness(:) ) ) 107 109 first_length(:) = rn_LoW_ratio * first_width(:) 110 rho_berg_1_oce = rn_rho_bergs / pp_rho_seawater ! scale factor used for convertion thickness to draft 111 ! 112 ! deepest level affected by icebergs 113 ! can be tuned but the safest is this 114 ! (with z* and z~ the depth of each level change overtime, so the more robust micbkb is jpk) 115 micbkb = jpk 108 116 109 117 berg_grid%calving (:,:) = 0._wp … … 365 373 localpt%uvel = 0._wp 366 374 localpt%vvel = 0._wp 375 localpt%kb = 1 367 376 CALL icb_utl_incr() 368 377 localberg%number(:) = num_bergs(:) … … 398 407 & rn_bits_erosion_fraction , rn_sicn_shift , ln_passive_mode , & 399 408 & ln_time_average_weight , nn_test_icebergs , rn_test_box , & 400 & ln_use_calving , rn_speed_limit , cn_dir, sn_icb , 409 & ln_use_calving , rn_speed_limit , cn_dir, sn_icb , ln_M2016 , & 401 410 & cn_icbrst_indir, cn_icbrst_in , cn_icbrst_outdir , cn_icbrst_out 402 411 !!----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.