| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263 |
- #include "tm5.inc"
- ! ----------------------------------------------------------------------
- !
- ! NAME
- ! const_ec_v - vertical level definition of the ecwmf model
- !
- ! USAGE
- ! use const_ec_v
- !
- ! CHANGES
- ! may 2001, Arjo Segers, KNMI
- ! Rebuilt from 'constants_ecmwf_##_##_##.f90'
- !
- ! ----------------------------------------------------------------------
- module const_ec_v
- implicit none
-
- ! --- in/out -----------------------------
-
- private
- public :: lme, a_ec, b_ec
-
-
- ! --- const --------------------------------
-
- ! number of levels:
- integer, parameter :: lme = 40
-
- ! Hybrid coordinate coefficients at half level interfaces,
- ! specifying 40 vertical ECMWF levels.
- ! Coefficient a is given in [Pa] .
- ! Pressure at a certain hybrid level is defined as: p = a + b.SP
- real, parameter :: a_ec(0:lme) = (/ &
- 0.000000, 2000.000000, 4000.000000, 6000.000000, &
- 8000.000000, 9988.882813, 11914.523438, 13722.941406, &
- 15369.730469, 16819.476563, 18045.183594, 19027.695313, &
- 19755.109375, 20222.205078, 20429.863281, 20384.480469, &
- 20097.402344, 19584.330078, 18864.750000, 17961.357422, &
- 16899.468750, 15706.447266, 14411.124023, 13043.218750, &
- 11632.758789, 10209.500977, 8802.356445, 7438.803223, &
- 6144.314941, 4941.778320, 3850.913330, 2887.696533, &
- 2063.779785, 1385.912598, 855.361755, 467.333588, &
- 210.393890, 65.889244, 7.367743, 0.000000, &
- 0.000000/)
- real, parameter :: b_ec(0:lme) = (/ &
- 0.0000000000, 0.0000000000, 0.0000000000, 0.0000000000, &
- 0.0000000000, 0.0001971156, 0.0015112918, 0.0048841573, &
- 0.0110761747, 0.0206778906, 0.0341211632, 0.0516904071, &
- 0.0735338330, 0.0996747017, 0.1300225258, 0.1643843055, &
- 0.2024759650, 0.2439331412, 0.2883229256, 0.3351548910, &
- 0.3838921785, 0.4339629412, 0.4847716093, 0.5357099175, &
- 0.5861684084, 0.6355474591, 0.6832686067, 0.7287858129, &
- 0.7715966105, 0.8112534285, 0.8473749161, 0.8796569109, &
- 0.9078838825, 0.9319403172, 0.9518215060, 0.9676452279, &
- 0.9796627164, 0.9882701039, 0.9940194488, 0.9976301193, &
- 1.0000000000 /)
- end module const_ec_v
|
