From 8e69f12020659b836bec06e7f50a1e2ffe9456fa Mon Sep 17 00:00:00 2001 From: Erik Kluzek Date: Mon, 17 Jun 2024 18:01:16 -0600 Subject: [PATCH] Use dust_emis_method directly as in the review --- src/biogeochem/DustEmisFactory.F90 | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/src/biogeochem/DustEmisFactory.F90 b/src/biogeochem/DustEmisFactory.F90 index aee4af0a55..371e77d6dc 100644 --- a/src/biogeochem/DustEmisFactory.F90 +++ b/src/biogeochem/DustEmisFactory.F90 @@ -37,11 +37,8 @@ function create_dust_emissions(bounds, NLFilename) result(dust_emis) type(bounds_type), intent(in) :: bounds character(len=*), intent(in) :: NLFilename ! Local variables - character(len=CL) :: method - method = dust_emis_method - - select case ( trim(method) ) + select case ( trim(dust_emis_method) ) case( "Zender_2003" ) allocate(dust_emis, source=dust_emis_zender2003_type() ) @@ -50,7 +47,7 @@ function create_dust_emissions(bounds, NLFilename) result(dust_emis) !case( "Leung_2023" ) ! allocate(dust_emis, source=dust_emis_zender2003_type() ) case default - write(iulog,*) 'ERROR: unknown dust_emis_method: ', method, & + write(iulog,*) 'ERROR: unknown dust_emis_method: ', dust_emis_method, & errMsg(sourcefile, __LINE__) call endrun( "Unrecognized dust_emis_method" )