From 8f8524d8c76238d44d5438bad3893da10c80dbbf Mon Sep 17 00:00:00 2001
From: Gaelle Tanguy <gaelle.tanguy@meteo.fr>
Date: Wed, 14 May 2014 09:21:02 +0000
Subject: [PATCH] Gaelle 14/05/14 : pas d'interpolation des niveaux verticaux
---
tools/diachro/src/EXTRACTDIA/extractdia.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/tools/diachro/src/EXTRACTDIA/extractdia.f90 b/tools/diachro/src/EXTRACTDIA/extractdia.f90
index feddfd6b5..877f5bc84 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,' ', &
--
GitLab