From 49798d138c01678d3abc96fcb692943c115e2ba4 Mon Sep 17 00:00:00 2001
From: ESCOBAR Juan <escj@nuwa.aerologie.net>
Date: Tue, 9 Apr 2013 16:09:03 +0200
Subject: [PATCH] Juan 9/04/2013: add ZW3D20 as temp array on interface to
PPM_MET
---
MNH/advection.f90 | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/MNH/advection.f90 b/MNH/advection.f90
index 2e35d45a5..edc78d768 100644
--- a/MNH/advection.f90
+++ b/MNH/advection.f90
@@ -152,6 +152,7 @@ USE MODI_MPDATA_SCALAR
USE MODI_PPM_MET
USE MODI_PPM_SCALAR
!
+USE MODE_MNH_ZWORK, ONLY : ZW3D20
!
!-------------------------------------------------------------------------------
!
@@ -322,7 +323,8 @@ ELSEIF (HMET_ADV_SCHEME(1:3)=='PPM') THEN
CALL PPM_MET (HLBCX,HLBCY, KRR, KTCOUNT, &
ZRUCT, ZRVCT, ZRWCT, PTSTEP_MET, PRHODJ, &
PTHT, PTKET, PRT, PRTHS, PRTKES, PRRS, &
- HMET_ADV_SCHEME )
+ HMET_ADV_SCHEME, &
+ ZW3D20 )
!
END IF
!
--
GitLab