trunk/dyn3d/comconst.f

module comconst

  use dimens_m, only: jjm
  use nr_util, only: pi

  implicit none

  INTEGER im, jm, lllm, imp1
  integer, parameter:: jmp1 = jjm + 1
  integer lllmm1, lllmp1, lcl
  REAL dtvr ! time step for dynamics (in s)
  real, parameter:: daysec = 86400. ! number of seconds per day
  REAL dtphys ! time step of integration
  real, parameter:: rad = 6371229. ! radius of the Earth (in m)
  real r
  real, parameter:: cpp = 1004.70885 ! J K-1 kg-1
  real, parameter:: kappa = 0.2857143
  REAL cotot, unsim
  real, parameter:: g = 9.8 ! acceleration of gravity (in m s-2)

  real, parameter:: omeg = 2 * pi / daysec
  ! angular speed of rotation of the Earth (in rad s-1)

  private jjm, pi

end module comconst
1	module comconst
2
3	use dimens_m, only: jjm
4	use nr_util, only: pi
5
6	implicit none
7
8	INTEGER im, jm, lllm, imp1
9	integer, parameter:: jmp1 = jjm + 1
10	integer lllmm1, lllmp1, lcl
11	REAL dtvr ! time step for dynamics (in s)
12	real, parameter:: daysec = 86400. ! number of seconds per day
13	REAL dtphys ! time step of integration
14	real, parameter:: rad = 6371229. ! radius of the Earth (in m)
15	real r
16	real, parameter:: cpp = 1004.70885 ! J K-1 kg-1
17	real, parameter:: kappa = 0.2857143
18	REAL cotot, unsim
19	real, parameter:: g = 9.8 ! acceleration of gravity (in m s-2)
20
21	real, parameter:: omeg = 2 * pi / daysec
22	! angular speed of rotation of the Earth (in rad s-1)
23
24	private jjm, pi
25
26	end module comconst