!=======================================
! 2D cumulus model - kaminari
!  - subroutine pi2prss
! 
! Author    : TAKAHASHI Koko
! Date      : 2003/12/09  $B:G=*99?7(B
!             2003/11/01  $B?75,:n@.(B
! Note      : $BL5<!8505NO$+$i05NO$X$NJQ49(B
! 
!=======================================
!---------------------------------------
subroutine pi2prss(i,k,im,km,prss_sfc,rd,cp,pi,prss)

  implicit none

  integer(8), intent(in) :: i, k
  integer(8), intent(in) :: im, km

  real(8), intent(in) :: prss_sfc, rd, cp
  real(8), intent(in) :: pi(-2:im+2,-2:km+2)

  real(8), intent(out) :: prss(-2:im+2,-2:km+2)


  prss(i,k) = prss_sfc*pi(i,k)**(cp/rd)

end subroutine pi2prss
