i found in my his.nc,the erosion flux is eual to 0 all the time.
However, i changed in the sed_fluxes.F. I write the erosion flux to log file.
Code: Select all
! Compute erosion, ero_flux (kg/m2).
!
cff1=(1.0_r8-bed(i,j,1,iporo))*bed_frac(i,j,1,ised)
cff2=dt(ng)*Erate(ised,ng)*cff1
cff3=Srho(ised,ng)*cff1
cff4=bed_mass(i,j,1,bnew,ised)
ero_flux(i,j,ised)= &
& MIN(MAX(0.0_r8,cff2*(cff*tau_w(i,j)-1.0_r8)), &
& MIN(cff3*bottom(i,j,iactv),cff4)+ &
& settling_flux(i,j,ised))
!my adjust
write(*,*) ero_flux(60,40,1)
Why?