From 85e7273e6af62216b021b7dcee879b51f893fe6f Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Tue, 28 Apr 2020 11:13:37 +0200
Subject: [PATCH] Marc M. 28/04/2020: minor correction of ACPRT accumulated
precipitation conversion to mm taken into account twice in DIAG program in
written output
---
src/MNH/write_lfifm1_for_diag.f90 | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/MNH/write_lfifm1_for_diag.f90 b/src/MNH/write_lfifm1_for_diag.f90
index 1112c7191..1dbff4a57 100644
--- a/src/MNH/write_lfifm1_for_diag.f90
+++ b/src/MNH/write_lfifm1_for_diag.f90
@@ -665,11 +665,11 @@ IF (LVAR_PR .AND. LUSERR .AND. SIZE(XINPRR)>0 ) THEN
TZFIELD%CUNITS = 'mm hour-1'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZWORK21*3.6E6)
!
- ZWORK21(:,:) = (XACPRR(:,:) + XACPRS(:,:) + XACPRG(:,:))*1.0E3
+ ZWORK21(:,:) = XACPRR(:,:) + XACPRS(:,:) + XACPRG(:,:)
IF (SIZE(XINPRC) /= 0 ) &
- ZWORK21(:,:) = ZWORK21(:,:) + XACPRC(:,:)*1.0E3
+ ZWORK21(:,:) = ZWORK21(:,:) + XACPRC(:,:)
IF (SIZE(XINPRH) /= 0 ) &
- ZWORK21(:,:) = ZWORK21(:,:) + XACPRH(:,:)*1.0E3
+ ZWORK21(:,:) = ZWORK21(:,:) + XACPRH(:,:)
!
CALL FIND_FIELD_ID_FROM_MNHNAME('ACPRT',IID,IRESP)
TZFIELD = TFIELDLIST(IID)
--
GitLab