From 168be8c259043b38dab6f13ba2cfe8b58ebc38d7 Mon Sep 17 00:00:00 2001
From: Juan Escobar <juan.escobar@aero.obs-mip.fr>
Date: Fri, 8 Jan 2016 10:07:34 +0000
Subject: [PATCH] Juan 8/01/2016: bug , missing YDIR=XY in READ
---
src/MNH/ini_param_elec.f90 | 2 ++
1 file changed, 2 insertions(+)
diff --git a/src/MNH/ini_param_elec.f90 b/src/MNH/ini_param_elec.f90
index 3b7808bba..e6b8039eb 100644
--- a/src/MNH/ini_param_elec.f90
+++ b/src/MNH/ini_param_elec.f90
@@ -81,6 +81,7 @@ END MODULE MODI_INI_PARAM_ELEC
!! +Fair weather field from Helsdon-Farley
!! (JGR, 1987, 5661-5675)
!! J.-P. Pinty jan 2015 tabulate the equations for Saunders
+!! J. Escobar 8/01/2016 bug , missing YDIR='XY' in READ
!!
!-------------------------------------------------------------------------------
!
@@ -354,6 +355,7 @@ XEW(:,:,:) = 0.
SELECT CASE(HGETSVM(NSV_ELECEND))
CASE ('READ')
YRECFM='NI_IAGGS'
+ YDIR='XY'
CALL FMREAD(HINIFILE,YRECFM,HLUOUT,YDIR,Z3D,IGRID,ILENCH, &
YCOMMENT,IRESP)
XNI_IAGGS(:,:,:) = Z3D(:,:,:)
--
GitLab