retrieve_index.f

Go to the documentation of this file.

 
!---------------------------------------------------------------------
      subroutine retrieve_index(index,string,varname_all,nrecs,iret)
 
 
  implicit none
 
  integer,intent(out)::iret
  integer,intent(in)::nrecs
  integer,intent(out):: index
  character(*), intent(in):: string
  character(132),intent(in)::varname_all(nrecs)
 
  integer i
 
  iret=0
 
  do i=1,nrecs
   if(trim(string) == trim(varname_all(i))) then
      index=i
      return
   end if
  end do
 
  write(6,*)' problem reading wrf nmm binary file, rec id "',trim(string),'" not found'
 
  iret=-1
 
end subroutine retrieve_index