libf/dyn3d/comconst.f90

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
  real, parameter:: rad = 6371229. ! radius of the Earth (in m)
  real r
  real, parameter:: cpp = 1004.70885, 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
14	real, parameter:: rad = 6371229. ! radius of the Earth (in m)
15	real r
16	real, parameter:: cpp = 1004.70885, kappa = 0.2857143
17	REAL cotot, unsim
18	real, parameter:: g = 9.8 ! acceleration of gravity (in m s-2)
19
20	real, parameter:: omeg = 2 * pi / daysec
21	! angular speed of rotation of the Earth (in rad s-1)
22
23	private jjm, pi
24
25	end module comconst