From c28028e1550982ea3445445944a2e102e6eb2a30 Mon Sep 17 00:00:00 2001 From: Peter Kalverla Date: Mon, 18 Nov 2024 17:17:55 +0100 Subject: [PATCH] Apply WUR fix for building height larger than 1st WRF level --- phys/module_sf_urban.F | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/phys/module_sf_urban.F b/phys/module_sf_urban.F index 048d27dcac..da4ab47cd3 100644 --- a/phys/module_sf_urban.F +++ b/phys/module_sf_urban.F @@ -823,7 +823,10 @@ SUBROUTINE urban(LSOLAR, & ! L END IF IF( ZDC+Z0C+2. >= ZA) THEN - FATAL_ERROR("ZDC + Z0C + 2m is larger than the 1st WRF level - Stop in subroutine urban - change ZDC and Z0C" ) + !FATAL_ERROR("ZDC + Z0C + 2m is larger than the 1st WRF level - Stop in subroutine urban - change ZDC and Z0C" ) + write(mesg,*) 'warning: ZDC higher than 1st WRF level, adjusting ',ZDC, ZA - Z0C - 4. + WRITE_MESSAGE(mesg) + ZDC = ZA - Z0C - 4. END IF IF(.NOT.LSOLAR) THEN