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 ! ######spl
SUBROUTINE AROINI_TURB(PLINI,OHARATU,OSTATNW) SUBROUTINE AROINI_TURB(PLINI,OHARATU,OSTATNW,OSUBG_COND)
USE PARKIND1, ONLY : JPRB USE PARKIND1, ONLY : JPRB
USE YOMHOOK , ONLY : LHOOK, DR_HOOK USE YOMHOOK , ONLY : LHOOK, DR_HOOK
!**** *INI_TURB* - Initialize common meso_NH MODD_ used in Turbulence scheme !**** *INI_TURB* - Initialize common meso_NH MODD_ used in Turbulence scheme
...@@ -43,7 +43,8 @@ USE YOMHOOK , ONLY : LHOOK, DR_HOOK ...@@ -43,7 +43,8 @@ USE YOMHOOK , ONLY : LHOOK, DR_HOOK
USE MODD_LES, ONLY : LLES, LLES_CALL USE MODD_LES, ONLY : LLES, LLES_CALL
USE MODD_CTURB, ONLY : XLINI 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 USE MODI_INI_CTURB
IMPLICIT NONE IMPLICIT NONE
...@@ -54,6 +55,7 @@ IMPLICIT NONE ...@@ -54,6 +55,7 @@ IMPLICIT NONE
REAL, INTENT(IN) :: PLINI ! minimum bl89 mixing length REAL, INTENT(IN) :: PLINI ! minimum bl89 mixing length
LOGICAL,INTENT(IN) :: OHARATU ! switch HARATU LOGICAL,INTENT(IN) :: OHARATU ! switch HARATU
LOGICAL,INTENT(IN) :: OSTATNW ! switch LSTATNW LOGICAL,INTENT(IN) :: OSTATNW ! switch LSTATNW
LOGICAL,INTENT(IN) :: OSUBG_COND ! switch of subgrid condensation
! !
! ------------------------------------------------------------------ ! ------------------------------------------------------------------
...@@ -79,6 +81,11 @@ LLES_CALL=.FALSE. ...@@ -79,6 +81,11 @@ LLES_CALL=.FALSE.
! 3. Set implicit default values for MODD_TURB_n ! 3. Set implicit default values for MODD_TURB_n
CTURBLEN = 'BL89' 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) IF (LHOOK) CALL DR_HOOK('AROINI_TURB',1,ZHOOK_HANDLE)
......
...@@ -106,7 +106,7 @@ ASSOCIATE(XDETR_LUP=>YDPARAR%XDETR_LUP, XCMF=>YDPARAR%XCMF, & ...@@ -106,7 +106,7 @@ ASSOCIATE(XDETR_LUP=>YDPARAR%XDETR_LUP, XCMF=>YDPARAR%XCMF, &
& LAROBU_ENABLE=>YDPARAR%LAROBU_ENABLE, LCRIAUTI=>YDPARAR%LCRIAUTI, & & LAROBU_ENABLE=>YDPARAR%LAROBU_ENABLE, LCRIAUTI=>YDPARAR%LCRIAUTI, &
& XKRC_MF=>YDPARAR%XKRC_MF, XALPHA_MF=>YDPARAR%XALPHA_MF, & & XKRC_MF=>YDPARAR%XKRC_MF, XALPHA_MF=>YDPARAR%XALPHA_MF, &
& XPRES_UV=>YDPARAR%XPRES_UV, NRR=>YDPARAR%NRR, XCRAD_MF=>YDPARAR%XCRAD_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, & & LSTATNW=>YDPARAR%LSTATNW, &
& LMPA=>YDARPHY%LMPA, LKFBCONV=>YDARPHY%LKFBCONV, LMFSHAL=>YDARPHY%LMFSHAL, & & LMPA=>YDARPHY%LMPA, LKFBCONV=>YDARPHY%LKFBCONV, LMFSHAL=>YDARPHY%LMFSHAL, &
& LGRADHPHY=>YDARPHY%LGRADHPHY, & & LGRADHPHY=>YDARPHY%LGRADHPHY, &
...@@ -166,7 +166,7 @@ CALL AROINI_BUDGET(LAROBU_ENABLE) ...@@ -166,7 +166,7 @@ CALL AROINI_BUDGET(LAROBU_ENABLE)
! 4. Initialisation of Turbulence scheme ! 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 ! 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