diff --git a/src/SURFEX/init_tebn.F90 b/src/SURFEX/init_tebn.F90 index 3cc24cab95e9c6a80eef346cb6cef8b1437c159a..26aa3ff0bae7a71d9d8a888e9817c67dedec533c 100644 --- a/src/SURFEX/init_tebn.F90 +++ b/src/SURFEX/init_tebn.F90 @@ -463,7 +463,7 @@ DO JP=1,TOP%NTEB_PATCH IF (TOP%LGARDEN) THEN ! IF (JP==1) THEN - CALL SET_SURFEX_FILEIN(HPROGRAM,'PGD ') ! change input file name to pgd name + CALL SET_SURFEX_FILEIN(HPROGRAM,'PGD ') ! change input file name to pgd name CALL INIT_IO_SURF_n(DTCO, U, HPROGRAM,'TOWN ','TEB ','READ ') CALL INIT_TEB_VEG_OPTIONS_n(CHT, TD%MTO%LSURF_DIAG_ALBEDO, TOP%LGREENROOF, GDM%O, GRM%O, TOP, HPROGRAM, HINIT) CALL END_IO_SURF_n(HPROGRAM) @@ -474,6 +474,8 @@ DO JP=1,TOP%NTEB_PATCH ALLOCATE(GDM%O%XSOILGRID(GDM%O%NGROUND_LAYER)) GDM%O%XSOILGRID = TOP%XTEB_SOILGRID END IF + ELSE + GDM%O%NGROUND_LAYER = TOP%NTEB_SOIL ! ENDIF !