module mod_physic_params ! use nrtype DOUBLE PRECISION,PARAMETER :: CVLIGHT=274.0720442D0 end module mod_physic_params