Skip to content
Snippets Groups Projects
Commit 7a64297c authored by RODIER Quentin's avatar RODIER Quentin
Browse files

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
parent e08880e9
No related branches found
No related tags found
No related merge requests found
......@@ -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
!
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment