module dynconst 2,2
!
! Constants used in dynamics
!
use shr_kind_mod
, only: r8 => shr_kind_r8
use shr_const_mod
, only: shr_const_omega, shr_const_rearth
implicit none
private
public dynconsti
real(r8), public, parameter :: omega = shr_const_omega ! Angular velocity of Earth's rotation
real(r8), public, parameter :: rearth = shr_const_rearth ! Radius of the earth
real(r8), public, parameter :: ra = 1.0 / rearth ! Reciprocal of earth radius
real(r8), public, save :: ez ! Coriolis expansion coeff -> omega/sqrt(0.375)
contains
subroutine dynconsti 1
ez = omega / sqrt(0.375)
end subroutine dynconsti
end module dynconst