From a59aeacdff4021a8fb5626702239595e329994d7 Mon Sep 17 00:00:00 2001 From: Jili Dong Date: Fri, 10 Dec 2021 19:06:32 +0000 Subject: [PATCH 1/2] abort model when external surface emissivity file not existing for iemslw=1 --- physics/radiation_surface.f | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/physics/radiation_surface.f b/physics/radiation_surface.f index 066bcfbef..3111ec48a 100644 --- a/physics/radiation_surface.f +++ b/physics/radiation_surface.f @@ -247,10 +247,12 @@ subroutine sfc_init & if ( me == 0 ) then print *,' - Using Varying Surface Emissivity for lw' print *,' Requested data file "',semis_file,'" not found!' - print *,' Change to fixed surface emissivity = 1.0 !' endif + errmsg = 'module_radiation_surface: surface emissivity + & file not provided' + errflg = 1 + return - iemslw = 0 else close(NIRADSF) open (NIRADSF,file=semis_file,form='formatted',status='old') From ec6bbb9e70aa91fc27628b922430a6b9b72ac528 Mon Sep 17 00:00:00 2001 From: Jili Dong Date: Fri, 10 Dec 2021 19:53:42 +0000 Subject: [PATCH 2/2] aligned with if block --- physics/radiation_surface.f | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/physics/radiation_surface.f b/physics/radiation_surface.f index 3111ec48a..64afd0a35 100644 --- a/physics/radiation_surface.f +++ b/physics/radiation_surface.f @@ -248,10 +248,10 @@ subroutine sfc_init & print *,' - Using Varying Surface Emissivity for lw' print *,' Requested data file "',semis_file,'" not found!' endif - errmsg = 'module_radiation_surface: surface emissivity + errmsg = 'module_radiation_surface: surface emissivity & file not provided' - errflg = 1 - return + errflg = 1 + return else close(NIRADSF)