real (kind=kind_phys), dimension(nbands), parameter module_radsw_parameters::wvnum1 = (/ 2600.0, 3250.0, 4000.0, 4650.0, 5150.0, 6150.0, 7700.0, 8050.0,12850.0,16000.0,22650.0,29000.0,38000.0, 820.0 /)