From ce0b35469c95c17fe336931a875640a7494f3783 Mon Sep 17 00:00:00 2001
From: Juan Escobar <escj@aero.obs-mip.fr>
Date: Fri, 1 Jun 2018 15:09:33 +0200
Subject: [PATCH] Juan 01/06/2018: COUPLING , mode_read_netcdf_mercator.F90
phasage(minimum) with bug SURFEX8.1
---
src/OASIS/SURFEX/mode_read_netcdf_mercator.F90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/OASIS/SURFEX/mode_read_netcdf_mercator.F90 b/src/OASIS/SURFEX/mode_read_netcdf_mercator.F90
index b8384b97f..ad51a19ab 100644
--- a/src/OASIS/SURFEX/mode_read_netcdf_mercator.F90
+++ b/src/OASIS/SURFEX/mode_read_netcdf_mercator.F90
@@ -734,7 +734,7 @@ IF (ALLOCATED(XLAT_OUT)) THEN
IINLA = NINLAT
ALLOCATE(NINLOH(IINLA+4))
CALL HORIBL_SURF_INIT(XILAT1,XILON1,XILAT2,XILON2,NINLAT,NINLON, &
- INO,XLON_OUT,XLAT_OUT,LINTERP,LGLOBLON,&
+ INO,XLON_OUT,XLAT_OUT,LINTERP,.FALSE.,LGLOBLON,&
LGLOBN,LGLOBS,NO,NINLOH,XOLA,XOLO,XILO1H,&
XILO2H,XLA,XILATARRAY)
!
--
GitLab