Skip to content
Snippets Groups Projects
Commit 9809bc1e authored by Jean-Baptiste Lagaert's avatar Jean-Baptiste Lagaert
Browse files

[fix] Il manquait deux "use".

parent 1ca87d70
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
HySoP/src/scalesInterface/particles/advec.f90
+ 4
− 0
View file @ 9809bc1e
...@@ -215,6 +215,8 @@ end subroutine advec_setup_alongZ ...@@ -215,6 +215,8 @@ end subroutine advec_setup_alongZ
!! @param[in,out] scal = scalar field to advect !! @param[in,out] scal = scalar field to advect
subroutine advec_step_Inter_basic(dt, Vx, Vy, Vz, scal) subroutine advec_step_Inter_basic(dt, Vx, Vy, Vz, scal)
use cart_topology, only : mesh_sc, mesh_V, cart_rank
! Input/Output ! Input/Output
real(WP), intent(in) :: dt real(WP), intent(in) :: dt
real(WP), dimension(:,:,:), intent(in) :: Vx, Vy, Vz real(WP), dimension(:,:,:), intent(in) :: Vx, Vy, Vz
...@@ -252,6 +254,8 @@ end subroutine advec_step_Inter_basic ...@@ -252,6 +254,8 @@ end subroutine advec_step_Inter_basic
!! @param[in,out] scal = scalar field to advect !! @param[in,out] scal = scalar field to advect
subroutine advec_step_Inter_Two(dt, Vx, Vy, Vz, scal) subroutine advec_step_Inter_Two(dt, Vx, Vy, Vz, scal)
use cart_topology, only : mesh_sc, mesh_V, cart_rank
! Input/Output ! Input/Output
real(WP), intent(in) :: dt real(WP), intent(in) :: dt
real(WP), dimension(:,:,:), intent(in) :: Vx, Vy, Vz real(WP), dimension(:,:,:), intent(in) :: Vx, Vy, Vz
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment