| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465 |
- #include "tm5.inc"
- ! ----------------------------------------------------------------------
- !
- ! NAME
- ! const_ec_v - vertical level definition of the driving model
- !
- ! USAGE
- ! use const_ec_v
- !
- ! ----------------------------------------------------------------------
- module const_ec_v
- implicit none
-
- ! --- in/out -----------------------------
-
- private
- public :: lme, a_ec, b_ec
-
-
- ! --- const --------------------------------
-
- ! number of levels:
- integer, parameter :: lme = 62
-
- ! Hybrid coordinate coefficients at half level interfaces,
- ! specifying 62 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, &
- 988.835876, 1977.676270, 2966.516602, 3955.356934, 4944.197266, &
- 5933.037598, 6921.870117, 7909.441406, 8890.707031, 9860.528320, &
- 10807.783203, 11722.749023, 12595.006836, 13419.463867, 14192.009766, &
- 14922.685547, 15638.053711, 16329.560547, 16990.623047, 17613.281250, &
- 18191.029297, 18716.968750, 19184.544922, 19587.513672, 19919.796875, &
- 20175.394531, 20348.916016, 20434.158203, 20426.218750, 20319.011719, &
- 20107.031250, 19785.357422, 19348.775391, 18798.822266, 18141.296875, &
- 17385.595703, 16544.585938, 15633.566406, 14665.645508, 13653.219727, &
- 12608.383789, 11543.166992, 10471.310547, 9405.222656, 8356.252930, &
- 7335.164551, 6353.920898, 5422.802734, 4550.215820, 3743.464355, &
- 3010.146973, 2356.202637, 1784.854614, 1297.656128, 895.193542, &
- 576.314148, 336.772369, 162.043427, 54.208336, 6.575628, &
- 0.003160, 0.000000 /)
- real, parameter :: b_ec(0:lme) = (/ &
- 0.000000, &
- 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, &
- 0.000000, 0.000000, 0.000013, 0.000087, 0.000275, &
- 0.000685, 0.001415, 0.002565, 0.004187, 0.006322, &
- 0.009035, 0.012508, 0.016860, 0.022189, 0.028610, &
- 0.036227, 0.045146, 0.055474, 0.067316, 0.080777, &
- 0.095964, 0.112979, 0.131935, 0.152934, 0.176091, &
- 0.201520, 0.229315, 0.259554, 0.291993, 0.326329, &
- 0.362203, 0.399205, 0.436906, 0.475016, 0.513280, &
- 0.551458, 0.589317, 0.626559, 0.662934, 0.698224, &
- 0.732224, 0.764679, 0.795385, 0.824185, 0.850950, &
- 0.875518, 0.897767, 0.917651, 0.935157, 0.950274, &
- 0.963007, 0.973466, 0.982238, 0.989153, 0.994204, &
- 0.997630, 1.000000 /)
- end module const_ec_v
|
