include file: C_ECMWF_19 3
!---------COMDECK C_ECMWF_19-------------------------------------------- C_ECMWF_19.2
! C_ECMWF_19.3
! Description: C_ECMWF_19.4
! Initialisation of preset AK,BK,AKH and BKH for 19-level ECMWF levels C_ECMWF_19.5
! C_ECMWF_19.6
! Current Code Owner: D.M. Goddard C_ECMWF_19.7
! C_ECMWF_19.8
! History: C_ECMWF_19.9
! Version Date Comment C_ECMWF_19.10
! ------- ---- ------- C_ECMWF_19.11
! 3.5 14/05/95 Original code. D.M. Goddard C_ECMWF_19.12
! C_ECMWF_19.13
! Declarations: C_ECMWF_19.14
C_ECMWF_19.15
! Global parameters: C_ECMWF_19.16
INTEGER NLEVELS19 !Number of levels C_ECMWF_19.17
PARAMETER(NLEVELS19=19) C_ECMWF_19.18
! Global arrays: C_ECMWF_19.19
REAL AK_ECMWF_19(NLEVELS19) ! C_ECMWF_19.20
REAL BK_ECMWF_19(NLEVELS19) !Preset values C_ECMWF_19.21
REAL AKH_ECMWF_19(NLEVELS19+1) ! C_ECMWF_19.22
REAL BKH_ECMWF_19(NLEVELS19+1) ! C_ECMWF_19.23
C_ECMWF_19.24
!- End of COMDECK declaration C_ECMWF_19.25
C_ECMWF_19.26
DATA AK_ECMWF_19 / C_ECMWF_19.27
& 0.000000000000000E+00, 0.000000000000000E+00 C_ECMWF_19.28
&,0.392487113751509E+03, 0.166974550550356E+04 C_ECMWF_19.29
&,0.384399124847531E+04, 0.663586265090738E+04 C_ECMWF_19.30
&,0.962624283624707E+04, 0.123735444809637E+05 C_ECMWF_19.31
&,0.144988573078699E+05, 0.157414181886933E+05 C_ECMWF_19.32
&,0.159868415143402E+05, 0.152705515395222E+05 C_ECMWF_19.33
&,0.137588048607413E+05, 0.117096408074937E+05 C_ECMWF_19.34
&,0.941609875319582E+04, 0.713415603324707E+04 C_ECMWF_19.35
&,0.499771256951568E+04, 0.295943321382081E+04 C_ECMWF_19.36
&,0.879415620848072E+03/ C_ECMWF_19.37
C_ECMWF_19.38
DATA BK_ECMWF_19 / C_ECMWF_19.39
& 0.996138729444707E+00, 0.982621745531320E+00 C_ECMWF_19.40
&,0.950815815205693E+00, 0.892462793918780E+00 C_ECMWF_19.41
&,0.807826326862033E+00, 0.702535447692988E+00 C_ECMWF_19.42
&,0.585035737519342E+00, 0.464600227257370E+00 C_ECMWF_19.43
&,0.349852539849334E+00, 0.247756227536975E+00 C_ECMWF_19.44
&,0.163015578135734E+00, 0.978437041408294E-01 C_ECMWF_19.45
&,0.520470986482280E-01, 0.233798779820671E-01 C_ECMWF_19.46
&,0.811952462582929E-02, 0.181678546141253E-02 C_ECMWF_19.47
&,0.165255638412513E-03, 0.000000000000000E+00 C_ECMWF_19.48
&,0.000000000000000E+00/ C_ECMWF_19.49
C_ECMWF_19.50
DATA AKH_ECMWF_19 / C_ECMWF_19.51
& 0.000000000000000E+00, 0.000000000000000E+00 C_ECMWF_19.52
&,0.000000000000000E+00, 0.783196289062500E+03 C_ECMWF_19.53
&,0.254997290039063E+04, 0.512514843750000E+04 C_ECMWF_19.54
&,0.812714843750000E+04, 0.111015664062500E+05 C_ECMWF_19.55
&,0.136214609375000E+05, 0.153569218750000E+05 C_ECMWF_19.56
&,0.161162304687500E+05, 0.158611171875000E+05 C_ECMWF_19.57
&,0.146984882812500E+05, 0.128510937500000E+05 C_ECMWF_19.58
&,0.106095078125000E+05, 0.826792578125000E+04 C_ECMWF_19.59
&,0.604610937500000E+04, 0.400000000000000E+04 C_ECMWF_19.60
&,0.200000000000000E+04, 0.500000081956387E+02/ C_ECMWF_19.61
C_ECMWF_19.62
DATA BKH_ECMWF_19 / C_ECMWF_19.63
& 0.100000000000000E+01, 0.992281496524811E+00 C_ECMWF_19.64
&,0.972985208034515E+00, 0.928746879100800E+00 C_ECMWF_19.65
&,0.856437504291534E+00, 0.759698271751404E+00 C_ECMWF_19.66
&,0.646107852458954E+00, 0.524932146072388E+00 C_ECMWF_19.67
&,0.405409157276154E+00, 0.295519709587097E+00 C_ECMWF_19.68
&,0.201195538043976E+00, 0.125916838645935E+00 C_ECMWF_19.69
&,0.706499814987183E-01, 0.340772941708565E-01 C_ECMWF_19.70
&,0.130701400339603E-01, 0.335722905583680E-02 C_ECMWF_19.71
&,0.339000718668103E-03, 0.000000000000000E+00 C_ECMWF_19.72
&,0.000000000000000E+00, 0.000000000000000E+00/ C_ECMWF_19.73
!----------------------------------------------------------------------- C_ECMWF_19.74