diff --git a/src/MNH/read_exspa.f90 b/src/MNH/read_exspa.f90 index f2b15fa20424d42bb1a3d96e232ad0ad479b5926..dd261a9bc94cb7e5443222203b5816a8a655c1d3 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()