   SUBROUTINE turbadv_difx(ect,psi)



   END SUBROUTINE turbadv_difx
