diagSufx = THSICE_DIAG_SUFX( GAD_SI_FRAC, myThid )
diagSufx = THSICE_DIAG_SUFX( GAD_SI_HSNOW, myThid )
diagSufx = THSICE_DIAG_SUFX( GAD_SI_HICE, myThid )
diagSufx = THSICE_DIAG_SUFX( GAD_SI_QICE1, myThid )
diagSufx = THSICE_DIAG_SUFX( GAD_SI_QICE2, myThid )
CHARACTER*4 THSICE_DIAG_SUFX, diagSufx
diagSufx = THSICE_DIAG_SUFX( n, myThid )
CHARACTER*4 FUNCTION THSICE_DIAG_SUFX( tracerId, myThid )
THSICE_DIAG_SUFX = 'SIfr'
THSICE_DIAG_SUFX = 'SIhs'
THSICE_DIAG_SUFX = 'SIhi'
THSICE_DIAG_SUFX = 'SIq1'
THSICE_DIAG_SUFX = 'SIq2'
THSICE_DIAG_SUFX = 'iiii'