diff --git a/src/lmdz/ext/yomhook.F90 b/src/lmdz/ext/yomhook.F90 new file mode 100644 index 0000000000000000000000000000000000000000..442e5a3800b79bc78478d6693cbd894bb83a107e --- /dev/null +++ b/src/lmdz/ext/yomhook.F90 @@ -0,0 +1,39 @@ +! (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 + + use parkind1, only : jprb + + public + + save + + logical :: lhook = .false. + + integer, parameter :: jphook=jprb + +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 diff --git a/tools/check_commit_lmdz.sh b/tools/check_commit_lmdz.sh index 1e6a363335d7a642c75dbded678f4383c4a8c900..e9b73e6d8655d1afca5edc867273d72db4312a53 100755 --- a/tools/check_commit_lmdz.sh +++ b/tools/check_commit_lmdz.sh @@ -251,7 +251,9 @@ if [ $packcreation -eq 1 ]; then #Missing files in case ecrad is not used if [ "$rad" != "ecrad" ] ; then - ln -s ecrad/yom* ecrad/abor1.F90 ecrad/abor1.intfb.h ecrad/parkind1.F90 . + for file in ecrad/yom* ecrad/abor1.F90 ecrad/abor1.intfb.h ecrad/parkind1.F90; do + [ ! -f $(basename $file) ] && ln -s $file . + done fi fi