Quentin 10/09/2022: read NPATCH_NAM and NPATCH_VEG from a PGD file. This is necessary

to make the PREP_NEST_PGD work as it reads PGD file and write it again.
to be used with revert commit 23dc1e45

src/SURFEX/read_pgd_isban.F90

@@ -322,17 +322,19 @@ ENDIF
 !* number of tiles
 !
 YRECFM='PATCH_NUMBER'
- CALL READ_SURF(HPROGRAM,YRECFM,IO%NPATCH,IRESP)
+CALL READ_SURF(HPROGRAM,YRECFM,IO%NPATCH,IRESP)
 !
 !!* Name of eatch tile (patch) #remove with 160character in output
 !!
-!ALLOCATE(DTV%CPATCH_NAME(IO%NPATCH,2))
-!DO JLAYER=1,IO%NPATCH
-!  WRITE(YRECFM,FMT='(A7,I2.2)') 'NPATCH_',JLAYER
-!  CALL READ_SURF(HPROGRAM,YRECFM,CWORK,IRESP)
-!  DTV%CPATCH_NAME(JLAYER,1) = CWORK(1:INDEX(CWORK,'-')-1)
-!  DTV%CPATCH_NAME(JLAYER,2) = CWORK(INDEX(CWORK,'-')+1:LEN_TRIM(CWORK))
-!ENDDO
+ALLOCATE(DTV%CPATCH_NAME(IO%NPATCH,2))
+DO JLAYER=1,IO%NPATCH
+  WRITE(YRECFM,FMT='(A10,I2.2)') 'NPATCH_NAM',JLAYER
+  CALL READ_SURF(HPROGRAM,YRECFM,DTV%CPATCH_NAME(JLAYER,1),IRESP)
+  !
+!* Composition of each patch (True / False liste + if ecosg and irrigated 'IRRIG ')  
+  WRITE(YRECFM,FMT='(A10,I2.2)') 'NPATCH_VEG',JLAYER
+  CALL READ_SURF(HPROGRAM,YRECFM,DTV%CPATCH_NAME(JLAYER,2),IRESP)
+ENDDO
 !
 !* logical vector indicating for which patches MEB should be applied
 !