nveccount = 0
common /admtlm_i/ nveccount
integer nveccount
nveccount = nveccount + 1
phtmpadmtlm(nveccount) = cbuff(cbuffindex)
& phtmpadmtlm(nveccount)
fld2dNodim(i,j,bi,bj)=phtmpadmtlm(nveccount)
fld3dNodim(i,j,k,bi,bj)=phtmpadmtlm(nveccount)