Skip to content
Snippets Groups Projects
Commit 7bfde9a5 authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 01/02/2019: bug: forgotten if for iib=iie and XX (same as for YY)

parent 33fdea3d
No related branches found
No related tags found
No related merge requests found
!MNH_LIC Copyright 1997-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC Copyright 1997-2019 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1. !MNH_LIC for details. version 1.
...@@ -276,6 +276,7 @@ END SUBROUTINE WRITE_SURFX0_MNH ...@@ -276,6 +276,7 @@ END SUBROUTINE WRITE_SURFX0_MNH
!! !!
!! original 01/08/03 !! original 01/08/03
!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O !! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O
!! P. Wautelet 01/02/2019: bug: forgotten if for iib=iie and XX (same as for YY)
!---------------------------------------------------------------------------- !----------------------------------------------------------------------------
! !
!* 0. DECLARATIONS !* 0. DECLARATIONS
...@@ -425,7 +426,7 @@ IF ( (CSTORAGE_TYPE=='PG' .OR. CSTORAGE_TYPE=='SU') & ...@@ -425,7 +426,7 @@ IF ( (CSTORAGE_TYPE=='PG' .OR. CSTORAGE_TYPE=='SU') &
ZW1D( J1D) = 2. * ZW1D(J1D+1) - ZW1D(J1D+2) ZW1D( J1D) = 2. * ZW1D(J1D+1) - ZW1D(J1D+2)
ZW1D(IIU+1-J1D) = 2. * ZW1D(IIU-J1D) - ZW1D(IIU-J1D-1) ZW1D(IIU+1-J1D) = 2. * ZW1D(IIU-J1D) - ZW1D(IIU-J1D-1)
END DO END DO
ELSE IF (IIB==IIE .AND. HREC=='DX') THEN ELSE IF (IIB==IIE .AND. (HREC=='DX' .OR. HREC=='XX')) THEN
ZW1D(IIB-1) = - 0.5 * ZWORK(IIB,1+JPHEXT) ZW1D(IIB-1) = - 0.5 * ZWORK(IIB,1+JPHEXT)
ZW1D(IIB) = 0.5 * ZWORK(IIB,1+JPHEXT) ZW1D(IIB) = 0.5 * ZWORK(IIB,1+JPHEXT)
ZW1D(IIB+1) = 1.5 * ZWORK(IIB,1+JPHEXT) ZW1D(IIB+1) = 1.5 * ZWORK(IIB,1+JPHEXT)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment