From f746cef07baa683076f46798c7eb32937af944c9 Mon Sep 17 00:00:00 2001
From: Juan Escobar <juan.escobar@aero.obs-mip.fr>
Date: Fri, 1 Dec 2017 10:09:03 +0000
Subject: [PATCH] Juan 1/12/2017:nband_model.fx90, bug => intialized all ZV=0.0
in spectr
---
src/MNH/nband_model.fx90 | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/src/MNH/nband_model.fx90 b/src/MNH/nband_model.fx90
index 9a31f7d13..53afd5948 100644
--- a/src/MNH/nband_model.fx90
+++ b/src/MNH/nband_model.fx90
@@ -16,6 +16,7 @@
* and changed name of variables concerned
* indicated by "*MNH"
* named nband_model.f90 and compiled with -Fixed
+* J.Escobar (1/12/2017) bug => intialized all ZV=0.0 in spectr
SUBROUTINE NBMVEC
I ( KIDIA ,KFDIA ,KLON,KLEV,KGL,KCABS,KNG1,KUABS
I , KH2O ,KCO2 ,KO3,KCNT,KN2O,KCH4,KCO,KC11,KC12,KCFC
@@ -526,11 +527,12 @@ C
221 CONTINUE
DO 223 JABS=1,KUABS
DO 222 JL=KIDIA,KFDIA
- ZV(JL,JABS,JKSL)=0.
+C ZV(JL,JABS,JKSL)=0.
222 CONTINUE
223 CONTINUE
224 CONTINUE
C
+ ZV = 0.0
C
LLCNT=.FALSE.
*MNH IF (WNU(1).LT.CLIM(1) .OR. WNU(1).GE.CLIM(2)) ICNT=0
--
GitLab