Fix improperly assigned fire emissions for ebb_dcycle==1 for retrospe…

…ctives (NOT operational!)
ufs-community · Oct 29, 2024 · 5d1a4aa · 5d1a4aa
1 parent f3eeb34
commit 5d1a4aa
Showing 1 changed file with 0 additions and 9 deletions.
diff --git 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