From 4aae45dae8e29b3f1269f3019a49b4575674eca6 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 31 Aug 2023 13:30:32 +0200
Subject: [PATCH] Philippe 31/08/2023: IO: use TFIELDMETADATA constructor for
 CLDFRMAX

---
 src/MNH/write_lfifm1_for_diag_supp.f90 | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

diff --git a/src/MNH/write_lfifm1_for_diag_supp.f90 b/src/MNH/write_lfifm1_for_diag_supp.f90
index 33e3d1c32..7af90ee87 100644
--- a/src/MNH/write_lfifm1_for_diag_supp.f90
+++ b/src/MNH/write_lfifm1_for_diag_supp.f90
@@ -441,16 +441,17 @@ IF (LCLD_COV .AND. LUSERC) THEN
   ZWORK21(:,:)=0.0
   ZWORK21(IIB:IIE,IJB:IJE)=MAXVAL(XCLDFR(IIB:IIE,IJB:IJE,JPVEXT+1:IKE),DIM=3)
  
-  TZFIELD%CMNHNAME   = 'CLDFRMAX'
-  TZFIELD%CSTDNAME   = 'max_cloud_fraction'
-  TZFIELD%CLONGNAME  = 'CLDFRMAX'
-  TZFIELD%CUNITS     = '1'
-  TZFIELD%CDIR       = 'XY'
-  TZFIELD%CCOMMENT   = 'X_Y_MAx of CLoud fraction'
-  TZFIELD%NGRID      = 1
-  TZFIELD%NTYPE      = TYPEREAL
-  TZFIELD%NDIMS      = 2
-  TZFIELD%LTIMEDEP   = .TRUE.
+  TZFIELD = TFIELDMETADATA(                  &
+    CMNHNAME   = 'CLDFRMAX',                 &
+    !Invalid CF convention standard name: CSTDNAME   = 'max_cloud_fraction', &
+    CLONGNAME  = 'CLDFRMAX',                 &
+    CUNITS     = '1',                        &
+    CDIR       = 'XY',                       &
+    CCOMMENT   = 'X_Y_MAx of CLoud fraction, &
+    NGRID      = 1,                          &
+    NTYPE      = TYPEREAL,                   &
+    NDIMS      = 2,                          &
+    LTIMEDEP   = .TRUE.                      )
   CALL IO_Field_write(TPFILE,TZFIELD,ZWORK21)
   !
 !  Visibility                                    
-- 
GitLab