var/da/da_tools/da_get_print_lvl.inc

   1 subroutine da_get_print_lvl(prs,ipr)
   2
   3    !-----------------------------------------------------------------------
   4    ! Purpose: TBD
   5    !-----------------------------------------------------------------------
   6
   7    implicit none
   8
   9    real,          intent(in)  :: prs
  10    integer,       intent(out) :: ipr
  11
  12    integer       :: k
  13
  14    if (trace_use) call da_trace_entry("da_get_print_lvl")
  15    ipr = 1
  16    do k =2, npres_print
  17  ! Avoid the pressure is unavailable (ex. -8888.88) Shu-Ya Chen (Dec. 2011)
  18      if( (prs*.01 .ge. pptop(k-1)) .or. (prs < 0.)) exit
  19      ipr = k
  20    end do
  21
  22    if (trace_use) call da_trace_exit("da_get_print_lvl")
  23
  24 end subroutine da_get_print_lvl
  25
  26