!=======================================
! 2D cumulus model - kaminari
!  - subroutine
!
! Author    : TAKAHASHI Koko
! Date      : 2003/11/04 新規作成
! Note      :
!
!=======================================
subroutine subrtn(i,k,im,km)

  implicit none

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

  real(8), intent(in) ::
  real(8), intent(in) :: dx, dz

  real(8), intent(in) :: (-2:im+1,-2:km+1)

  real(8), intent(inout) :: (-2:im+1,-2:km+1)

  real(8)             :: (-2:im+1,-2:km+1)

end subroutine subrtn