UPP (develop)
Loading...
Searching...
No Matches
retrieve_index.f
Go to the documentation of this file.
1
20!---------------------------------------------------------------------
29 subroutine retrieve_index(index,string,varname_all,nrecs,iret)
30
31
32 implicit none
33
34 integer,intent(out)::iret
35 integer,intent(in)::nrecs
36 integer,intent(out):: index
37 character(*), intent(in):: string
38 character(132),intent(in)::varname_all(nrecs)
39
40 integer i
41
42 iret=0
43
44 do i=1,nrecs
45 if(trim(string) == trim(varname_all(i))) then
46 index=i
47 return
48 end if
49 end do
50
51 write(6,*)' problem reading wrf nmm binary file, rec id "',trim(string),'" not found'
52
53 iret=-1
54
55end subroutine retrieve_index
subroutine retrieve_index(index, string, varname_all, nrecs, iret)
retrieve_index() gets record number of desired variable.