function getname,dir,exp,freq,suff,date
  
 file_list = file_search (dir+'/'+exp+'_*_*_'+freq+'_'+suff+'.nc', count = nb_file )
  
 file_list = file_basename( file_list )

 filename = ''
 i = 0

 while  i lt nb_file  and filename eq '' do begin
  
    split_name = STRSPLIT(file_list[i],'_',/EXTRACT ) 
    date1 = long(split_name[1])
    date2 = long(split_name[2])


    if date1 - date le 0 and  date - date2 le 0 then filename = dir+'/'+file_list[i]
    i = i + 1
    
 endwhile 

 if filename eq '' then print,'filename does NOT FOUND' 

 return,filename

end