!=======================================
! 2D cumulus model - kaminari
!  - subroutine init_value
! 
! Author    : TAKAHASHI Koko
! Date      : 2003/11/11
! Note      : $B=i4|CM@_Dj(B
! 
!=======================================
subroutine init_value(i,k,im,km,u,w,prss_bs,temp_bs,        &
     &                prss,temp,qv,qc,qr,e_sub)

  implicit none

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

  real(8), intent(in) :: prss_bs(0:im+1,0:km+1)
  real(8), intent(in) :: temp_bs(0:im+1,0:km+1)

!  real(8), intent(in) :: x(0:im+1,0:km+1)
!  real(8), intent(in) :: z(0:im+1,0:km+1)

  real(8), intent(out) :: u(0:im+1,0:km+1)
  real(8), intent(out) :: w(0:im+1,0:km+1)
  real(8), intent(out) :: prss(0:im+1,0:km+1)
  real(8), intent(out) :: temp(0:im+1,0:km+1)
  real(8), intent(out) :: qv(0:im+1,0:km+1)
  real(8), intent(out) :: qc(0:im+1,0:km+1)
  real(8), intent(out) :: qr(0:im+1,0:km+1)
  real(8), intent(out) :: e_sub(0:im+1,0:km+1)

  !--- $B?eJ?B.EY(B u
  u(i,k) = 0.0D0

  !--- $B1tD>B.EY(B w
  w(i,k) = 0.0D0

  !--- $B05NO(B
  prss(i,k) = prss_bs(i,k)

  !--- $B29EY(B
  temp(i,k) = temp_bs(i,k)
!  temp(i,k) = temp_bs(i,k)                                      &
!       &      + 3.0d8*exp( - (x(i,k) - 1.0d4/2.0d0)**2.0d0/(5.0d2**2.0d0)&
!       &                - z(i,k)**2.0d0/(2.0d2**2.0d0))

  !--- $B?e>x5$$N:.9gHf(B
  qv(i,k) = 0.00D0

  !--- $B1@?e$N:.9gHf(B
  qc(i,k) = 0.00D0

  !--- $B1+?e$N:.9gHf(B
  qr(i,k) = 0.00D0

  !--- $B%5%V%0%j%C%I1?F0%(%M%k%.!<(B
  e_sub(i,k) = 0.0D0

end subroutine init_value

