Don't need to set tendencies to 0 multiple times

We set surface_fluxes(:,:) and interior_tendencies(:,:) to c0 at the beginning
of their respective compute routines, so the abio and ciso versions of those
routines don't need to set the specific subset to c0 as well.

Note that these subroutines no longer require abio_ind_beg, abio_ind_end, or
the ciso equivalents.

src/marbl_abio_dic_interior_tendency_mod.F90

@@ -38,12 +38,9 @@ subroutine marbl_abio_dic_interior_tendency_compute(marbl_tracer_indices, &
  dic => tracer_local(marbl_tracer_indices%abio_dic_ind, :), &
  di14c => tracer_local(marbl_tracer_indices%abio_di14c_ind, :), &
  ! Tracer indices
- di14c_ind => marbl_tracer_indices%abio_di14c_ind, &
- abio_ind_beg => marbl_tracer_indices%abio_dic%ind_beg, &
- abio_ind_end => marbl_tracer_indices%abio_dic%ind_end &
+ di14c_ind => marbl_tracer_indices%abio_di14c_ind &
  )
 
- interior_tendencies(abio_ind_beg:abio_ind_end, :) = c0
  interior_tendencies(di14c_ind, :) = -c14_lambda * di14c(:)
 
  call marbl_abio_dic_diagnostics_interior_tendency_compute(dic, di14c, interior_tendency_diags)

src/marbl_abio_dic_surface_flux_mod.F90

@@ -118,17 +118,9 @@ subroutine marbl_abio_dic_surface_flux_compute(&
  ph_surf => saved_state%state(saved_state_ind%abio_dic_ph_surf)%field_2d, &
  ! Tracer indices
  dic_ind => marbl_tracer_indices%abio_dic_ind, &
- di14c_ind => marbl_tracer_indices%abio_di14c_ind, &
- abio_ind_beg => marbl_tracer_indices%abio_dic%ind_beg, &
- abio_ind_end => marbl_tracer_indices%abio_dic%ind_end &
+ di14c_ind => marbl_tracer_indices%abio_di14c_ind &
  )
 
- !-----------------------------------------------------------------------
- ! abio fluxes initially set to 0
- !-----------------------------------------------------------------------
-
- surface_fluxes(:,abio_ind_beg:abio_ind_end) = c0
-
  !-----------------------------------------------------------------------
  ! Set C14 ratios
  !-----------------------------------------------------------------------

src/marbl_ciso_surface_flux_mod.F90

@@ -111,17 +111,9 @@ subroutine marbl_ciso_surface_flux_compute(&
  di13c_ind => marbl_tracer_indices%di13c_ind , &
  do13ctot_ind => marbl_tracer_indices%do13ctot_ind , &
  di14c_ind => marbl_tracer_indices%di14c_ind , &
- do14ctot_ind => marbl_tracer_indices%do14ctot_ind , &
- ciso_ind_beg => marbl_tracer_indices%ciso%ind_beg , &
- ciso_ind_end => marbl_tracer_indices%ciso%ind_end &
+ do14ctot_ind => marbl_tracer_indices%do14ctot_ind &
  )
 
- !-----------------------------------------------------------------------
- ! ciso fluxes initially set to 0
- !-----------------------------------------------------------------------
-
- surface_fluxes(:,ciso_ind_beg:ciso_ind_end) = c0
-
  !-----------------------------------------------------------------------
  ! initialize R13C_atm and R14C_atm
  !-----------------------------------------------------------------------