


function to read polcoms parameters fileparams='/users/modellers/rito/Models/MEDINA/polcoms/MEDI29.parameters' list of variables to keep


0001 function params=read_polcoms_params(fileparams) 0002 % function to read polcoms parameters 0003 % fileparams='/users/modellers/rito/Models/MEDINA/polcoms/MEDI29.parameters' 0004 % list of variables to keep 0005 varlist={'l' 'm' 'n' 'daldi' 'dbedi' 'along1' 'alat1'} 0006 fid = fopen(fileparams); 0007 C = textscan(fid, '%s%s%*[^\n]'); 0008 fclose(fid); 0009 for vv=1:length(varlist) 0010 iv=find(strcmpi(C{2},varlist(vv))); 0011 params.(varlist{vv})=str2num(C{1}{iv}); 0012 end 0013 0014 return