Skip to content
Snippets Groups Projects
Commit ce0b3546 authored by Juan Escobar's avatar Juan Escobar
Browse files

Juan 01/06/2018: COUPLING , mode_read_netcdf_mercator.F90 phasage(minimum) with bug SURFEX8.1

parent 1ca18aee
No related branches found
No related tags found
No related merge requests found
......@@ -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)
!
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment