INTEGER vid, nv, ind_g_finfo, needed, nvar
nv = mnc_fv_ids(indf,1)
i = 2 + nv*3
mnc_fv_ids(indf,1) = nv + 1
I nv,
INTEGER nv
& 2, ' ', nv, dval, sZero, iZero, myThid )
& 3, ' ', nv, dZero, rval, iZero, myThid )
& 4, ' ', nv, dZero, sZero, ival, myThid )
integer nv
_RL xx(nv)
print *,'pathei: writing ', nv,' sized control to file',
call OPTIM_WRITEDATA( nv, ctrlname, lheaderonly, ff, xx )