From ac688c30256102e863c2102b2257a2012238fc52 Mon Sep 17 00:00:00 2001 From: alex-huth Date: Thu, 14 Jan 2021 17:30:54 -0500 Subject: [PATCH] removed redundant parameter --- src/icebergs_framework.F90 | 1 - 1 file changed, 1 deletion(-) diff --git a/src/icebergs_framework.F90 b/src/icebergs_framework.F90 index 954e80e..8462ea5 100644 --- 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