Removing bad soil initialization

9d7f29ad · WURTZ Jean · WURTZ Jean · fd042796 · 9d7f29ad
Commit 9d7f29ad authored 2 years ago by WURTZ Jean Committed by WURTZ Jean 2 years ago
--- a/src/SURFEX/init_tebn.F90
+++ b/src/SURFEX/init_tebn.F90
@@ -463,7 +463,6 @@ DO JP=1,TOP%NTEB_PATCH
  IF (TOP%LGARDEN) THEN
     !
     IF (JP==1) THEN    
-       GDM%O%NGROUND_LAYER=TOP%NTEB_SOIL
       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)