full-level pressures: ---------------------------------------------------------------------- p(k) = ap(k) + b(k)*ps [Pa] ps: Surface Air Pressure [Pa] ---------------------------------------------------------------------- integer,parameter :: max_nlev_alevel = 80 real(8),parameter :: ap(max_nlev_alevel) = (/ & 0.000000000000000d0, 0.000000000000000d0, 0.000000000000000d0, & 0.000000000000000d0, 0.000000000000000d0, 0.000000000000000d0, & 0.000000000000000d0, 66.73375032964721d0, 249.3862688402697d0, & 500.2933325174431d0, 797.9666556989400d0, 1154.805138975993d0, & 1570.659355952966d0, 2044.614261356945d0, 2573.238394707443d0, & 3160.801441303603d0, 3819.219950863016d0, 4531.146662755128d0, & 5286.280583517781d0, 6079.247825101558d0, 6892.674277457878d0, & 7716.055563364047d0, 8524.702057927625d0, 9292.014139793051d0, & 9999.938491946634d0, 10628.33996429584d0, 11148.07012209053d0, & 11531.50559330951d0, 11768.06968763507d0, 11865.69066691818d0, & 11842.51669556518d0, 11719.83565733568d0, 11520.68517409951d0, & 11266.74325427571d0, 10976.11244057112d0, 10662.12618846391d0, & 10333.07825453340d0, 9992.645533963245d0, 9640.775532932187d0, & 9274.836650763294d0, 8896.557095692262d0, 8505.740812412026d0, & 8099.703537530543d0, 7680.431073913341d0, 7250.064402486969d0, & 6810.914049421766d0, 6365.483150931706d0, 5900.234410364638d0, & 5420.164142963778d0, 4953.545702883265d0, 4509.351927890287d0, & 4087.393686351663d0, 3687.556677548824d0, 3309.781260857969d0, & 2954.058622251314d0, 2620.414604473106d0, 2308.885111262513d0, & 2019.496054006603d0, 1752.238280849524d0, 1507.047674359919d0, & 1283.769873553251d0, 1082.140543269654d0, 901.7598469237207d0, & 742.0627315855353d0, 602.3139663915818d0, 481.5977073761383d0, & 378.8075722112002d0, 292.6567842797017d0, 221.7032531648048d0, & 164.3846725529659d0, 119.0637663500186d0, 84.05705136760965d0, & 57.70309234405453d0, 38.41938776523870d0, 24.73976128032122d0, & 15.35822813314666d0, 9.160393471235845d0, 5.231567904940420d0, & 2.847886146173920d0, 9.999999776482362d-1 & & /) real(8),parameter :: b(max_nlev_alevel) = (/ & 9.984996139408759d-1, 9.954996216454508d-1, 9.914989694309972d-1, & 9.854979361385259d-1, 9.769957333205095d-1, 9.659937794443810d-1, & 9.529914097290787d-1, 9.363182630048926d-1, 9.154880180731755d-1, & 8.919746112803857d-1, 8.654905472955799d-1, 8.354134228166497d-1, & 8.022476141714961d-1, 7.664997133334456d-1, 7.287075849476976d-1, & 6.888213047792955d-1, 6.462246958761493d-1, 6.021007347341492d-1, & 5.570389519367429d-1, 5.111028039155917d-1, 4.649611458204325d-1, & 4.187188309990320d-1, 3.731293681143954d-1, 3.289527935082158d-1, & 2.863695450634375d-1, 2.455808407591380d-1, 2.073866320473996d-1, & 1.729093617337726d-1, 1.429064170035222d-1, 1.173999845532744d-1, & 9.595312992083441d-2, 7.818549379795862d-2, 6.363056919123207d-2, & 5.179135127253032d-2, 4.218411469117877d-2, 3.436793719271061d-2, & 2.796150044735957d-2, 2.264995192963255d-2, 1.818534095685732d-2, & 1.438300312018439d-2, 1.115517372203081d-2, 8.427615680201212d-3, & 6.124783801384643d-3, 4.217221913867343d-3, 2.675028813879341d-3, & 1.467602915299301d-3, 5.634113614844845d-4, 9.237582623768269d-5, & 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 & & /)