Permalink
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
17 lines (14 sloc) 421 Bytes
module params
implicit none
! Time step length
real(8), parameter :: dt = 0.005_8
! State vector properties
integer, parameter :: nx = 10
integer, parameter :: ny = 10
integer, parameter :: n = nx+nx*ny
! Model parameters
real(8), parameter :: f = 20.0_8
real(8), parameter :: h = 1.0_8
real(8), parameter :: c = 10.0_8
real(8), parameter :: b = 10.0_8
end module params