integer profiles_curfile_buff(nsx,nsy)
& profiles_minind_buff, profiles_maxind_buff, profiles_curfile_buff
profiles_curfile_buff(bi,bj)=0
& (profiles_curfile_buff(bi,bj).NE.fNb) ) then
if (profiles_curfile_buff(bi,bj).NE.fNb) then
profiles_curfile_buff(bi,bj)=fNb