Need to check for mirrors as well

generic3g/specs/FieldSpec.F90

@@ -583,7 +583,6 @@ logical function can_connect_to(this, src_spec, rc)
       select type(src_spec)
       class is (FieldSpec)
          can_convert_units = can_connect_units(this%units, src_spec%units, _RC)
-
          can_connect_to = all ([ &
               can_match(this%geom,src_spec%geom), &
               can_match(this%vertical_grid, src_spec%vertical_grid), &
@@ -901,8 +900,6 @@ logical function adapter_match_vertical_grid(this, spec) result(match)
       class(VerticalGridAdapter), intent(in) :: this
       class(StateItemSpec), intent(in) :: spec
 
-      logical :: match_grid, match_dim_spec
-
       match = .false.
       select type (spec)
       type is (FieldSpec)
@@ -966,7 +963,7 @@ logical function adapter_match_vertical_dim_spec(this, spec) result(match)
       match = .false.
       select type (spec)
       type is (FieldSpec)
-         match = (spec%vertical_dim_spec == this%vertical_dim_spec)
+         match = match_vertical_dim_spec(spec%vertical_dim_spec, this%vertical_dim_spec)
       end select
    end function adapter_match_vertical_dim_spec