diff --git a/HySoP/hysop/f2py/scales2py.f90 b/HySoP/hysop/f2py/scales2py.f90 index cca8fea0071b496a3303526d01012d49a385e1a6..264aeeff039ded695430231d227b180e0f0a1a54 100755 --- a/HySoP/hysop/f2py/scales2py.f90 +++ b/HySoP/hysop/f2py/scales2py.f90 @@ -162,7 +162,7 @@ contains call advec_step_Inter_basic_Vect(dt, Vx, Vy, Vz, cx, cy, cz) - end subroutine solve_advection_inter_basic + end subroutine solve_advection_inter_basic_vec end module scales2py diff --git a/HySoP/src/scalesInterface/particles/advec_Vector.f90 b/HySoP/src/scalesInterface/particles/advec_Vector.f90 index 573f3488f30fdc8156ae3f65207d51b6979a25b7..6ddef2ca6290543c7c79e91df5a3ab5bad1b4922 100644 --- a/HySoP/src/scalesInterface/particles/advec_Vector.f90 +++ b/HySoP/src/scalesInterface/particles/advec_Vector.f90 @@ -72,7 +72,7 @@ end function !! @param[in,out] VectZ = Z component of vector to advect subroutine advec_step_Inter_basic_Vect(dt, Vx, Vy, Vz, vectX, vectY, vectZ) - use Interpolation_velo, only : Interpol_3D + use Interpolation_velo ! Input/Output real(WP), intent(in) :: dt