libf/dyn3d/comconst.f90

module comconst

  use dimens_m, only: jjm

  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 pi, dtphys, dtdiss
  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 omeg ! angular speed of rotation of the Earth (in rad s-1)

  private jjm

contains

  subroutine initialize

    print *, "Call sequence information: initialize"
    pi     =  Acos(-1.)
    omeg   = 2 * pi / daysec

  end subroutine initialize

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