diff --git a/src/SURFEX/yomhook.F90 b/src/SURFEX/yomhook.F90 deleted file mode 100644 index 14c107fe45c979ebd7d0b8cf216a94dfcf1fbfb4..0000000000000000000000000000000000000000 --- a/src/SURFEX/yomhook.F90 +++ /dev/null @@ -1,33 +0,0 @@ -! (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