From d0fd0e16eb9d496b042f813531bb4291ab6ab0bc Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Mon, 6 Feb 2023 15:27:03 +0100
Subject: [PATCH] Philippe 06/02/2023: fix for reading of LBX_* and LBY_*
fields for scalar variables
---
src/MNH/ini_lb.f90 | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/MNH/ini_lb.f90 b/src/MNH/ini_lb.f90
index a5da9cfcf..6b6bbd19f 100644
--- a/src/MNH/ini_lb.f90
+++ b/src/MNH/ini_lb.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1998-2022 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1998-2023 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
@@ -485,7 +485,7 @@ DO JSV = 1, NSV
YMNHNAME_BASE = TRIM( TZFIELD%CMNHNAME )
YLONGNAME_BASE = TRIM( TZFIELD%CLONGNAME )
- IF ( KSIZELBXSV_ll /= 0 .AND. SIZE( PLBXSVM, 1 ) /= 0 ) THEN
+ IF ( KSIZELBXSV_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBX_' // TRIM( YMNHNAME_BASE )
TZFIELD%CLONGNAME = 'LBX_' // TRIM( YLONGNAME_BASE )
@@ -569,7 +569,7 @@ DO JSV = 1, NSV
END IF
END IF
- IF ( KSIZELBYSV_ll /= 0 .AND. SIZE( PLBYSVM, 1 ) /= 0 ) THEN
+ IF ( KSIZELBYSV_ll /= 0 ) THEN
TZFIELD%CMNHNAME = 'LBY_' // TRIM( YMNHNAME_BASE )
TZFIELD%CLONGNAME = 'LBY_' // TRIM( YLONGNAME_BASE )
--
GitLab