groundWrapper

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

  function d = groundWrapper(d, plotparams, parm, field);

  Does the ground removal

  JL
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

0001 function d = groundWrapper(d, plotparams, parm, field,file_name_stub);
0002 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0003 %
0004 %  function d = groundWrapper(d, plotparams, parm, field);
0005 %
0006 %  Does the ground removal
0007 %
0008 %  JL
0009 %
0010 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0011 
0012 [d,q] = logcal(d, 'ground');
0013 if (q)
0014   disp('ground has been applied');
0015   disp(' ')
0016   d=checkstatus(d);
0017   return
0018 end
0019 
0020 disp(['groundWrapper:: !!!!!! About to apply the ground subtraction using template filename stub ',file_name_stub]);
0021 
0022 el_list = get_days_observed_els('log/obs_log.html',file_name_stub);
0023 
0024 d = GroundRemoval(d,file_name_stub,el_list);
0025 
0026 disp('groundWrapper:: !!!!!! Ground subtraction has been applied.');
0027 
0028 d = logcal(d, 'ground');
0029 
0030 return;
0031 
0032