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