Setting the dependent field conc values to a fixed value here doesn't seem right to me. But the only call for this subroutine appears to be commented out so I guess it's not an issue. Could maybe either remove this subroutine or put a '! do nothing' in and keep the routine as a place holder for the future.