integer ii,k, ind_cw_g, ig,ids,ide,nint, indd, cw_len, nk
indd = mnc_fd_ind(indf,ii)
IF (mnc_d_size(indd) .LT. sz_min) THEN
& k, ' is too small: ', mnc_d_size(indd), ' vs ',
CALL MNC_GET_NEXT_EMPTY_IND(MNC_MAX_ID, mnc_d_names, indd, myThid)
mnc_d_names(indd)(1:(dnl-dnf+1)) = dname(dnf:dnl)
mnc_d_size(indd) = dlen
mnc_d_ids(indd) = idd
mnc_f_alld(indf,n+2) = indd
integer i,j, indf,indd, n,nf, dnf,dnl
indd = 0
indd = jj
IF (indd .LT. 1) THEN
mnc_fd_ind(indf,j) = indd
integer i,j,k,ii,jj,kk, n,nf, indf,indg,indd, fid, ngrid