From ad09904a78d466c001e005d21f4b1ea239351076 Mon Sep 17 00:00:00 2001
From: Gaelle Tanguy <gaelle.tanguy@meteo.fr>
Date: Fri, 4 Jul 2014 10:10:30 +0000
Subject: [PATCH] Gaelle 04/07/2014 : correction bug interpolation z (llzv LLZV
IJZV jizv ZCDL ZGRB)
---
tools/diachro/src/EXTRACTDIA/extractdia.f90 | 2 ++
1 file changed, 2 insertions(+)
diff --git a/tools/diachro/src/EXTRACTDIA/extractdia.f90 b/tools/diachro/src/EXTRACTDIA/extractdia.f90
index 877f5bc84..d504b4625 100644
--- a/tools/diachro/src/EXTRACTDIA/extractdia.f90
+++ b/tools/diachro/src/EXTRACTDIA/extractdia.f90
@@ -1019,6 +1019,7 @@ DO JGR=1,10000
ZWORK3D(:,:,:)=XVAR(:,:,:,J4,J5,J6)
print'(A29,3(X,I4))',' mass point grid for J4,J5,J6=',J4,J5,J6
CALL CHANGE_A_GRID(ZWORK3D,IGRID,ZWORK3D2)
+ NGRIDIA(J6)=IGRID
! IGRID=1 en sortie de change_a_grid
XVAR(:,:,:,J4,J5,J6)=ZWORK3D2(:,:,:)
ENDDO
@@ -1436,6 +1437,7 @@ DO JGR=1,10000
print'(A29,3(X,I4))',' mass point grid for J4,J5,J6=',J4,J5,J6
CALL CHANGE_A_GRID(ZWORK3D,IGRID,ZWORK3D2)
! IGRID=1 en sortie de change_a_grid
+ NGRIDIA(J6)=IGRID
XVAR(:,:,:,J4,J5,J6)=ZWORK3D2(:,:,:)
ENDDO
ENDDO
--
GitLab