!=======================================
! 2D cumulus model - kaminari
!  - subroutine init_value
! 
! Author    : TAKAHASHI Koko
! Date      : 2003/11/25  $B:G=*99?7(B
!             2003/11/11  $B?75,:n@.(B
! Note      : $B=i4|CM@_Dj(B
! 
!=======================================
!--- 1$B9TL\F~NOJQ?t(B, 2,3$B9TL\=PNOJQ?t(B
subroutine init_value(i,k,im,km,prss_bs,temp_bs,       &
     &                u,w,prss,temp)
 
  implicit none

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

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

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

  real(8), intent(out) :: u(-2:im+1,-2:km+1)
  real(8), intent(out) :: w(-2:im+1,-2:km+1)
  real(8), intent(out) :: prss(-2:im+1,-2:km+1)
  real(8), intent(out) :: temp(-2:im+1,-2:km+1)
!  real(8), intent(out) :: qv(-2:im+1,-2:km+1)
!  real(8), intent(out) :: qc(-2:im+1,-2:km+1)
!  real(8), intent(out) :: qr(-2:im+1,-2:km+1)
!  real(8), intent(out) :: km_sub(-2:im+1,-2: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)
!  prss(i,k) = prss_bs(i,k)                                  &
!       &      - 1.0d4*exp(-(x(i,k) - 1.0d4/2.0d0)**2.0d0/(5.0d2**2.0d0) &
!       &                  -(z(i,k) - 1.0d4/2.0d0)**2.0d0/(5.0d2**2.0d0))

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

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

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

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

  !--- $B12:.9g78?t(B
!  km_sub(i,k) = 10.0d0

end subroutine init_value

