From 9fa743ebd7c4694cba0abb26880ea1c61a806614 Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Fri, 24 Jun 2022 16:15:06 +0200
Subject: [PATCH] Quentin 24/06/2022: preparing NPROMA incomplete blocks by
using NIJB and NIJE
---
src/mesonh/aux/mode_fill_dimphyexn.F90 | 3 +++
1 file changed, 3 insertions(+)
diff --git a/src/mesonh/aux/mode_fill_dimphyexn.F90 b/src/mesonh/aux/mode_fill_dimphyexn.F90
index 621482309..1f5cc3c3c 100644
--- a/src/mesonh/aux/mode_fill_dimphyexn.F90
+++ b/src/mesonh/aux/mode_fill_dimphyexn.F90
@@ -63,6 +63,9 @@ YDDIMPHYEX%NIJT=KIT*KJT
CALL GET_INDICE_ll(YDDIMPHYEX%NIB, YDDIMPHYEX%NJB,&
&YDDIMPHYEX%NIE, YDDIMPHYEX%NJE)
!
+YDDIMPHYEX%NIJB=1
+YDDIMPHYEX%NIJE=KIT*KJT
+!
YDDIMPHYEX%NKL=1
YDDIMPHYEX%NKT=KKT
YDDIMPHYEX%NKA=1
--
GitLab