IF( l_ptr ) THEN DEALLOCATE( zptry ) ENDIF ! END SUBROUTINE tra_adv_fct_lf #endif !!====================================================================== END MODULE traadv_fct