From be57a092f7e84b9d638e4b3d610c98763b8f48c5 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Mon, 25 Feb 2019 14:36:37 +0100
Subject: [PATCH] Philippe 25/02/2019: bug correction for the file unit numbers
---
src/MNH/ch_init_constn.f90 | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/src/MNH/ch_init_constn.f90 b/src/MNH/ch_init_constn.f90
index 4e306a0d0..198761771 100644
--- a/src/MNH/ch_init_constn.f90
+++ b/src/MNH/ch_init_constn.f90
@@ -1,6 +1,6 @@
-!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2001-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.
!-----------------------------------------------------------------
!! ################################
@@ -56,8 +56,8 @@ END MODULE MODI_CH_INIT_CONST_n
!! MODIFICATIONS
!! -------------
!! Original 16/02/01
-!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O
-
+! P. Wautelet: 05/2016-04/2018: new data structures and calls for I/O
+! P. Wautelet: 25/02/2019: bug correction for the file unit numbers
!! EXTERNAL
!! --------
USE MODI_CH_OPEN_INPUT ! open the general purpose ASCII input file
@@ -241,6 +241,7 @@ IF (KVERB >= 5) WRITE(KLUOUT,*) &
"CH_INIT_CONST: reading effective Henry constant", &
" and its temperature correction "
CALL CH_OPEN_INPUT(CCHEM_INPUT_FILE, "HENRY_SP", TZFILE, KLUOUT, KVERB)
+ICHANNEL = TZFILE%NLU
!
! read number of molecular diffusivity IHENRY
READ(ICHANNEL, *) IHENRY
--
GitLab