From ebc6ba386b60b4ca0ff44afa8944182bd6c03e04 Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Thu, 6 Apr 2023 16:16:12 +0200 Subject: [PATCH] Philippe 05/04/2023: POSNAM: modernisation + improvements --- src/MNH/read_exspa.f90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/MNH/read_exspa.f90 b/src/MNH/read_exspa.f90 index f2b15fa20..dd261a9bc 100644 --- a/src/MNH/read_exspa.f90 +++ b/src/MNH/read_exspa.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1996-2019 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1996-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. @@ -225,18 +225,18 @@ IXOR=NUNDEF IYOR=NUNDEF GBAL_ONLY=.FALSE. ! -CALL POSNAM(ILUSPA,'NAM_GRID2_SPA',GFOUND,ILUOUT) +CALL POSNAM( TZNMLFILE, 'NAM_GRID2_SPA', GFOUND ) IF (GFOUND) READ(ILUSPA,NAM_GRID2_SPA) ! CINIFILE = LUNIT_MODEL(1)%CINIFILE !To respect default values CINIFILEPGD = LUNIT_MODEL(1)%CINIFILEPGD !To respect default values ! -CALL POSNAM(ILUSPA,'NAM_LUNIT2_SPA',GFOUND,ILUOUT) +CALL POSNAM( TZNMLFILE, 'NAM_LUNIT2_SPA', GFOUND ) IF (GFOUND) READ(ILUSPA,NAM_LUNIT2_SPA) LUNIT_MODEL(2)%CINIFILE = CINIFILE LUNIT_MODEL(2)%CINIFILEPGD = CINIFILEPGD ! -CALL POSNAM(ILUSPA,'NAM_CONFIO',GFOUND,ILUOUT) +CALL POSNAM( TZNMLFILE, 'NAM_CONFIO', GFOUND ) IF (GFOUND) READ(ILUSPA,NAM_CONFIO) ! CALL IO_Config_set() -- GitLab