Gaelle 14/05/14 : pas d'interpolation des niveaux verticaux

8f8524d8 · Gaelle Tanguy · WAUTELET Philippe · 3db1f095 · 8f8524d8
Commit 8f8524d8 authored 10 years ago by Gaelle Tanguy Committed by WAUTELET Philippe 8 years ago
--- 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 
+        ! b. interpolation eventuelle selon la verticale
-          IF( SIZE(XVAR,3)>1 .AND. SIZE(XVAR,2)>1 .AND. SIZE(XVAR,1)>1 ) THEN
+          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,' ', &