From 88b2d19b382f5453b50f84767099c24b19e4affe Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 22 Sep 2020 12:47:51 +0200
Subject: [PATCH] Philippe 20/09/2020: bugfix: use correct size in
IO_WRITE_FIELD_LB
---
src/MNH/write_lbn.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/MNH/write_lbn.f90 b/src/MNH/write_lbn.f90
index 0334fe22c..4117ac91b 100644
--- a/src/MNH/write_lbn.f90
+++ b/src/MNH/write_lbn.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 1998-2018 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1998-2020 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.
@@ -256,7 +256,7 @@ IF (NRR >=1) THEN
TZFIELD%CLONGNAME = 'LBYR'//YC(JRR)//'M'
TZFIELD%CLBTYPE = 'LBY'
TZFIELD%CCOMMENT = '2_Y_Z_LBYR'//YC(JRR)//'M'
- CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBXR_ll,XLBYRM(:,:,:,IRR))
+ CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBYR_ll,XLBYRM(:,:,:,IRR))
END IF
END IF
END DO
--
GitLab