From 5080f5dfc6b84f570f0da3ce41fa3c04f62a41d1 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 11 Jan 2019 14:56:22 +0100
Subject: [PATCH] Philippe 11/01/2019: bug in write XBL_DEPTH->XSBL_DEPTH

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

diff --git a/src/MNH/write_lfin.f90 b/src/MNH/write_lfin.f90
index ee365cd0d..43257ca72 100644
--- a/src/MNH/write_lfin.f90
+++ b/src/MNH/write_lfin.f90
@@ -1,6 +1,6 @@
-!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 1994-2019 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 version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
 !MNH_LIC for details. version 1.
 !-----------------------------------------------------------------
 !     #########################
@@ -168,6 +168,7 @@ END MODULE MODI_WRITE_LFIFM_n
 !!                   02/2018 Q.Libois move Diagnostic related to the radiations in radiations.f90
 !!  Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O
 !!       V. Vionnet    07/2017, add blowing snow variables
+!!       P.Wautelet    11/01/2019: bug correction in write XBL_DEPTH->XSBL_DEPTH
 !!                   
 !-------------------------------------------------------------------------------
 !
@@ -1412,7 +1413,7 @@ IF( CTURB /= 'NONE' .AND. CTOM=='TM06') THEN
 END IF
 !
 IF( CTURB /= 'NONE' .AND. LRMC01) THEN
-  CALL IO_WRITE_FIELD(TPFILE,'SBL_DEPTH',XBL_DEPTH)
+  CALL IO_WRITE_FIELD(TPFILE,'SBL_DEPTH',XSBL_DEPTH)
 END IF
 !
 IF( CTURB /= 'NONE' .AND. CSCONV == 'EDKF' .AND.(CPROGRAM == 'MESONH' .OR. CPROGRAM == 'DIAG')) THEN
-- 
GitLab