From b4972bbf4ad116c1e53519e71aa3ed05d5805161 Mon Sep 17 00:00:00 2001
From: WURTZ Jean <wurtzj@sxville>
Date: Tue, 7 Feb 2023 17:15:57 +0100
Subject: [PATCH] Jean Wurtz: Changing call for TEB multi-layer coupling

---
 src/SURFEX/prep_hor_isba_field.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/SURFEX/prep_hor_isba_field.F90 b/src/SURFEX/prep_hor_isba_field.F90
index 674cd3d6a..86fedd0b9 100644
--- a/src/SURFEX/prep_hor_isba_field.F90
+++ b/src/SURFEX/prep_hor_isba_field.F90
@@ -295,7 +295,7 @@ IF (YDCTL%LPART1) THEN
   IF (GUNIF) THEN
     CALL PREP_ISBA_UNIF(ILUOUT,HSURF,ZFIELDIN)
   ELSE IF (YFILETYPE=='ASCLLV') THEN
-    CALL PREP_ISBA_ASCLLV(DTCO, UG, U, USS, HPROGRAM,HSURF,ILUOUT,ZFIELDIN)
+    CALL PREP_ISBA_ASCLLV(DTCO, UG, U, USS, S, IO, HPROGRAM,HSURF,ILUOUT,ZFIELDIN)
   ELSE IF (YFILETYPE=='GRIB  ') THEN
     CALL PREP_GRIB_GRID(YFILE,ILUOUT,CINMODEL,CINGRID_TYPE,CINTERP_TYPE,TZTIME_GRIB)        
     IF (NRANK==NPIO) CALL PREP_ISBA_GRIB(HPROGRAM,HSURF,YFILE,ILUOUT,ZFIELDIN)        
-- 
GitLab