<HTML> <BODY BGCOLOR=#ccccdd LINK=#0000aa VLINK=#0000ff ALINK=#ff0000 ><BASE TARGET="bottom_target"><PRE>
<A NAME='DA_GET_PRINT_LVL'><A href='../../html_code/tools/da_get_print_lvl.inc.html#DA_GET_PRINT_LVL' TARGET='top_target'><IMG SRC="../../gif/bar_red.gif" border=0></A>
subroutine da_get_print_lvl(prs,ipr) 15,2
!-----------------------------------------------------------------------
! Purpose: TBD
!-----------------------------------------------------------------------
implicit none
real, intent(in) :: prs
integer, intent(out) :: ipr
integer :: k
if (trace_use) call da_trace_entry
("da_get_print_lvl")
ipr = 1
do k =2, npres_print
! Avoid the pressure is unavailable (ex. -8888.88) Shu-Ya Chen (Dec. 2011)
if( (prs*.01 .ge. pptop(k-1)) .or. (prs < 0.)) exit
ipr = k
end do
if (trace_use) call da_trace_exit("da_get_print_lvl")
end subroutine da_get_print_lvl