Use dust_emis_method directly as in the review

ekluzek · Jun 18, 2024 · 8e69f12 · 8e69f12
1 parent f5407e4
commit 8e69f12
Showing 1 changed file with 2 additions and 5 deletions.
diff --git 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"  )