!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!$BI=Bj(B: 
!$BMzNr(B: 2003/08/25: shuron/2d-ice-model/prm.f90 $B$+$iJ,4t(B
!                  $B3J;R?t$O(B Huybrechts and Payne 1996 $B$K1h$&(B
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
module prm
  implicit none
!--------------------------------------------------------------------!
              !-- $B6u4V2rA|EY$N@_Dj(B ----!
!--------------------------------------------------------------------!
  integer    , parameter :: IMAX   = 31              ! x $BJ}8~$N3J;R?t(B
  integer    , parameter :: JMAX   = 3               ! y $BJ}8~$N3J;R?t(B
  integer    , parameter :: KMAX   = 11              ! z $B$NAX?t(B

  real(8)    , parameter :: DX    = 50.D+3            ! 1 $B3J;RE@4V3V(B

!--------------------------------------------------------------------!
             !-- $B;~4V@QJ,%Q%i%a!<%?(B ---!
!--------------------------------------------------------------------!
  real(8)    , parameter :: s_a   = 60.0D0 * 60.D0 * 24.D0 * 365.D0 ! second/year
!  real(8)    , parameter :: dt    = s_a *1.D+3         ! 10^5 $BG/(B(n =2)
!  real(8)     , parameter :: dt    = s_a/12.D0          !n = 4 $B$N$H$-(B
  real(8)     , parameter :: dt    = s_a*4.0D0          ! 1 $BG/(B(n = 3)
  real(8)     , parameter :: dt_T  = s_a*20.0D0          ! 1 $BG/(B(n = 3)

  real(8)     , parameter :: pi = 3.14159265358979323846264338328D0
!   real(8)    , parameter  :: dt    = 60.D0            ! 1 $BJ,(B(n = 4)


end module prm




