call CTRL_SET_FNAME(xx_uvel_file, fname_uvel, mythid)
il = ilnblnk(xx_uvel_file)
& xx_uvel_file(1:il),'.',optimcycle
& xx_uvel_file,
il=ilnblnk( xx_uvel_file )
& xx_uvel_file, 27, 127, 1, 1, 1,
& , xx_uvel_file
character*(MAX_LEN_FNAM) xx_uvel_file
xx_uvel_file = 'xx_uvel'