anchor.diff:  
   !	-- 	Read in namelists
   call system_clock(time_clicks)
  -write(*,*)real(time_clicks-start_time)/real(time_scale),'Reading in namelist data.'
  +write(*,"(F5.2,A,3X,A)")real(time_clicks-start_time)/real(time_scale),'s','Reading in namelist data.'
   namelist_file = file_open(adjustl(trim(namelist_file_name)))
   read(namelist_file,FLUID_PROPERTIES,IOSTAT=io_stat)
   read(namelist_file,BOUNDARY_CONDITIONS,IOSTAT=io_stat)
  
positive.code: 
  !	--	Initialize u, v, and P and mass flow rates
  call system_clock(time_clicks)
  write(*,*)real(time_clicks-start_time)/real(time_scale),'Initializing momentum, pressure, and flow rates.'
  select case (ic_type)
  	case ("uniform")
  		u = ic_u
  
negative.code: 
  !	SETUP MESH
  call system_clock(time_clicks)
  write(*,"(F5.2,A,3X,A)")real(time_clicks-start_time)/real(time_scale),'s','Setting up mesh.'
  dx = x_size/real(x_steps,wp)
  dy = y_size/real(y_steps,wp)
  
  