From e19cea88d6a9cc01ae2ae826861535c09869d0f2 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Mon, 30 Oct 2017 14:04:38 +0100
Subject: [PATCH] Philippe 30/10/2017: IO: DIAG: minor bug correction: renamed
field PABST in PRES (when written in hPa)
---
src/MNH/write_lfifm1_for_diag.f90 | 1 +
1 file changed, 1 insertion(+)
diff --git a/src/MNH/write_lfifm1_for_diag.f90 b/src/MNH/write_lfifm1_for_diag.f90
index 8be8a3272..600e0385a 100644
--- a/src/MNH/write_lfifm1_for_diag.f90
+++ b/src/MNH/write_lfifm1_for_diag.f90
@@ -2047,6 +2047,7 @@ IF (LTPZH .OR. LCOREF) THEN
!* Pressure in hPa
CALL FIND_FIELD_ID_FROM_MNHNAME('PABST',IID,IRESP)
TZFIELD = TFIELDLIST(IID)
+ TZFIELD%CMNHNAME = 'PRES'
TZFIELD%CUNITS = 'hPa'
CALL IO_WRITE_FIELD(TPFILE,TZFIELD,XPABST(:,:,:)*1E-2)
!
--
GitLab