#include <misc.h>#include <params.h>subroutine pdelb0(ps      ,pdelb   ,nlon    )!----------------------------------------------------------------------- ! ! 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 2001/11/06 18:42:49 erik Exp $! $Author: erik $!!-----------------------------------------------------------------------  use precision  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  returnend subroutine pdelb0