!******************** start file nb2_fp0.fnb ; group nubeam *************
!
!-------------------------------------------------------------
!
!

subroutine nb2d00
  !  modif tbt jun 1993 - change loop limit from 2 to ng.
  !  modif dmc mar 1985 - zero 2d output arrays
  !  (stuff dimensioned along the beam dist fcn spatial grid)
  !
  !   ** see also routines nbsv00 and nbcx00 below **
  use nbi_com
  !
  !  zero stuff on the 2d beam dist fcn grid
  !
  !
  !	zero beam distribution  (r.j.g. : april 11, 1982)
  !
  !============
  implicit none
  integer :: isb,k,j,i,ia,ie,ireact,iz,isb2,ig,ino,i3,ib
  logical :: il_3dhalo !true-- 3 halo will be called
  !============

  if(allocated(fbm_cx))then
     fbm_cx=0.0_fp
  end if

  il_3dhalo=(mdepbox.gt.0.and.levmod_halo.eq.2)

  if(.not.il_3dhalo) then
     fbm=0.0_fp
     if(nlfbmflr) then
        fbm_ptcl=0.0_fp     !will be zeroed in depbox.for after box deposition done
     end if
  else
     if(nlfbmflr) then
        !mg 06/13/12 fbm_ptcl will be needed for a 3d halo if mdepbox.gt.0 and levmod_halo.eq.2
        !will be zeroed in depbox.for after box deposition done
        fbm=0.0_fp
        ! else fbm will be use in 3d halo model and will be zeroed in depbox
     end if
  end if
  !
  !  array for accumulation of fbm for one specie...
  !  (dmc -- trying direct accumulation of fbm and fbm_ptcl now...)
!!!!      zfbml = 0.0_fp
!!!!      zfbml_ptcl = 0.0_fp
  !
  bbnvol=0.0_fp
  btntn2=0.0_fp
  !
  xcurb2=0.0_fp
  xcrb2c=0.0_fp  ! cur driven by beam co sces only
  bdens2=0.0_fp
  eba2pp=0.0_fp
  eba2pl=0.0_fp
  vbtor2=0.0_fp
  hexbbxrc=0.0_fp
   !
  srbn02=0.0_fp
  srbn02_dep=0.0_fp
  !
  bn002=0.0_fp
  vcxbn0=0.0_fp
  hexbbcx0=0.0_fp
  !
  return
end subroutine nb2d00
!******************** end file nb2d00.fnb ; group nbzero ***************
