fix initiation of sedfluxb

TomasTorsvik · Sep 13, 2024 · e7d538d · e7d538d
1 parent 1a333a3
commit e7d538d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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 ...'