From 44a3e6121f452d1fd11c2c3880b11ce5868829a3 Mon Sep 17 00:00:00 2001
From: Heiko Klein <heiko.klein@met.no>
Date: Mon, 20 Jan 2025 14:54:08 +0000
Subject: [PATCH] remove special bomb-debug output

---
 src/common/fldout_nc.f90 | 46 ----------------------------------------
 1 file changed, 46 deletions(-)

diff --git a/src/common/fldout_nc.f90 b/src/common/fldout_nc.f90
index 67b01139..57187ac1 100644
--- a/src/common/fldout_nc.f90
+++ b/src/common/fldout_nc.f90
@@ -536,52 +536,6 @@ subroutine fldout_nc(filename, itime,tf1,tf2,tnow, &
 
   end if
 
-
-!..BOMB fields..........................................................
-
-  if (time_profile == TIME_PROFILE_BOMB) then
-
-  !..bomb parameters for each component.........
-
-    do m=1,ncomp
-
-      mm = run_comp(m)%to_defined
-
-      if(idebug == 1) write(iulog,*) ' component: ', def_comp(mm)%compnamemc
-
-    !..scale to % of total released Bq (in a single bomb)
-      dblscale= 100.0d0/dble(run_comp(m)%totalbq)
-
-    !..dry deposition
-      if (def_comp(mm)%kdrydep == 1) then
-        field_hr1(:,:) = dblscale*depdry(:,:,m)
-        if(idebug == 1) call ftest('dry%', field_hr1)
-      end if
-
-    !..wet deposition
-      if (def_comp(mm)%kwetdep == 1) then
-        field_hr1(:,:) = dblscale*depwet(:,:,m)
-        if(idebug == 1) call ftest('wet%', field_hr1)
-      end if
-
-    !..accumulated dry deposition
-      if (def_comp(mm)%kdrydep == 1) then
-        field_hr1(:,:) = dblscale*accdry(:,:,m)
-        if(idebug == 1) call ftest('adry%', field_hr1)
-      end if
-
-    !..accumulated wet deposition
-      if (def_comp(mm)%kwetdep == 1) then
-        field_hr1(:,:) = dblscale*accwet(:,:,m)
-        if(idebug == 1) call ftest('awet%', field_hr1)
-      end if
-
-    !.......end do m=1,ncomp
-    end do
-
-  end if
-
-
 !..model level fields...................................................
   if (imodlevel) then
     call write_ml_fields(iunit, varid, average, [1, 1, -1, ihrs_pos], &