From 5d1a4aa9075dc7c03fb9c98eadcc15cc4d0bf743 Mon Sep 17 00:00:00 2001 From: "jordan.schnell" Date: Thu, 28 Mar 2024 16:03:36 +0000 Subject: [PATCH] Fix improperly assigned fire emissions for ebb_dcycle==1 for retrospectives (NOT operational!) --- physics/smoke_dust/module_add_emiss_burn.F90 | 9 --------- 1 file changed, 9 deletions(-) diff --git a/physics/smoke_dust/module_add_emiss_burn.F90 b/physics/smoke_dust/module_add_emiss_burn.F90 index 80d91bb0e..036ea8525 100755 --- a/physics/smoke_dust/module_add_emiss_burn.F90 +++ b/physics/smoke_dust/module_add_emiss_burn.F90 @@ -76,15 +76,6 @@ subroutine add_emis_burn(dtstep,dz8w,rho_phy,pi, & ! the eastern US, max_ti= 20.041288* 3600. ! else max_ti= 18.041288* 3600. ! endif -! RAR: for option #1 ebb and frp are ingested for 24 hours. No modification is -! applied! - if (ebb_dcycle==1) then - do k=kts,kte - do i=its,ite - ebu(i,k,1)=ebu_in(i,1) ! RAR: - enddo - enddo - endif if (ebb_dcycle==2) then