diff --git a/generic/MAPL_Generic.F90 b/generic/MAPL_Generic.F90 index 4b71f89eb81f..b9fb5f3d5b01 100644 --- a/generic/MAPL_Generic.F90 +++ b/generic/MAPL_Generic.F90 @@ -7027,7 +7027,6 @@ recursive subroutine MAPL_WireComponent(GC, RC) end do do J=1,NC - if(I==J) cycle gridcomp => STATE%get_child_gridcomp(J) call MAPL_GridCompGetVarSpecs(gridcomp, EXPORT=EX_SPECS, RC=status) _VERIFY(status)