Skip to content
Snippets Groups Projects
Commit b4972bbf authored by WURTZ Jean's avatar WURTZ Jean
Browse files

Jean Wurtz: Changing call for TEB multi-layer coupling

parent a413e0e2
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/SURFEX/prep_hor_isba_field.F90
+ 1
− 1
View file @ b4972bbf
...@@ -295,7 +295,7 @@ IF (YDCTL%LPART1) THEN ...@@ -295,7 +295,7 @@ IF (YDCTL%LPART1) THEN
IF (GUNIF) THEN IF (GUNIF) THEN
CALL PREP_ISBA_UNIF(ILUOUT,HSURF,ZFIELDIN) CALL PREP_ISBA_UNIF(ILUOUT,HSURF,ZFIELDIN)
ELSE IF (YFILETYPE=='ASCLLV') THEN 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 ELSE IF (YFILETYPE=='GRIB ') THEN
CALL PREP_GRIB_GRID(YFILE,ILUOUT,CINMODEL,CINGRID_TYPE,CINTERP_TYPE,TZTIME_GRIB) 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) IF (NRANK==NPIO) CALL PREP_ISBA_GRIB(HPROGRAM,HSURF,YFILE,ILUOUT,ZFIELDIN)
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme