Philippe 30/10/2017: IO: DIAG: minor bug correction: renamed field PABST in...

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

@@ -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)
 !