diff --git a/src/MNH/relaxation.f90 b/src/MNH/relaxation.f90 index 13e62a4ab64a002543ff228b84df9a69e1ad9855..13fcc955d0d4534a9c6a61e51901beaa63d6ef29 100644 --- a/src/MNH/relaxation.f90 +++ b/src/MNH/relaxation.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2021 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -255,7 +255,7 @@ END MODULE MODI_RELAXATION !! 06/2011 (M.Chong) Case of ELEC !! 11/2011 (C.Lac) Adaptation to FIT temporal scheme !! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 -!! +! P. Wautelet 12/02/2021: bugfix: do not call budgets for all SV budgets if LRELAX2FW_ION=T !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS @@ -720,7 +720,8 @@ IF (LBUDGET_RG) CALL BUDGET (PRRS(:,:,:,6),11,'REL_BU_RRG') IF (LBUDGET_RH) CALL BUDGET (PRRS(:,:,:,7),12,'REL_BU_RRH') IF (LBUDGET_SV) THEN DO JSV=1,KSV - CALL BUDGET (PRSVS(:,:,:,JSV),JSV+12,'REL_BU_RSV') + IF ( .NOT. LRELAX2FW_ION .OR. (JSV .NE. NSV_ELECBEG .AND. JSV .NE. NSV_ELECEND)) & + CALL BUDGET (PRSVS(:,:,:,JSV),JSV+12,'REL_BU_RSV') END DO END IF !