From 5931f1b8fae0f3a843a0b60907e46a21d5adbd89 Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Fri, 14 Jan 2022 15:44:36 +0100 Subject: [PATCH] Philippe 14/01/2022: 1 LINI_NSV for each model --- src/MNH/ini_nsv.f90 | 2 +- src/MNH/modd_nsv.f90 | 4 ++-- src/MNH/update_nsv.f90 | 4 ++-- 3 files changed, 5 insertions(+), 5 deletions(-) diff --git a/src/MNH/ini_nsv.f90 b/src/MNH/ini_nsv.f90 index 072ec322b..8b50992fb 100644 --- a/src/MNH/ini_nsv.f90 +++ b/src/MNH/ini_nsv.f90 @@ -148,7 +148,7 @@ INTEGER :: JMODE, JMOM, JSV_NAME ! !------------------------------------------------------------------------------- ! -LINI_NSV = .TRUE. +LINI_NSV(KMI) = .TRUE. ILUOUT = TLUOUT%NLU ! diff --git a/src/MNH/modd_nsv.f90 b/src/MNH/modd_nsv.f90 index 1f152e85a..6ab654ead 100644 --- a/src/MNH/modd_nsv.f90 +++ b/src/MNH/modd_nsv.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 2001-2021 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2001-2022 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. @@ -46,7 +46,7 @@ SAVE ! REAL,DIMENSION(JPSVMAX) :: XSVMIN ! minimum value for SV variables ! -LOGICAL :: LINI_NSV = .FALSE. ! becomes True when routine INI_NSV is called +LOGICAL :: LINI_NSV(JPMODELMAX) = .FALSE. ! becomes True when routine INI_NSV is called ! CHARACTER(LEN=JPSVNAMELGTMAX), DIMENSION(:,:), ALLOCATABLE, TARGET :: CSVNAMES_A !Names of all the scalar variables TYPE(tfieldmetadata), DIMENSION(:,:), ALLOCATABLE, TARGET :: TSVLIST_A !Metadata of all the scalar variables diff --git a/src/MNH/update_nsv.f90 b/src/MNH/update_nsv.f90 index 6e2e7f502..58b3abc9e 100644 --- a/src/MNH/update_nsv.f90 +++ b/src/MNH/update_nsv.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 2001-2021 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2001-2022 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. @@ -45,7 +45,7 @@ INTEGER :: JI, JJ TYPE(tfieldmetadata), DIMENSION(:,:), ALLOCATABLE :: YSVLIST_TMP ! ! STOP if INI_NSV has not be called yet -IF (.NOT. LINI_NSV) THEN +IF ( .NOT. LINI_NSV(KMI) ) THEN call Print_msg( NVERB_FATAL, 'GEN', 'UPDATE_NSV', 'can not continue because INI_NSV was not called' ) END IF ! -- GitLab