fields(m,l) = blkName
diagName = DIAGS_RENAMED( fields(m,l), myThid )
CHARACTER*8 fields(fdimLoc,ldimLoc)
& levels, fields, fileName, fileFlags,