From 9812bf52d8a53a7329611a37c78a3d99a4bfd2d9 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 24 Nov 2023 16:09:08 +0100
Subject: [PATCH] Philippe 24/11/2023: write_lfin: correct units of some
 variables (to comply with MesoNH semantics)

---
 src/MNH/write_lfin.f90 | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/src/MNH/write_lfin.f90 b/src/MNH/write_lfin.f90
index e663656a9..b09dcfb7d 100644
--- a/src/MNH/write_lfin.f90
+++ b/src/MNH/write_lfin.f90
@@ -946,49 +946,49 @@ IF (MEAN_COUNT /= 0) THEN
 !
   TZFIELD%CMNHNAME   = 'QSPECME'
   TZFIELD%CLONGNAME  = 'QSPECME'
-  TZFIELD%CUNITS     = 'kg/kg'
+  TZFIELD%CUNITS     = 'kg kg-1'
   TZFIELD%CCOMMENT   = 'X_Y_Z_mean specific humidity'
   ZWORK3D = XQ_MEAN/MEAN_COUNT
   CALL IO_Field_write(TPFILE,TZFIELD,ZWORK3D)
 !
   TZFIELD%CMNHNAME   = 'RHME'
   TZFIELD%CLONGNAME  = 'RHME'
-  TZFIELD%CUNITS     = '%'
+  TZFIELD%CUNITS     = 'percent'
   TZFIELD%CCOMMENT   = 'X_Y_Z_mean relative humidity, water'
   ZWORK3D = XRH_W_MEAN/MEAN_COUNT
   CALL IO_Field_write(TPFILE,TZFIELD,ZWORK3D)
 !
   TZFIELD%CMNHNAME   = 'RHME_ICE'
   TZFIELD%CLONGNAME  = 'RHME_ICE'
-  TZFIELD%CUNITS     = '%'
+  TZFIELD%CUNITS     = 'percent'
   TZFIELD%CCOMMENT   = 'X_Y_Z_mean relative humidity, ice'
   ZWORK3D = XRH_I_MEAN/MEAN_COUNT
   CALL IO_Field_write(TPFILE,TZFIELD,ZWORK3D)
 !
   TZFIELD%CMNHNAME   = 'RHME_WEIG'
   TZFIELD%CLONGNAME  = 'RHME_WEIG'
-  TZFIELD%CUNITS     = '%'
+  TZFIELD%CUNITS     = 'percent'
   TZFIELD%CCOMMENT   = 'X_Y_Z_mean relative humidity, weighted'
   ZWORK3D = XRH_P_MEAN/MEAN_COUNT
   CALL IO_Field_write(TPFILE,TZFIELD,ZWORK3D)
 !
   TZFIELD%CMNHNAME   = 'RHMAXME'
   TZFIELD%CLONGNAME  = 'RHMAXME'
-  TZFIELD%CUNITS     = '%'
+  TZFIELD%CUNITS     = 'percent'
   TZFIELD%CCOMMENT   = 'X_Y_Z_mean column maximum relative humidity, water'
   ZWORK2D = XRH_W_MAXCOL_MEAN/MEAN_COUNT
   CALL IO_Field_write(TPFILE,TZFIELD,ZWORK3D)
 !
   TZFIELD%CMNHNAME   = 'RHMAXME_ICE'
   TZFIELD%CLONGNAME  = 'RHMAXME_ICE'
-  TZFIELD%CUNITS     = '%'
+  TZFIELD%CUNITS     = 'percent'
   TZFIELD%CCOMMENT   = 'X_Y_Z_mean column maximum relative humidity, ice'
   ZWORK2D = XRH_I_MAXCOL_MEAN/MEAN_COUNT
   CALL IO_Field_write(TPFILE,TZFIELD,ZWORK3D)
 !
   TZFIELD%CMNHNAME   = 'RHMAXME_WEIG'
   TZFIELD%CLONGNAME  = 'RHMAXME_WEIG'
-  TZFIELD%CUNITS     = '%'
+  TZFIELD%CUNITS     = 'percent'
   TZFIELD%CCOMMENT   = 'X_Y_Z_mean column maximum relative humidity, weighted'
   ZWORK2D = XRH_P_MAXCOL_MEAN/MEAN_COUNT
   CALL IO_Field_write(TPFILE,TZFIELD,ZWORK3D)
-- 
GitLab