9 function get_tracer_index (tracer_names, name, me, master, debug)
11 character(len=32),
intent(in) :: tracer_names(:)
12 character(len=*),
intent(in) :: name
13 integer,
intent(in) :: me
14 integer,
intent(in) :: master
15 logical,
intent(in) :: debug
17 integer :: get_tracer_index
20 get_tracer_index = no_tracer
22 do i=1,
size(tracer_names)
23 if (trim(name) == trim(tracer_names(i)))
then
29 if (debug .and. (me == master))
then
30 if (get_tracer_index == no_tracer)
then
31 print *,
' PE ',me,
' tracer with name '//trim(name)//
' not found'
33 print *,
' PE ',me,
' tracer FOUND:',trim(name)