From cac0fedd44d0185e1ebad79c897bfd73142d2ebb Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Tue, 18 Oct 2022 17:29:41 +0200
Subject: [PATCH] Quentin 18/10/2022: bugfix repro AROME (init of XIMPL not
done after the cleaning)
---
src/arome/ext/aro_turb_mnh.F90 | 22 ----------------------
src/arome/ext/aroini_turb.F90 | 3 ++-
2 files changed, 2 insertions(+), 23 deletions(-)
diff --git a/src/arome/ext/aro_turb_mnh.F90 b/src/arome/ext/aro_turb_mnh.F90
index 619f5392b..8a0bf7851 100644
--- a/src/arome/ext/aro_turb_mnh.F90
+++ b/src/arome/ext/aro_turb_mnh.F90
@@ -204,26 +204,15 @@ CHARACTER(LEN=4),DIMENSION(2) :: HLBCX, HLBCY ! X- and Y-direc LBC
INTEGER :: ISPLIT ! number of time-splitting
-LOGICAL :: OTURB_FLX ! switch to write the
- ! turbulent fluxes in the syncronous FM-file
-LOGICAL :: OTURB_DIAG ! switch to write some
- ! diagnostic fields in the syncronous FM-file
-LOGICAL :: ORMC01 ! switch for RMC01 lengths in SBL
LOGICAL :: OOCEAN,ODEEPOC! switch for OCEAN version of turbulence scheme
LOGICAL :: OCOUPLES ! switch for ocean-atm LES coupling
LOGICAL :: OBLOWSNOW ! switch for prognostic blow snow scheme
LOGICAL :: OCOMPUTE_SRC ! flag to define dimensions of SIGS and SRCT variables
-CHARACTER(LEN=4) :: HTURBDIM ! dimensionality of the
- ! turbulence scheme
-CHARACTER(LEN=4) :: HTURBLEN ! kind of mixing length
CHARACTER(LEN=6) :: HPROGRAM ! Program (AROME or MESONH prog)
LOGICAL :: OFLAT ! Logical for zero ororography
LOGICAL :: ONOMIXLG ! to use turbulence for lagrangian variables (modd_conf)
LOGICAL :: O2D ! Logical for 2D model version (modd_conf)
INTEGER :: KSV_LGBEG, KSV_LGEND ! number of scalar variables
-
-
-REAL :: ZIMPL ! degree of implicitness
!
REAL, DIMENSION(KLON,1,KLEV+2) :: ZDXX,ZDYY,ZDZZ,ZDZX,ZDZY
! metric coefficients
@@ -284,17 +273,6 @@ HLBCY(:)='CYCL'
! en dur a 1 dans MNH
ISPLIT=1
-! pour ecriture et diagnostic dans mesoNH, � priori les switches toujours � .F.
-OTURB_FLX=.FALSE.
-OTURB_DIAG=.FALSE.
-
-! a mettre en namelist
-ORMC01=.FALSE.
-
-HTURBDIM='1DIM'
-HTURBLEN='BL89'
-ZIMPL=1.
-
!Version Ocean du schema de turbulence
OOCEAN=.FALSE.
ODEEPOC=.FALSE.
diff --git a/src/arome/ext/aroini_turb.F90 b/src/arome/ext/aroini_turb.F90
index 2680c00ce..5ba42b5ab 100644
--- a/src/arome/ext/aroini_turb.F90
+++ b/src/arome/ext/aroini_turb.F90
@@ -44,7 +44,7 @@ USE YOMHOOK , ONLY : LHOOK, DR_HOOK
USE MODD_LES, ONLY : LLES, LLES_CALL
USE MODD_CTURB, ONLY : XLINI
USE MODD_TURB_n, ONLY: LHARAT, LSTATNW, CTURBLEN, TURB_GOTO_MODEL, LTURB_FLX, LTURB_DIAG, &
- LSUBG_COND, LRMC01, CTURBDIM
+ LSUBG_COND, LRMC01, CTURBDIM, XIMPL
USE MODI_INI_CTURB
IMPLICIT NONE
@@ -84,6 +84,7 @@ CTURBLEN = 'BL89'
CTURBDIM = '1DIM'
LTURB_FLX = .FALSE.
LTURB_DIAG = .FALSE.
+XIMPL = 1.
LSUBG_COND = OSUBG_COND
LRMC01 = .FALSE.
--
GitLab