diff --git a/tools/diachro/src/EXTRACTDIA/extractdia.f90 b/tools/diachro/src/EXTRACTDIA/extractdia.f90 index feddfd6b56c475f4e02a72d4a7ee961daaa52825..877f5bc84ace8e1c8b7ee8e03bbd3f1b1bbbd809 100644 --- a/tools/diachro/src/EXTRACTDIA/extractdia.f90 +++ b/tools/diachro/src/EXTRACTDIA/extractdia.f90 @@ -1051,8 +1051,8 @@ DO JGR=1,10000 CUNITE(1)='hPa' ENDIF ENDIF - ! b. interpolation eventuelle selon la verticale - IF( SIZE(XVAR,3)>1 .AND. SIZE(XVAR,2)>1 .AND. SIZE(XVAR,1)>1 ) THEN + ! b. interpolation eventuelle selon la verticale + IF( SIZE(XVAR,3)>1 .AND. CGROUP /= 'VLEV' ) THEN ! VLEV, LON, LAT et chps 2D ne passent pas cette partie if (ilocverbia >= 0 ) then print*,' Interpolations on ',inbvertz,' ', &