diff --git a/external/RSL_LITE/module_dm.F b/external/RSL_LITE/module_dm.F index 948afeffad..6ec8ef4bbf 100644 --- a/external/RSL_LITE/module_dm.F +++ b/external/RSL_LITE/module_dm.F @@ -4257,7 +4257,7 @@ SUBROUTINE force_domain_em_part2 ( grid, ngrid, pgrid, config_flags & DO i = MAX(ids,ips),MIN(ide-1,ipe) DO k = 1, kpe-1 - grid%pb(i,k,j) = ngrid%c3h(k)*(ngrid%c1h(k)*grid%mub(i,j)+ngrid%c2h(k)) + ngrid%c4h(k) + ngrid%p_top + grid%pb(i,k,j) = ngrid%c3h(k) * grid%mub(i,j) + ngrid%c4h(k) + ngrid%p_top ! If this is a real run, recalc t_init. diff --git a/share/module_check_a_mundo.F b/share/module_check_a_mundo.F index 50d99344cc..00b3bf66ae 100644 --- a/share/module_check_a_mundo.F +++ b/share/module_check_a_mundo.F @@ -2416,26 +2416,6 @@ END FUNCTION bep_bem_ngr_u END IF END DO -!----------------------------------------------------------------------- -! Consistency checks for vertical refinement: -! must use the terrain following vertical coordinate -!----------------------------------------------------------------------- - oops = 0 - DO i = 2, model_config_rec % max_dom - IF ( .NOT. model_config_rec % grid_allowed(i) ) CYCLE - IF (model_config_rec%vert_refine_method(i) .NE. 0) THEN - IF ( model_config_rec%hybrid_opt .NE. 0 ) THEN - oops = oops + 1 - END IF - END IF - END DO - - IF ( oops .GT. 0 ) THEN - wrf_err_message = '--- ERROR: vert_refine_method=2 only works with hybrid_opt = 0 ' - CALL wrf_debug ( 0, TRIM( wrf_err_message ) ) - count_fatal_error = count_fatal_error + 1 - END IF - !----------------------------------------------------------------------- ! Consistency checks for vertical refinement: ! feedback has to be turned off