real(kind=kind_phys), parameter physcons::con_rerth =6.3712e+6_kind_phys