From 16ce645b3c835122485d2453e35254816b52baa6 Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Tue, 9 Jul 2019 15:41:03 +0200 Subject: [PATCH] Philippe 09/07/2019: correct/complete use mode_*_ll --- src/MNH/advection_metsv.f90 | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/MNH/advection_metsv.f90 b/src/MNH/advection_metsv.f90 index d2e8df403..dcb20d0ee 100644 --- a/src/MNH/advection_metsv.f90 +++ b/src/MNH/advection_metsv.f90 @@ -144,7 +144,6 @@ END MODULE MODI_ADVECTION_METSV ! #ifdef _OPENACC USE MODD_MPIF -USE MODD_PARAMETERS_ll, ONLY: JPVEXT use modd_precision, only: MNHREAL_MPI USE MODD_VAR_ll, ONLY: NMNH_COMM_WORLD #endif @@ -160,12 +159,14 @@ USE MODD_BLOWSNOW USE MODD_BLOWSNOW_n USE MODD_PARAMETERS ! -use mode_argslist_ll, only: ADD3DFIELD_ll, ADD4DFIELD_ll, CLEANLIST_ll +use mode_argslist_ll, only: ADD3DFIELD_ll, ADD4DFIELD_ll, CLEANLIST_ll, LIST_ll +use mode_exchange_ll, only: UPDATE_HALO_ll USE MODE_FIELD, ONLY: TFIELDDATA, TYPEREAL USE MODE_IO_FIELD_WRITE, only: IO_Field_write -USE MODE_ll use mode_mppdb USE MODE_MSG +use mode_sum_ll, only: MAX_ll +use mode_tools_ll, only: GET_INDICE_ll, lnorth_ll, lsouth_ll, least_ll, lwest_ll ! USE MODI_ADV_BOUNDARIES USE MODI_BUDGET -- GitLab