Hello,
In sisyphe.f after the lines:
IF(SUSP)...
IF(SLIDE)...
IF(TASS)...
You could put the following lines :
Assuming that you want to add 2 cubic meters of sediment on point 3521
CALL OS('X=0 ',X=T3)
T3%R(3521)=2.D0*UNSV2D%R(3521)
CALL OS('X=X+Y ',X=ZF,Y=T3)
CALL OS('X=X+Y ',X=E,Y=T3)
or more simply if it is only on one point:
ZF%R(3521)=ZF%R(3521)*UNSV2D%R(3521)
E%R(3521)=E%R(3521)*UNSV2D%R(3521)
UNSV2D is 1/V2DPAR, V2DPAR is the area associated to nodes (finite volumes vision), or the integral of test functions (finite element vision).
Not tested ! And maybe my colleagues will have better ideas...
Regards,
Jean-Michel Hervouet