Juan 14/04/2016: bug correction: initialized NDXRATIO_ALL and NDYRATIO_ALL variables
authorPhilippe Wautelet <philippe.wautelet@aero.obs-mip.fr>
Thu, 14 Apr 2016 15:22:54 +0000 (15:22 +0000)
committerPhilippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Thu, 19 May 2016 14:44:49 +0000 (16:44 +0200)
src/MNH/prep_nest_pgd.f90

index a419252..5393c8b 100644 (file)
@@ -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)