module tide_param implicit none real(8), parameter :: grav = 9.80665d0 real(8), parameter :: gasr = 287.04d0 real(8), parameter :: cp = 1004.6d0 real(8), parameter :: pi = 3.14159266d0 real(8), parameter :: gm = 1.4d0 real(8), parameter :: kappa = (gm-1d0)/gm integer, parameter :: ss = 2 real(8), parameter :: secday= 3600*24 real(8), parameter :: omega = 2.0d0*pi/secday real(8), parameter :: sgm = omega*ss real(8), parameter :: ff = sgm/(2*omega) real(8), parameter :: rglob = 6375D3 real(8), parameter :: eps = 1D-5 complex(8), parameter :: zero_cmplx = cmplx(0d0,0d0) complex(8), parameter :: imag_unit = cmplx(0.0d0, 1.0d0) end module tide_param