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

Quentin 08/08/2024: bugfix of 34568d5a in which PDATA_GARDEN is init to XUNDEF...

Quentin 08/08/2024: bugfix of 34568d5a in which PDATA_GARDEN is init to XUNDEF (and not 0 as before);
some points with DATA_TOWN==0 has now XUNDEF value for DATA_GARDEN which is not possible
parent be0d2bd2
No related branches found
No related tags found
No related merge requests found
...@@ -155,7 +155,8 @@ IF(OTOWN_TO_ROCK)THEN ...@@ -155,7 +155,8 @@ IF(OTOWN_TO_ROCK)THEN
IF (OECOSG) DTCO%XDATA_VEGTYPE(SUM(NTYPE(1:3))+1:SUM(NTYPE(1:3))+10,NVT_ROCK)=1. ! #rustine IF (OECOSG) DTCO%XDATA_VEGTYPE(SUM(NTYPE(1:3))+1:SUM(NTYPE(1:3))+10,NVT_ROCK)=1. ! #rustine
! !
DO JCOVER=1,JPCOVER DO JCOVER=1,JPCOVER
IF(DTCO%XDATA_TOWN(JCOVER)>0.0.OR.DTCO%XDATA_GARDEN(JCOVER)>0.0)THEN
IF(DTCO%XDATA_TOWN(JCOVER)>0.0.OR.DTCO%XDATA_GARDEN(JCOVER)>0.0 .AND. .NOT. DTCO%XDATA_GARDEN(JCOVER)==XUNDEF )THEN
! !
DTCO%XDATA_NATURE(JCOVER) = DTCO%XDATA_NATURE(JCOVER) + DTCO%XDATA_GARDEN(JCOVER) * DTCO%XDATA_TOWN(JCOVER) DTCO%XDATA_NATURE(JCOVER) = DTCO%XDATA_NATURE(JCOVER) + DTCO%XDATA_GARDEN(JCOVER) * DTCO%XDATA_TOWN(JCOVER)
DTCO%XDATA_TOWN (JCOVER) = DTCO%XDATA_TOWN (JCOVER) * ( 1. - DTCO%XDATA_GARDEN(JCOVER)) DTCO%XDATA_TOWN (JCOVER) = DTCO%XDATA_TOWN (JCOVER) * ( 1. - DTCO%XDATA_GARDEN(JCOVER))
......
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