subroutine exchangeSolid(w_s,wfields,grid_array,nfields) added to bdryexchange.F for mi exchange for solid phase