half-level pressures: ---------------------------------------------------------------------- p_bnds(k) = ap_bnds(k) + b_bnds(k)*ps [Pa] ps: Surface Air Pressure [Pa] ---------------------------------------------------------------------- integer,parameter :: max_nlev_alevel = 80 real(8),parameter :: ap_bnds(max_nlev_alevel+1) = (/ & 0.000000000000000d0, 0.000000000000000d0, 0.000000000000000d0, & 0.000000000000000d0, 0.000000000000000d0, 0.000000000000000d0, & 0.000000000000000d0, 0.000000000000000d0, 133.0490708351135d0, & 364.9022817611694d0, 634.6009254455566d0, 959.7954750061035d0, & 1347.678470611572d0, 1790.905952453613d0, 2294.840431213379d0, & 2847.483444213867d0, 3468.870544433594d0, 4162.955474853516d0, & 4891.880035400391d0, 5671.823501586914d0, 6476.712036132812d0, & 7297.469329833984d0, 8122.159576416016d0, 8914.081573486328d0, & 9656.181335449219d0, 10329.43572998047d0, 10912.63809204102d0, & 11369.64797973633d0, 11681.15463256836d0, 11845.12481689453d0, & 11878.50646972656d0, 11800.75531005859d0, 11634.85717773438d0, & 11403.83834838867d0, 11128.02810668945d0, 10823.34442138672d0, & 10500.59967041016d0, 10165.63644409180d0, 9820.027160644531d0, & 9462.145233154297d0, 9088.394165039062d0, 8705.790710449219d0, & 8307.009124755859d0, 7893.966674804687d0, 7468.717193603516d0, & 7033.487701416016d0, 6590.670776367187d0, 6142.877578735352d0, & 5660.869979858398d0, 5182.970046997070d0, 4727.610015869141d0, & 4294.559860229492d0, 3883.670043945312d0, 3494.860076904297d0, & 3128.089904785156d0, 2783.379936218262d0, 2460.759925842285d0, & 2160.269927978516d0, 1881.920051574707d0, 1625.679969787598d0, & 1391.450023651123d0, 1179.020023345947d0, 988.0700111389160d0, & 818.1200027465820d0, 668.5200214385986d0, 538.4500026702881d0, & 426.9000053405762d0, 332.6699972152710d0, 254.3900012969971d0, & 190.5500054359436d0, 139.5400047302246d0, 99.69999790191650d0, & 69.33000087738037d0, 46.81000113487244d0, 30.59999942779541d0, & 19.31000053882599d0, 11.72000020742416d0, 6.819999963045120d0, & 3.790000081062317d0, 1.999999955296516d0, 0.000000000000000d0 & & /) real(8),parameter :: b_bnds(max_nlev_alevel+1) = (/ & 1.000000000000000d0, 9.969999790191650d-1, 9.940000176429749d-1, & 9.890000224113464d-1, 9.819999933242798d-1, 9.720000028610229d-1, & 9.599999785423279d-1, 9.459999799728394d-1, 9.266695380210876d-1, & 9.043509960174561d-1, 8.796539902687073d-1, 8.514020442962646d-1, & 8.195232152938843d-1, 7.850909233093262d-1, 7.480515837669373d-1, & 7.095251679420471d-1, 6.683112978935242d-1, 6.243704557418823d-1, & 5.800812244415283d-1, 5.342817902565002d-1, 4.882328808307648d-1, & 4.420253038406372d-1, 3.957784175872803d-1, 3.508591949939728d-1, & 3.074381947517395d-1, 2.657056450843811d-1, 2.258736193180084d-1, & 1.893035173416138d-1, 1.568834483623505d-1, 1.292423456907272d-1, & 1.058217361569405d-1, 8.630114793777466d-2, 7.024332880973816d-2, & 5.715431645512581d-2, 4.653471708297729d-2, 3.791625797748566d-2, & 3.088460303843021d-2, 2.509043924510479d-2, 2.025233022868633d-2, & 1.615484803915024d-2, 1.264325808733702d-2, 9.694494307041168d-3, & 7.185111753642559d-3, 5.085833370685577d-3, 3.367024473845959d-3, & 1.998520921915770d-3, 9.492950630374253d-4, 1.873250585049391d-4, & 0.000000000000000d0, 0.000000000000000d0, 0.000000000000000d0, & 0.000000000000000d0, 0.000000000000000d0, 0.000000000000000d0, & 0.000000000000000d0, 0.000000000000000d0, 0.000000000000000d0, & 0.000000000000000d0, 0.000000000000000d0, 0.000000000000000d0, & 0.000000000000000d0, 0.000000000000000d0, 0.000000000000000d0, & 0.000000000000000d0, 0.000000000000000d0, 0.000000000000000d0, & 0.000000000000000d0, 0.000000000000000d0, 0.000000000000000d0, & 0.000000000000000d0, 0.000000000000000d0, 0.000000000000000d0, & 0.000000000000000d0, 0.000000000000000d0, 0.000000000000000d0, & 0.000000000000000d0, 0.000000000000000d0, 0.000000000000000d0, & 0.000000000000000d0, 0.000000000000000d0, 0.000000000000000d0 & & /)