IL = ILNBLNK( profilesfiles(num_file) )
& profilesfiles(num_file)(1:IL)
& profilesDir, profilesfiles
character*(MAX_LEN_FNAM) profilesfiles(NFILESPROFMAX)
if ( profilesfiles(num_file) .NE. ' ' ) then
fname = profilesfiles(num_file)(1:IL)//'.nc'
& profilesfiles(num_file)(1:IL),' gets switched off'
profilesfiles(num_file) = ' '
& profilesfiles,
& profilesfiles(num_file)(1:IL),' ',