diff --git a/Source/vege.f90 b/Source/vege.f90 index 1a9f4c1a2f6..97a756aa217 100644 --- a/Source/vege.f90 +++ b/Source/vege.f90 @@ -719,10 +719,10 @@ SUBROUTINE FILL_BOUNDARY_VALUES IIO_2 = IIO JJO_2 = JJO SELECT CASE(IOR) - CASE( 1) ; IIO_2 = IIO - 1 - CASE(-1) ; IIO_2 = IIO + 1 - CASE( 2) ; JJO_2 = JJO - 1 - CASE(-2) ; JJO_2 = JJO + 1 + CASE(-1) ; IIO_2 = IIO - 1 + CASE( 1) ; IIO_2 = IIO + 1 + CASE(-2) ; JJO_2 = JJO - 1 + CASE( 2) ; JJO_2 = JJO + 1 END SELECT IF (PREDICTOR) THEN PHI_LS_OTHER = PHI_LS_OTHER + OMESH(NOM)%PHI_LS(IIO ,JJO )