anchor.diff:    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")
  
positive.code:   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, private, save :: n_tot_absorbed_cr = 0
    integer, private, save :: n_absorbed_cr     = 0
  
negative.code:   (part_indiv_cr(j)     ,j=1,npart), &
    (part_impact_cr(j)    ,j=1,npart), &
  
    (cry_proc_cr(j)       ,j=1,npart), &
    (cry_proc_prev_cr(j)  ,j=1,npart), &
    (cry_proc_tmp_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), &
  