From 6f527c591a54164c0ffdc058e30f77b183b90608 Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Fri, 27 Sep 2019 17:26:07 +0200
Subject: [PATCH] Quentin 27/09/2019: Correction for the emission if restart
---
src/MNH/paspol.f90 | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/MNH/paspol.f90 b/src/MNH/paspol.f90
index 4cab8bd6b..99af6a559 100644
--- a/src/MNH/paspol.f90
+++ b/src/MNH/paspol.f90
@@ -59,6 +59,7 @@ END MODULE MODI_PASPOL
!! C.Lac 11/11 Remove instant M
!! P.Wautelet 28/03/2018 Replace TEMPORAL_DIST by DATETIME_DISTANCE
!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O
+!! Quentin R.: 09/2019: correction for the emission if restart
!! --------------------------------------------------------------------------
!
!! EXTERNAL
@@ -527,7 +528,7 @@ DO JSV=1,NSV_PP
!
!
- IF (.NOT.GBEGEMIS(JSV)) THEN
+ IF (.NOT.GBEGEMIS(JSV) .AND. CCONF=='START') THEN
XRSVS(:,:,:,IP) = XRSVS(:,:,:,IP) &
+XRHODJ(:,:,:)*XSVT(:,:,:,IP)/PTSTEP
GBEGEMIS(JSV)= .TRUE.
--
GitLab