Hi again Pablo, after some research I have been able to locate the variable FLUER (erosion flux). This is the variable I have added the splash erosion to.
I added g/DT due to splash erosion to this section in the suspension_computation.f subroutine.
!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
! 3. EROSION FLUX : FLUER
!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
!
!
! SKIN FRICTION TAUP --> T4
!
CALL OS('X=CYZ ', X= T4, Y= TOB, Z= MU, C=1.D0)
CALL OS('X=+(Y,C)', X=T4, Y=T4, C=ZERO)
!
! SAND ONLY
!
IF(.NOT.MIXTE) THEN
IF(.NOT.SEDCO) THEN
IF (DEBUG > 0) WRITE(LU,*) 'SUSPENSION_EROSION'
CALL SUSPENSION_EROSION(T4,HN,FDM,FD90,AVA,NPOIN,CHARR,XMVE,
& XMVS,VCE,GRAV,HMIN,XWC,ZERO,
& ZREF,AC,FLUER,CSTAEQ,QS_C,ICQ,U2D,V2D,
& CSRATIO,T14,DEBUG)
IF (DEBUG > 0) WRITE(LU,*) 'END_SUSPENSION_EROSION'
!
! NOTE JMH : THIS SHOULD BE INCLUDED IN SUSPENSION_EROSION
!
DO I=1,NPOIN
FLUER%R(I)=MIN(FLUER%R(I),ELAY%R(I)*AVA(I)/DT*CSF_SABLE) +
& splash_ero
ENDDO
!
but doing some test I realized that NPOIN (NUMBER OF POINTS IN THE MESH) value is less that the total number of points in my mesh. I was able to associate a number point of the mesh whit an area corresponding to that point in the mesh. but the DO I=1,NPOIN goes to a lesser number that my actual number of points.
This led me to believe that I adding this term to the wrong part of the code or subroutine.
And does anyone know why NPOIN is less than the points in my mesh?.
What units should is use to add the splash erosion to FLUER?
Grettings,
Chelo.