diff --git a/src/MNH/advection_metsv.f90 b/src/MNH/advection_metsv.f90 index d2e8df403d594c60e03f029ff88f576fdea7220a..dcb20d0ee3670eab087f69d90bf29ed8833ce485 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