Quentin 22/06/2022: turb packing, definition of NIJT

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

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
 !

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)
 !