real(r8), dimension(ndpara) | mo_heatnirco2::zppara = (/ -17.00_r8, -16.75_r8, -16.50_r8, -16.25_r8, -16.00_r8, -15.75_r8, -15.50_r8, -15.25_r8, -15.00_r8, -14.75_r8, -14.50_r8, -14.25_r8, -14.00_r8, -13.75_r8, -13.50_r8, -13.25_r8, -13.00_r8, -12.75_r8, -12.50_r8, -12.25_r8, -12.00_r8, -11.75_r8, -11.50_r8, -11.25_r8, -11.00_r8, -10.75_r8, -10.50_r8, -10.25_r8, -10.00_r8, -9.75_r8, -9.50_r8, -9.25_r8, -9.00_r8, -8.75_r8, -8.50_r8, -8.25_r8, -8.00_r8, -7.75_r8, -7.50_r8, -7.25_r8, -7.00_r8, -6.75_r8, -6.50_r8, -6.25_r8, -6.00_r8, -5.75_r8, -5.50_r8, -5.25_r8, -5.00_r8, -4.75_r8, -4.50_r8, -4.25_r8, -4.00_r8, -3.75_r8, -3.50_r8, -3.25_r8, -3.00_r8, -2.75_r8, -2.50_r8, -2.25_r8, -2.00_r8, -1.75_r8 /) |