diff --git a/physics/smoke_dust/module_add_emiss_burn.F90 b/physics/smoke_dust/module_add_emiss_burn.F90 index 50a56c1bc..ff1fb09b6 100755 --- a/physics/smoke_dust/module_add_emiss_burn.F90 +++ b/physics/smoke_dust/module_add_emiss_burn.F90 @@ -66,15 +66,6 @@ subroutine add_emis_burn(dtstep,dz8w,rho_phy,pi,ebb_min, & timeq= mod(timeq,timeq_max) coef_con=1._kind_phys/((2._kind_phys*pi)**0.5) -! 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) - enddo - enddo - endif - if (ebb_dcycle==2) then do j=jts,jte