From 3dd1dd34d6f94b589107ed43b57a994277e83b58 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 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