removed redundant parameter

NOAA-GFDL · Jan 14, 2021 · ac688c3 · ac688c3
1 parent 7585ff9
commit ac688c3
Showing 1 changed file with 0 additions and 1 deletion.
diff --git a/src/icebergs_framework.F90 b/src/icebergs_framework.F90
@@ -4863,7 +4863,6 @@ subroutine count_bonds(bergs, number_of_bonds, check_bond_quality)
 integer :: number_of_bonds_all_pe
 integer :: grdi, grdj
 logical :: bond_is_good
-logical, intent(inout), optional :: check_bond_quality
 logical :: quality_check
 integer :: num_unmatched_bonds,num_unmatched_bonds_all_pe
 integer :: num_unassosiated_bond_pairs, num_unassosiated_bond_pairs_all_pe