%**************************************************************************
%This function plots the nmr probe measurements.
%
%Input:
%plt_file, plot file for results
%date_num, date of the measurement
%b_nmr, field measured by the nmr probe (T)
%
%Zachary Wolf, 4/14/09

function [] = ref_dipole_plot_bnmr(plt_file, date_num, b_nmr)

%Make the plot
figure;
hold all;
plot(date_num, b_nmr, '*');
datetick('x', 'mm/yy', 'keepticks', 'keeplimits');
title('Reference Dipole NMR Measurements');
xlabel('Date');
ylabel('Bnmr (T)');
grid on;
zoom on;
hold off;
util_print_fig(plt_file);

%Done
