Skip to content
Snippets Groups Projects
Commit 96e9be10 authored by RODIER Quentin's avatar RODIER Quentin
Browse files

Quentin 22/09/2023: use update version of yomhook from IAL/AROME-->PHYEX which...

Quentin 22/09/2023: use update version of yomhook from IAL/AROME-->PHYEX which may also be updated in SURFEX repo in v9.1
parent 1e311926
No related branches found
No related tags found
No related merge requests found
! (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
save
logical :: lhook = .false.
contains
subroutine dr_hook(proc_name, iswitch, proc_key)
use parkind1, only : jprb
character(len=*), intent(in) :: proc_name
integer, intent(in) :: iswitch
real(jprb), intent(inout) :: proc_key
! Do nothing!
end subroutine dr_hook
end module yomhook
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment