Juan 14/04/2016: bug correction: initialized NDXRATIO_ALL and NDYRATIO_ALL variables

diff --git a/src/MNH/prep_nest_pgd.f90 b/src/MNH/prep_nest_pgd.f90
index a419252..5393c8b 100644 (file)
--- a/src/MNH/prep_nest_pgd.f90
+++ b/src/MNH/prep_nest_pgd.f90
@@ -139,6 +139,8 @@ USE MODD_VAR_ll, ONLY : NPROC, IP, NMNH_COMM_WORLD
 USE MODE_MNH_WORLD, ONLY : INIT_NMNH_COMM_WORLD
 USE MODE_MPPDB
 !
+USE MODD_DIM_n
+
 IMPLICIT NONE
 !
 !*       0.1   Declaration of local variables
@@ -239,6 +241,8 @@ DO JPGD=1,NMODEL
     NXEND_ALL(JPGD) = IIMAX+2*JPHEXT
     NYOR_ALL(JPGD) = 1
     NYEND_ALL(JPGD) = IJMAX+2*JPHEXT
+    NDXRATIO_ALL(JPGD) = 1
+    NDYRATIO_ALL(JPGD) = 1
   ENDIF
   ! initialize variables from MODD_DIM_ll, origin and end of global model JPGD in coordinates of its father
   CALL SET_XOR_ll(NXOR_ALL(JPGD), JPGD)