module mod_parameters
real, parameter :: onem=9806.
real, parameter :: onecm=onem/100.
real, parameter :: undef=-999.
!real, parameter :: pi=3.14159265358979323846
end module mod_parameters