diff --git a/Registry/Registry.EM_COMMON b/Registry/Registry.EM_COMMON index 8b4e203bf2..ca1ce0dcce 100644 --- a/Registry/Registry.EM_COMMON +++ b/Registry/Registry.EM_COMMON @@ -3086,6 +3086,7 @@ package drip sf_surf_irr_alloc==2 - state:irrigat package sprinkler sf_surf_irr_alloc==3 - state:irrigation,irr_rand_field +package lesscheme bl_pbl_physics==0 - state:tke_pbl,el_pbl package ysuscheme bl_pbl_physics==1 - - package myjpblscheme bl_pbl_physics==2 - state:tke_pbl,el_pbl package gfsscheme bl_pbl_physics==3 - - diff --git a/share/module_check_a_mundo.F b/share/module_check_a_mundo.F index 8acdd95e8f..287b67dfc8 100644 --- a/share/module_check_a_mundo.F +++ b/share/module_check_a_mundo.F @@ -385,6 +385,30 @@ END FUNCTION bep_bem_ngr_u END IF ENDDO +!----------------------------------------------------------------------- +! Check that LES PBL is only paired with acceptable other PBL options. +! Currently OK: YSU(1), MYJ(2), ShinHong(11) +!----------------------------------------------------------------------- + IF ( ( model_config_rec % bl_pbl_physics(1) .NE. lesscheme ) .AND. & + ( model_config_rec % bl_pbl_physics(1) .NE. ysuscheme ) .AND. & + ( model_config_rec % bl_pbl_physics(1) .NE. myjpblscheme ) .AND. & + ( model_config_rec % bl_pbl_physics(1) .NE. shinhongscheme ) ) THEN + DO i = 2, model_config_rec % max_dom + IF ( .NOT. model_config_rec % grid_allowed(i) ) CYCLE + IF ( model_config_rec % bl_pbl_physics(i) .EQ. LESscheme ) THEN + WRITE(wrf_err_message,fmt='(a,i2)') '--- ERROR: LES PBL on fine grid does not work with CG PBL option ',model_config_rec % bl_pbl_physics(1) + CALL wrf_message ( TRIM( wrf_err_message ) ) + wrf_err_message = '--- ERROR: Only YSU(1), MYJPBL(2), and ShinHong(11) are acceptable options for LES PBL on the fine grid' + CALL wrf_message ( TRIM( wrf_err_message ) ) + wrf_err_message = '--- ERROR: Fix bl_pbl_physics in namelist.input.' + CALL wrf_message ( TRIM( wrf_err_message ) ) + wrf_err_message = '--- ERROR: Alternatively, remove all of the packaged variables from the CG PBL selection' + CALL wrf_message ( TRIM( wrf_err_message ) ) + count_fatal_error = count_fatal_error + 1 + END IF + ENDDO + END IF + !----------------------------------------------------------------------- ! Check that SMS-3DTKE scheme Must work with Revised MM5 surface layer ! scheme (sf_sfclay_physics = 1), MYNN surface (sf_sfclay_physics = 5)