From f1a2724cff24ee51113f0b13e62c2b2e6bf2d504 Mon Sep 17 00:00:00 2001 From: Quentin Rodier <quentin.rodier@meteo.fr> Date: Thu, 27 Jun 2019 15:17:23 +0200 Subject: [PATCH] Quentin 27/06/2019: remove unused namelist variable NDEPOSV SV budget (cherry picked from commit 254aa18eb4e2f56e4093e6040a38c56d02cf7df5) --- src/MNH/default_desfmn.f90 | 1 - src/MNH/modd_budget.f90 | 1 - src/MNH/modn_budget.f90 | 2 +- 3 files changed, 1 insertion(+), 3 deletions(-) diff --git a/src/MNH/default_desfmn.f90 b/src/MNH/default_desfmn.f90 index 26d24db0e..38c7bba55 100644 --- a/src/MNH/default_desfmn.f90 +++ b/src/MNH/default_desfmn.f90 @@ -873,7 +873,6 @@ IF (KMI == 1) THEN NHTURBSV = 0 NCHEMSV = 0 NNEGASV = 0 - NDEPOSV = 0 NDEPOTRSV = 0 ! ! diff --git a/src/MNH/modd_budget.f90 b/src/MNH/modd_budget.f90 index 15a8191b3..14387e9f0 100644 --- a/src/MNH/modd_budget.f90 +++ b/src/MNH/modd_budget.f90 @@ -555,7 +555,6 @@ INTEGER, SAVE :: NDIFSV ! numerical diffusion INTEGER, SAVE :: NRELSV ! relaxation INTEGER, SAVE :: NDCONVSV ! Deep CONVection INTEGER, SAVE :: NMAFLSV ! mass flux -INTEGER, SAVE :: NDEPOSV ! deposition on the ground INTEGER, SAVE :: NDEPOTRSV ! deposition on tree INTEGER, SAVE :: NHTURBSV ! horizontal turbulence INTEGER, SAVE :: NVTURBSV ! vertical turbulence diff --git a/src/MNH/modn_budget.f90 b/src/MNH/modn_budget.f90 index 7fb6f12e7..8d8376559 100644 --- a/src/MNH/modn_budget.f90 +++ b/src/MNH/modn_budget.f90 @@ -313,7 +313,7 @@ NAMELIST/NAM_BU_RSV/ LBU_RSV, NASSESV, NNESTSV, NADVSV, NFRCSV, & NDEPSQS, NAGGSQS, NAUTSQS, NRIMQS, NACCQS, NCMELQS, NWETGQS, & NDRYGQS, NNIISQS, NSEDIQS, NNEUTQS, & NDEPGQG, NRIMQG, NACCQG, NCMELQG, NCFRZQG, NWETGQG, NDRYGQG, & - NGMLTQG, NINDQG, NSEDIQG, NNEUTQG,NDEPOSV,NDEPOTRSV + NGMLTQG, NINDQG, NSEDIQG, NNEUTQG, NDEPOTRSV ! must add budget for hail ! END MODULE MODN_BUDGET -- GitLab