diff --git a/hamocc/mo_carbch.F90 b/hamocc/mo_carbch.F90
index a6ad8d0f..eb35093d 100644
--- a/hamocc/mo_carbch.F90
+++ b/hamocc/mo_carbch.F90
@@ -233,7 +233,7 @@ subroutine alloc_mem_carbch(kpie,kpje,kpke)
     endif
     allocate (sedfluxb(kpie,kpje,nsedtra),stat=errstat)
     if(errstat.ne.0) stop 'not enough memory sedfluxb'
-    sedfluxo(:,:,:) = 0.0
+    sedfluxb(:,:,:) = 0.0
 
     if (mnproc.eq.1) then
       write(io_stdo_bgc,*)'Memory allocation for variable satn2o ...'