From 4191bdee84f25898b7f458633b6e9a96e3c842e4 Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Wed, 22 Jun 2022 17:48:50 +0200
Subject: [PATCH] Quentin 22/06/2022: turb packing, definition of NIJT
---
src/arome/aux/mode_fill_dimphyexn.F90 | 2 ++
src/common/aux/modd_dimphyexn.F90 | 1 +
src/mesonh/aux/mode_fill_dimphyexn.F90 | 1 +
3 files changed, 4 insertions(+)
diff --git a/src/arome/aux/mode_fill_dimphyexn.F90 b/src/arome/aux/mode_fill_dimphyexn.F90
index 433d98a0b..4fd9eb5f0 100644
--- a/src/arome/aux/mode_fill_dimphyexn.F90
+++ b/src/arome/aux/mode_fill_dimphyexn.F90
@@ -64,6 +64,8 @@ YDDIMPHYEX%NJT=KJT
YDDIMPHYEX%NJB=1
YDDIMPHYEX%NJE=KJT
!
+YDDIMPHYEX%NIJT=KIT*KJT
+!
YDDIMPHYEX%NKL=-1
YDDIMPHYEX%NKT=KKT
YDDIMPHYEX%NKA=KKT
diff --git a/src/common/aux/modd_dimphyexn.F90 b/src/common/aux/modd_dimphyexn.F90
index d7493616a..b734113c7 100644
--- a/src/common/aux/modd_dimphyexn.F90
+++ b/src/common/aux/modd_dimphyexn.F90
@@ -70,6 +70,7 @@ TYPE DIMPHYEX_t
INTEGER :: NJBC ! = NIB/NJC/NIE/NJE in all schemes
INTEGER :: NIEC ! except in turbulence where external HALO points must be
INTEGER :: NJEC ! included so NIBC=NJBC=1 and NIEC/NJEC=NIT/NJT
+ INTEGER :: NIJT ! NIT*NJT for horizontal packing
!
END TYPE DIMPHYEX_t
!
diff --git a/src/mesonh/aux/mode_fill_dimphyexn.F90 b/src/mesonh/aux/mode_fill_dimphyexn.F90
index 351c96d49..621482309 100644
--- a/src/mesonh/aux/mode_fill_dimphyexn.F90
+++ b/src/mesonh/aux/mode_fill_dimphyexn.F90
@@ -59,6 +59,7 @@ IF (LHOOK) CALL DR_HOOK('FILL_DIMPHYEX', 0, ZHOOK_HANDLE)
!
YDDIMPHYEX%NIT=KIT
YDDIMPHYEX%NJT=KJT
+YDDIMPHYEX%NIJT=KIT*KJT
CALL GET_INDICE_ll(YDDIMPHYEX%NIB, YDDIMPHYEX%NJB,&
&YDDIMPHYEX%NIE, YDDIMPHYEX%NJE)
!
--
GitLab