   SUBROUTINE turbadv_dify(ect,psi)



   END SUBROUTINE turbadv_dify

