Newer
Older
DEALLOCATE( ztrdx, ztrdy, ztrdz )
ENDIF
IF( l_ptr ) THEN
DEALLOCATE( zptry )
ENDIF
!
END SUBROUTINE tra_adv_fct_lf
#endif
!!======================================================================
END MODULE traadv_fct