trunk/dyn3d/comconst.f

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	guez	3	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