From ca5f3a423627b08b3000f49fb50dc97e26f78def Mon Sep 17 00:00:00 2001
From: Juan Escobar <juan.escobar@aero.obs-mip.fr>
Date: Mon, 2 May 2016 13:33:49 +0000
Subject: [PATCH] Juan 27/04/2016 : bug , test only on
ANY(HGETSVM({{1:KSV}})=='READ'
---
src/MNH/ini_lb.f90 | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/MNH/ini_lb.f90 b/src/MNH/ini_lb.f90
index 08760e2d3..86a1a71b8 100644
--- a/src/MNH/ini_lb.f90
+++ b/src/MNH/ini_lb.f90
@@ -126,6 +126,7 @@ SUBROUTINE INI_LB(HINIFILE,HLUOUT,OLSOURCE,KSV, &
!! M.Leriche 16/07/10 Add ice phase chemical species
!! Pialat/tulet 15/02/12 Add ForeFire scalars
!! J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1
+!! J.Escobar : 27/04/2016 : bug , test only on ANY(HGETSVM({{1:KSV}})=='READ'
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -491,7 +492,7 @@ END IF
!* 2.6 LB-Scalar Variables
!
IF (KSV > 0) THEN
- IF (ANY(HGETSVM(:)=='READ')) THEN
+ IF (ANY(HGETSVM(1:KSV)=='READ')) THEN
YRECFM = 'HORELAX_SV'
YDIR='--'
CALL FMREAD(HINIFILE,YRECFM,HLUOUT,YDIR,GHORELAX_SV,IGRID,ILENCH,YCOMMENT,IRESP)
--
GitLab