diff --git a/src/SURFEX/prep_hor_isba_field.F90 b/src/SURFEX/prep_hor_isba_field.F90 index 674cd3d6a817ac0b36c5fe6824a0f4c53b1d1396..86fedd0b9403eaeadf3682025ba784c43a624020 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)