Skip to content
Snippets Groups Projects
Commit 5e8dc8dd authored by WAUTELET Philippe's avatar WAUTELET Philippe Committed by WAUTELET Philippe
Browse files

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

parent 3908280f
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/MNH/prep_nest_pgd.f90
+ 4
− 0
View file @ 5e8dc8dd
...@@ -139,6 +139,8 @@ USE MODD_VAR_ll, ONLY : NPROC, IP, NMNH_COMM_WORLD ...@@ -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_MNH_WORLD, ONLY : INIT_NMNH_COMM_WORLD
USE MODE_MPPDB USE MODE_MPPDB
! !
USE MODD_DIM_n
IMPLICIT NONE IMPLICIT NONE
! !
!* 0.1 Declaration of local variables !* 0.1 Declaration of local variables
...@@ -239,6 +241,8 @@ DO JPGD=1,NMODEL ...@@ -239,6 +241,8 @@ DO JPGD=1,NMODEL
NXEND_ALL(JPGD) = IIMAX+2*JPHEXT NXEND_ALL(JPGD) = IIMAX+2*JPHEXT
NYOR_ALL(JPGD) = 1 NYOR_ALL(JPGD) = 1
NYEND_ALL(JPGD) = IJMAX+2*JPHEXT NYEND_ALL(JPGD) = IJMAX+2*JPHEXT
NDXRATIO_ALL(JPGD) = 1
NDYRATIO_ALL(JPGD) = 1
ENDIF ENDIF
! initialize variables from MODD_DIM_ll, origin and end of global model JPGD in coordinates of its father ! 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) CALL SET_XOR_ll(NXOR_ALL(JPGD), JPGD)
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme