source: LMDZ6/branches/LMDZ-ECRAD/libf/phylmd/ecrad/yomhook.F90 @ 3880

Last change on this file since 3880 was 3880, checked in by idelkadi, 3 years ago

Online implementation of the radiative transfer code ECRAD in LMDZ.

  • Inclusion of the ecrad directory containing the sources of the ECRAD code
  • Adaptation of compilation scripts (CPP_ECRAD keys)
  • Call of ecrad in radlwsw_m.F90 under the logical key iflag_rrtm = 2
File size: 930 bytes
Line 
1! (C) Copyright 2014- ECMWF.
2!
3! This software is licensed under the terms of the Apache Licence Version 2.0
4! which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
5!
6! In applying this licence, ECMWF does not waive the privileges and immunities
7! granted to it by virtue of its status as an intergovernmental organisation
8! nor does it submit to any jurisdiction.
9!
10! DR_HOOK is a profiling and debugging system for the IFS, and should
11! be called at the beginning and end of each subroutine. This is a
12! dummy implementation for offline packages.
13
14module yomhook
15
16  public
17
18  save
19
20  logical :: lhook = .false.
21
22contains
23
24  subroutine dr_hook(proc_name, iswitch, proc_key)
25
26    use parkind1, only : jprb
27
28    character(len=*), intent(in)    :: proc_name
29    integer,          intent(in)    :: iswitch
30    real(jprb),       intent(inout) :: proc_key
31    ! Do nothing!
32
33  end subroutine dr_hook
34
35end module yomhook
Note: See TracBrowser for help on using the repository browser.