From 5e8dc8dd1d3da9644c370135fd423ae681af50bc Mon Sep 17 00:00:00 2001
From: Philippe Wautelet <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 14 Apr 2016 15:22:54 +0000
Subject: [PATCH] Juan 14/04/2016: bug correction: initialized NDXRATIO_ALL and
NDYRATIO_ALL variables
---
src/MNH/prep_nest_pgd.f90 | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/src/MNH/prep_nest_pgd.f90 b/src/MNH/prep_nest_pgd.f90
index a4192527a..5393c8ba7 100644
--- 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)
--
GitLab