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	guez	3	module comconst
2
3			use dimens_m, only: jjm
4	guez	39	use nr_util, only: pi
5	guez	3
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	guez	70	REAL dtphys ! time step of integration
14	guez	3	real, parameter:: rad = 6371229. ! radius of the Earth (in m)
15			real r
16	guez	42	real, parameter:: cpp = 1004.70885 ! J K-1 kg-1
17			real, parameter:: kappa = 0.2857143
18	guez	3	REAL cotot, unsim
19			real, parameter:: g = 9.8 ! acceleration of gravity (in m s-2)
20
21	guez	39	real, parameter:: omeg = 2 * pi / daysec
22			! angular speed of rotation of the Earth (in rad s-1)
23	guez	3
24	guez	39	private jjm, pi
25	guez	3
26			end module comconst