Implementation of Dr Hook in the code

2011-11-25T17:02:23Z

For the developers, in order DR_HOOK to run, each subroutine has to contain several further instructions :

USE YOMHOOK, ONLY : LHOOK, DR_HOOK
USE PARKIND1, ONLY : JPRB

REAL(KIND=JPRB) :: ZOOK_HANDLE

Then, just after declarations :
IF (LHOOK) CALL DR_HOOK('name of the subroutine',0, ZHOOK_HANDLE)

And, each time a subroutine is left (ie before each RETURN and before the END SUBROUTINE) :
IF (LHOOK) CALL DR_HOOK('name of the subroutine',1,ZHOOK_HANDLE)

Some scripts to automatically insert these instructions in .F90 or .F routines exist:

get insert_drhook_F, insert_drhook_F.pl, insert_drhook_F90, insert_drhook_F90.pl
also get src/Fortran90_stuff_interface.pm
do ./insert_drhook.F90 file.F90 or ./insert_drhook.F file.F to insert Dr Hook instructions

To use DR_HOOK in Surfex

2011-11-25T16:01:48Z

The debugger and profiler Dr Hook is integrated in Surfex 7.

To use the debugger, before to execute the program, type :

export DR_HOOK=1

In case of a crash, the traceback and the exact localisation of the error is printed to the screen.

To use the profiler of the time spent in the different subroutines, still type :

export DR_HOOK_OPT=prof

A output file drhook.prof.1 is then created, that contains the profiling.

SURFEX

Implementation of Dr Hook in the code

To use DR_HOOK in Surfex