#include <misc.h>
#include <params.h>
subroutine pdelb0(ps ,pdelb ,nlon ) 2,2
!-----------------------------------------------------------------------
!
! Purpose:
! Compute the pressure intervals between the interfaces for the "B"
! (surface pressure dependent) portion of the hybrid grid only.
!
! Method:
!
! Author: J. Olson
!
!-----------------------------------------------------------------------
!
! $Id: pdelb0.F90,v 1.1.2.1 2002/06/15 13:46:58 erik Exp $
! $Author: erik $
!
!-----------------------------------------------------------------------
use shr_kind_mod
, only: r8 => shr_kind_r8
use pmgrid
implicit none
#include <comhyb.h>
!------------------------------Arguments--------------------------------
integer , intent(in) :: nlon ! longitude dimension
real(r8), intent(in) :: ps(plond) ! surface Pressure
real(r8), intent(out):: pdelb(plond,plev) ! pressure difference between interfaces
! (pressure defined using the "B" part
! of the hybrid grid only)
!-----------------------------------------------------------------------
!---------------------------Local workspace-----------------------------
integer i,k ! longitude, level indices
!-----------------------------------------------------------------------
!
! Compute del P(B)
!
do k = 1,plev
do i = 1,nlon
pdelb(i,k) = hybd(k)*ps(i)
end do
end do
return
end subroutine pdelb0