From ca18f45a937f8a04f09bb036aceb6ef36e7f43e5 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 31 Aug 2023 13:46:57 +0200
Subject: [PATCH] Philippe 31/08/2023: fix for previous commit
---
src/MNH/write_lfifm1_for_diag_supp.f90 | 20 ++++++++++----------
1 file changed, 10 insertions(+), 10 deletions(-)
diff --git a/src/MNH/write_lfifm1_for_diag_supp.f90 b/src/MNH/write_lfifm1_for_diag_supp.f90
index 7af90ee87..d55684efa 100644
--- a/src/MNH/write_lfifm1_for_diag_supp.f90
+++ b/src/MNH/write_lfifm1_for_diag_supp.f90
@@ -441,17 +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 = TFIELDMETADATA( &
- CMNHNAME = 'CLDFRMAX', &
+ 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. )
+ 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