CHARACTER*80 DIAGS_MK_TITLE

      diagTitle = DIAGS_MK_TITLE( eTitle//rTitle//' Anomaly', myThid )

      diagTitle = DIAGS_MK_TITLE( 'Square of '//eTitle//rTitle

      diagTitle = DIAGS_MK_TITLE( 'Square of '//eTitle//rTitle

      diagTitle = DIAGS_MK_TITLE( sTitle,  myThid )

      diagTitle = DIAGS_MK_TITLE( 'Square of '//sTitle, myThid )

      diagTitle = DIAGS_MK_TITLE( 'Zonal Mass-Weight Transp of '

      diagTitle = DIAGS_MK_TITLE( 'Meridional Mass-Weight Transp of '

      diagTitle = DIAGS_MK_TITLE( 'Vertical Mass-Weight Transp of '

      diagTitle = DIAGS_MK_TITLE( 'Zonal Transport of '

      diagTitle = DIAGS_MK_TITLE( 'Meridional Transport of '

      diagTitle = DIAGS_MK_TITLE( 'Vertical Transport of '

      diagTitle = DIAGS_MK_TITLE( 'Zonal Mass-Weight Transp of '

      diagTitle = DIAGS_MK_TITLE( 'Merid. Mass-Weight Transp of '

      diagTitle = DIAGS_MK_TITLE( 'Hydrostatic '

      diagTitle = DIAGS_MK_TITLE( 'Square of Hyd. '

      diagTitle = DIAGS_MK_TITLE( fTitle

      diagTitle = DIAGS_MK_TITLE( 'Square of '//fTitle

      diagTitle = DIAGS_MK_TITLE( 'Hydrostatic '

      diagTitle = DIAGS_MK_TITLE( 'Non-Hydrostatic '//pTitle, myThid )

      diagTitle = DIAGS_MK_TITLE( 'Cell-Center '//rTitle, myThid )

      diagTitle = DIAGS_MK_TITLE( eTitle//rTitle, myThid )

      diagTitle = DIAGS_MK_TITLE('Tendency of '//sTitle, myThid )

      diagTitle = DIAGS_MK_TITLE(

      diagTitle = DIAGS_MK_TITLE(

      diagTitle = DIAGS_MK_TITLE(

      CHARACTER*(80) DIAGS_MK_TITLE

      CHARACTER*80 FUNCTION DIAGS_MK_TITLE(

      DIAGS_MK_TITLE = '                                        '

           IF (j.LE.80) DIAGS_MK_TITLE(j:j) = ' '

         IF ( j.LE.80 ) DIAGS_MK_TITLE(j:j) = diagTitleInPieces(i:i)