From 38e4847da07e6b922f477472176f8eb26eeb4b9b Mon Sep 17 00:00:00 2001
From: Juan Escobar <escj@aero.obs-mip.fr>
Date: Fri, 10 Jul 2020 10:57:57 +0200
Subject: [PATCH] Juan 10/07/2020: Some typo on the version without OpenACC
---
src/MNH/advection_metsv.f90 | 6 +++---
src/MNH/etheta.f90 | 2 ++
src/MNH/turb_hor_sv_flux.f90 | 2 +-
src/MNH/turb_hor_tke.f90 | 2 +-
4 files changed, 7 insertions(+), 5 deletions(-)
diff --git a/src/MNH/advection_metsv.f90 b/src/MNH/advection_metsv.f90
index 1cc768b4e..1169bcf63 100644
--- a/src/MNH/advection_metsv.f90
+++ b/src/MNH/advection_metsv.f90
@@ -349,11 +349,11 @@ allocate( ZCFLV ( JIU,JJU,JKU ) )
allocate( ZCFLW ( JIU,JJU,JKU ) )
allocate( ZCFL ( JIU,JJU,JKU ) )
allocate( ZTH ( JIU,JJU,JKU ) )
-allocate( ZTKE ( JIU,JJU,SIZE(PTKET,3) )
+allocate( ZTKE ( JIU,JJU,SIZE(PTKET,3)) )
allocate( ZRTHS_OTHER ( JIU,JJU,JKU ) )
-allocate( ZRTKES_OTHER ( JIU,JJU,SIZE(PTKET,3) )
+allocate( ZRTKES_OTHER ( JIU,JJU,SIZE(PTKET,3)) )
allocate( ZRTHS_PPM ( JIU,JJU,JKU ) )
-allocate( ZRTKES_PPM ( JIU,JJU,SIZE(PTKET,3) )
+allocate( ZRTKES_PPM ( JIU,JJU,SIZE(PTKET,3)) )
allocate( ZR ( JIU,JJU,JKU, SIZE(PRT, 4) ) )
allocate( ZSV ( JIU,JJU,JKU, SIZE(PSVT,4) ) )
allocate( ZSNWC ( JIU,JJU,JKU, NBLOWSNOW_2D ) )
diff --git a/src/MNH/etheta.f90 b/src/MNH/etheta.f90
index b5f92ac02..c75ce9c0b 100644
--- a/src/MNH/etheta.f90
+++ b/src/MNH/etheta.f90
@@ -103,9 +103,11 @@ USE MODD_CST
use mode_mppdb
+#ifdef MNH_OPENACC
USE MODE_MNH_ZWORK , ONLY : MNH_ALLOCATE_ZT3D , MNH_REL_ZT3D, MNH_ALLOCATE_ZT3DP , MNH_ALLOCATE_ZT2D, &
MNH_ALLOCATE_ZT4D , MNH_REL_ZT4D, &
MNH_CHECK_IN_ZT3D,MNH_CHECK_OUT_ZT3D
+#endif
IMPLICIT NONE
!
diff --git a/src/MNH/turb_hor_sv_flux.f90 b/src/MNH/turb_hor_sv_flux.f90
index 8a80775f4..ced211a04 100644
--- a/src/MNH/turb_hor_sv_flux.f90
+++ b/src/MNH/turb_hor_sv_flux.f90
@@ -248,7 +248,7 @@ allocate( zflxy(JIU,JJU,JKU ) )
allocate( zwork2d(JIU,JJU, 1 ) )
-allocate( zcoeff((JIU,JJU, 1 + jpvext : 3 + jpvext ) )
+allocate( zcoeff(JIU,JJU, 1 + jpvext : 3 + jpvext ) )
#else
izflxx = MNH_ALLOCATE_ZT3D( zflxx,JIU,JJU,JKU)
izflxy = MNH_ALLOCATE_ZT3D( zflxy,JIU,JJU,JKU)
diff --git a/src/MNH/turb_hor_tke.f90 b/src/MNH/turb_hor_tke.f90
index 60f38ea4d..748a65bc3 100644
--- a/src/MNH/turb_hor_tke.f90
+++ b/src/MNH/turb_hor_tke.f90
@@ -177,7 +177,7 @@ JKU = size(ptkem, 3 )
#ifndef MNH_OPENACC
allocate( zflx (JIU,JJU,JKU ) )
-allocate( zcoeff(JIU,JJU,JKU, 1 + jpvext : 3 + jpvext ) )
+allocate( zcoeff(JIU,JJU, 1 + jpvext : 3 + jpvext ) )
#else
izflx = MNH_ALLOCATE_ZT3D( zflx ,JIU,JJU,JKU )
--
GitLab