| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859 |
- #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 = 10
-
- ! Hybrid coordinate coefficients at half level interfaces,
- ! specifying 10 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, &
- 450.685791, &
- 3358.425781, &
- 7341.469727, &
- 15638.053711, &
- 20319.011719, &
- 14665.645508, &
- 3010.146973, &
- 336.772369, &
- 6.575628, &
- 0.000000 /)
- real, parameter :: b_ec(0:lme) = (/ &
- 0.000000, &
- 0.000000, &
- 0.000000, &
- 0.000000, &
- 0.012508, &
- 0.176091, &
- 0.475016, &
- 0.875518, &
- 0.973466, &
- 0.994204, &
- 1.000000 /)
- end module const_ec_v
|
