Skip to content
Snippets Groups Projects
Commit 43209ddc authored by RODIER Quentin's avatar RODIER Quentin
Browse files

Quentin 14/10/2022: update AROME turb init namelist of TURBn type

parent d9f4884b
No related branches found
No related tags found
No related merge requests found
! ######spl
SUBROUTINE AROINI_TURB(PLINI,OHARATU,OSTATNW)
SUBROUTINE AROINI_TURB(PLINI,OHARATU,OSTATNW,OSUBG_COND)
USE PARKIND1, ONLY : JPRB
USE YOMHOOK , ONLY : LHOOK, DR_HOOK
!**** *INI_TURB* - Initialize common meso_NH MODD_ used in Turbulence scheme
......@@ -43,7 +43,8 @@ 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
USE MODD_TURB_n, ONLY: LHARAT, LSTATNW, CTURBLEN, TURB_GOTO_MODEL, LTURB_FLX, LTURB_DIAG, &
LSUBG_COND, LRMC01, CTURBDIM
USE MODI_INI_CTURB
IMPLICIT NONE
......@@ -54,6 +55,7 @@ IMPLICIT NONE
REAL, INTENT(IN) :: PLINI ! minimum bl89 mixing length
LOGICAL,INTENT(IN) :: OHARATU ! switch HARATU
LOGICAL,INTENT(IN) :: OSTATNW ! switch LSTATNW
LOGICAL,INTENT(IN) :: OSUBG_COND ! switch of subgrid condensation
!
! ------------------------------------------------------------------
......@@ -79,6 +81,11 @@ LLES_CALL=.FALSE.
! 3. Set implicit default values for MODD_TURB_n
CTURBLEN = 'BL89'
CTURBDIM = '1DIM'
LTURB_FLX = .FALSE.
LTURB_DIAG = .FALSE.
LSUBG_COND = OSUBG_COND
LRMC01 = .FALSE.
! ------------------------------------------------------------------
IF (LHOOK) CALL DR_HOOK('AROINI_TURB',1,ZHOOK_HANDLE)
......
......@@ -106,7 +106,7 @@ ASSOCIATE(XDETR_LUP=>YDPARAR%XDETR_LUP, XCMF=>YDPARAR%XCMF, &
& LAROBU_ENABLE=>YDPARAR%LAROBU_ENABLE, LCRIAUTI=>YDPARAR%LCRIAUTI, &
& XKRC_MF=>YDPARAR%XKRC_MF, XALPHA_MF=>YDPARAR%XALPHA_MF, &
& XPRES_UV=>YDPARAR%XPRES_UV, NRR=>YDPARAR%NRR, XCRAD_MF=>YDPARAR%XCRAD_MF, &
& CMF_UPDRAFT=>YDPARAR%CMF_UPDRAFT, LHARATU=>YDPARAR%LHARATU, &
& CMF_UPDRAFT=>YDPARAR%CMF_UPDRAFT, LHARATU=>YDPARAR%LHARATU, LSUBG_COND=>YDPARAR%LSUBG_COND,&
& LSTATNW=>YDPARAR%LSTATNW, &
& LMPA=>YDARPHY%LMPA, LKFBCONV=>YDARPHY%LKFBCONV, LMFSHAL=>YDARPHY%LMFSHAL, &
& LGRADHPHY=>YDARPHY%LGRADHPHY, &
......@@ -166,7 +166,7 @@ CALL AROINI_BUDGET(LAROBU_ENABLE)
! 4. Initialisation of Turbulence scheme
CALL AROINI_TURB(XLINI,LHARATU,LSTATNW)
CALL AROINI_TURB(XLINI,LHARATU,LSTATNW,LSUBG_COND)
! 5. Initialisation of Mass Flux Shallow convection scheme
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment