quick fix of a mass calculation error for option where footloose mass…

… added to bergy bits
NOAA-GFDL · Apr 1, 2021 · 0c6c964 · 0c6c964
1 parent a6ec49d
commit 0c6c964
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/icebergs.F90 b/src/icebergs.F90
@@ -2522,11 +2522,11 @@ subroutine footloose_calving(bergs, time)
           endif
 
           if (bergs%fl_style.eq.'bergy_bits') then
-            this%mass_of_bits=this%mass_of_bits+(bergs%rho_bergs*W*T*(L-Lr_fl))
+            this%mass_of_bits=this%mass_of_bits+(bergs%rho_bergs*W*T*Lr_fl)
           elseif (bergs%fl_style.eq.'fl_bits') then
             call error_mesg('KID,footloose_calving', &
               'fl_style = "fl_bits" not yet fully implemented!', FATAL)
-            this%mass_of_fl_bits=this%mass_of_fl_bits+(bergs%rho_bergs*W*T*(L-Lr_fl))
+            !this%mass_of_fl_bits=this%mass_of_fl_bits+(bergs%rho_bergs*W*T*Lr_fl)
           else
             call calve_fl_icebergs(bergs,this,k,l_b,fl_disp_x,fl_disp_y)
           endif