I dnames,
character*(*) dnames(*)
nnf = IFNBLNK(dnames(i))
nnl = ILNBLNK(dnames(i))
mnc_cw_dn(i,indg)(1:(nnl-nnf+1)) = dnames(i)(nnf:nnl)
character*(MNC_MAX_CHAR) dnames(20)
dnames(i)(1:MNC_MAX_CHAR) = mnc_d_names(did)(1:MNC_MAX_CHAR)
CALL MNC_GRID_INIT_ALL(fname, name, ndv, dnames, indg, myThid)
IF (mnc_d_names(mnc_fd_ind(indf,jj)) .NE. dnames(k)) THEN
n = ILNBLNK(dnames(i))
& .AND. (dnames(i)(1:n) .EQ. mnc_d_names(jj)(1:kk))) THEN
& dnames(i)(1:n), ''' does not exist for file ''',
character*(*) dnames(ndim)
CALL MNC_GRID_INIT_ALL(fname, gname, ndim, dnames, ind, myThid)