anchor.diff:  		broadcastReals(3) = dt
   		broadcastReals(4) = tfinal
   		broadcastReals(5) = lagVarTol
  +		broadcastReals(6) = tracerRefVal
  +		broadcastReals(7) = tracerRefTol
   	endif
   
   	call MPI_BCAST(broadcastIntegers, BCAST_INT_SIZE, MPI_INTEGER, 0, MPI_COMM_WORLD, errCode)
  
positive.code: 	dt = broadcastReals(3) * ONE_DAY		! convert time to seconds
  	tfinal = broadcastReals(4) * ONE_DAY	! convert time to seconds
  	lagVarTol = broadcastReals(5)
  end subroutine
  
  subroutine InitLogger(alog,rank)
  
negative.code: 
  subroutine ReadNamelistFile(rank)
  	integer(kint), intent(in) :: rank
  	integer(kint), parameter :: BCAST_INT_SIZE = 6, BCAST_REAL_SIZE= 7
  	integer(kint) :: broadcastIntegers(BCAST_INT_SIZE)
  	real(kreal) :: broadcastReals(BCAST_REAL_SIZE)
  
  