fluidsolidsolve.F, solidsolve.F and fluidsolve.F combined for coupled(momentum) equation substep time intergration