diff --git a/src/MNH/write_lfifm1_for_diag.f90 b/src/MNH/write_lfifm1_for_diag.f90
index 8be8a3272cda800f1dc0c1db5110a5e1ef773e91..600e0385a2d30bda7a11186e1bd42b0d92bb135d 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)
 !