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
55
end subroutine
retrieve_index
retrieve_index
subroutine retrieve_index(index, string, varname_all, nrecs, iret)
retrieve_index() gets record number of desired variable.
Definition
retrieve_index.f:30
retrieve_index.f
Generated by
1.9.8