CCPP SciDoc v7.0.0  v7.0.0
Common Community Physics Package Developed at DTC
 
Loading...
Searching...
No Matches
GFDL_parse_tracers.F90
2
3 integer, parameter :: no_tracer = -99
4
5 public get_tracer_index, no_tracer
6
7CONTAINS
8
9 function get_tracer_index (tracer_names, name, me, master, debug)
10
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
16 !--- local variables
17 integer :: get_tracer_index
18 integer :: i
19
20 get_tracer_index = no_tracer
21
22 do i=1, size(tracer_names)
23 if (trim(name) == trim(tracer_names(i))) then
24 get_tracer_index = i
25 exit
26 endif
27 enddo
28
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'
32 else
33 print *,' PE ',me,' tracer FOUND:',trim(name)
34 endif
35 endif
36
37 return
38
39 end function get_tracer_index
40
41end module parse_tracers