2234
2234
ewrite(2, *) "Collapsing vector bc " // trim(bcname) // " for field " // trim(v_field%name)
2236
2236
bc_dim_loop: do l = 1, v_field%dim
2238
2238
if(.not. bcapplies(l)) cycle bc_dim_loop
2240
2240
call add_boundary_condition_surface_elements(v_field_comps(l)%ptr, bcname, bctype, &