CaCO3flux_u = 0. _d 0
CaCO3_diss(i,j,k) = (CaCO3flux_u + CaCO3_uptake(i,j,k)
CaCO3_diss(i,j,k) = CaCO3flux_u*recip_drF(k)
CaCO3flux_u = CaCO3flux_l
_RL CaCO3flux_u