unfiying subpar_mapping.f90 in mesher and solver