DestroyTMat Subroutine

    SUBROUTINE DestroyTMat(NEWTMAT)
        ! In:
        !    NewTMat : if true, destroy arrays used in storing "new" (post-freezing) TMat,
        !              else destroy those used for the pre-freezing TMat.
        IMPLICIT NONE
        LOGICAL :: NEWTMAT
        character(len=*), parameter :: thisroutine = 'DestroyTMat'

        IF (NEWTMAT) THEN
            IF (ASSOCIATED(TMAT2D2)) THEN
                call LogMemDealloc(thisroutine, tagTMat2D2)
                Deallocate(TMAT2D2)
                NULLIFY (TMAT2D2)
            end if
        ELSE
            IF (ASSOCIATED(TMAT2D)) THEN
                Deallocate(TMAT2D)
                call LogMemDealloc(thisroutine, tagTMat2D)
                NULLIFY (TMAT2D)
            end if
        end if
    END SUBROUTINE DestroyTMat