Juan 8/01/2016: bug , missing YDIR=XY in READ
authorJuan Escobar <juan.escobar@aero.obs-mip.fr>
Fri, 8 Jan 2016 10:07:34 +0000 (10:07 +0000)
committerPhilippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Thu, 19 May 2016 14:44:49 +0000 (16:44 +0200)
src/MNH/ini_param_elec.f90

index 3b7808b..e6b8039 100644 (file)
@@ -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(:,:,:)