source: LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/drhook/yomhook_dummy.F90 @ 5409

! (C) Copyright 2014- ECMWF.

! This software is licensed under the terms of the Apache Licence Version 2.0
! which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.

! In applying this licence, ECMWF does not waive the privileges and immunities
! granted to it by virtue of its status as an intergovernmental organisation
! nor does it submit to any jurisdiction.

! DR_HOOK is a profiling and debugging system for the IFS, and should
! be called at the beginning and end of each subroutine. This is a
! dummy implementation for offline packages.

module yomhook

  public

  save

  integer, parameter :: jphook = selected_real_kind(13,300)
  logical :: lhook = .false.
  
contains

  subroutine dr_hook(proc_name, iswitch, proc_key)

    character(len=*), intent(in)    :: proc_name
    integer,          intent(in)    :: iswitch
    real(jphook),     intent(inout) :: proc_key
    ! Do nothing!

  end subroutine dr_hook

end module yomhook