From 04ba2dd3e279b84f6ce7134f467c67f9402caf80 Mon Sep 17 00:00:00 2001
From: Jean-Matthieu Etancelin <jean-matthieu.etancelin@imag.fr>
Date: Fri, 28 Feb 2014 15:34:55 +0000
Subject: [PATCH] Fix small bug
---
HySoP/hysop/f2py/scales2py.f90 | 2 +-
HySoP/src/scalesInterface/particles/advec_Vector.f90 | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/HySoP/hysop/f2py/scales2py.f90 b/HySoP/hysop/f2py/scales2py.f90
index cca8fea00..264aeeff0 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 573f3488f..6ddef2ca6 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
--
GitLab