anchor.diff:    real(kind=fPrec), allocatable, private, save :: yineff_cr(:)  ! (npart)
     real(kind=fPrec), allocatable, private, save :: xpineff_cr(:) ! (npart)
     real(kind=fPrec), allocatable, private, save :: ypineff_cr(:) ! (npart)
  +
  +  integer, allocatable, save :: cry_proc_cr(:)
  +  integer, allocatable, save :: cry_proc_prev_cr(:)
  +  integer, allocatable, save :: cry_proc_tmp_cr(:)
   
     integer, private, save :: n_tot_absorbed_cr = 0
     integer, private, save :: n_absorbed_cr     = 0
  
positive.code:   (part_indiv_cr(j)     ,j=1,npart), &
    (part_impact_cr(j)    ,j=1,npart), &
  
    (cn_impact_cr(j)      ,j=1,cdb_nColl_cr), &
    (cn_absorbed_cr(j)    ,j=1,cdb_nColl_cr), &
    (caverage_cr(j)       ,j=1,cdb_nColl_cr), &
  
negative.code:   call dealloc(part_indiv_cr,     "part_indiv_cr")
    call dealloc(part_impact_cr,    "part_impact_cr")
  
    call dealloc(cry_proc_cr,       "cry_proc_cr")
    call dealloc(cry_proc_prev_cr,  "cry_proc_prev_cr")
    call dealloc(cry_proc_tmp_cr,   "cry_proc_tmp_cr")
  
    call dealloc(cn_impact_cr,      "cn_impact")
    call dealloc(cn_absorbed_cr,    "cn_absorbed")
    call dealloc(caverage_cr,       "caverage")
  