CHARACTER*(8) DIAGS_RENAMED
diagName = DIAGS_RENAMED( fields(m,l), myThid )
diagName = DIAGS_RENAMED( stat_fields(m,l), myThid )
CHARACTER*8 FUNCTION DIAGS_RENAMED(
DIAGS_RENAMED = diagName
DIAGS_RENAMED = newName