include file: C_ECMWF_31 3
!---------COMDECK C_ECMWF_31-------------------------------------------- C_ECMWF_31.2
! C_ECMWF_31.3
! Description: C_ECMWF_31.4
! Initialisation of preset AK,BK,AKH and BKH for 19-level ECMWF levels C_ECMWF_31.5
! C_ECMWF_31.6
! Current Code Owner: D.M. Goddard C_ECMWF_31.7
! C_ECMWF_31.8
! History: C_ECMWF_31.9
! Version Date Comment C_ECMWF_31.10
! ------- ---- ------- C_ECMWF_31.11
! 3.5 14/05/95 Original code. D.M. Goddard C_ECMWF_31.12
! C_ECMWF_31.13
! Declarations: C_ECMWF_31.14
C_ECMWF_31.15
! Global parameters: C_ECMWF_31.16
INTEGER NLEVELS31 !Number of levels C_ECMWF_31.17
PARAMETER(NLEVELS31=31) C_ECMWF_31.18
! Global arrays: C_ECMWF_31.19
REAL AK_ECMWF_31(NLEVELS31) ! C_ECMWF_31.20
REAL BK_ECMWF_31(NLEVELS31) !Preset values C_ECMWF_31.21
REAL AKH_ECMWF_31(NLEVELS31+1) ! C_ECMWF_31.22
REAL BKH_ECMWF_31(NLEVELS31+1) ! C_ECMWF_31.23
C_ECMWF_31.24
!- End of COMDECK declaration C_ECMWF_31.25
C_ECMWF_31.26
DATA AK_ECMWF_31 / C_ECMWF_31.27
& 0.000000000000000E+00, 0.000000000000000E+00 C_ECMWF_31.28
&,0.360945395225382E+02, 0.172065962016737E+03 C_ECMWF_31.29
&,0.455366498322024E+03, 0.917843715666848E+03 C_ECMWF_31.30
&,0.157658414817064E+04, 0.243487770565203E+04 C_ECMWF_31.31
&,0.348330256158656E+04, 0.470093117355484E+04 C_ECMWF_31.32
&,0.605665909044177E+04, 0.751065861164394E+04 C_ECMWF_31.33
&,0.901595003589688E+04, 0.105200978215532E+05 C_ECMWF_31.34
&,0.119670310001004E+05, 0.132989889450563E+05 C_ECMWF_31.35
&,0.144585874032593E+05, 0.153910095163340E+05 C_ECMWF_31.36
&,0.160463240649462E+05, 0.163819141916454E+05 C_ECMWF_31.37
&,0.163650499091333E+05, 0.159755689391754E+05 C_ECMWF_31.38
&,0.152086690530493E+05, 0.140778329696428E+05 C_ECMWF_31.39
&,0.126178446562412E+05, 0.108879130339567E+05 C_ECMWF_31.40
&,0.897487725912053E+04, 0.698292444751578E+04 C_ECMWF_31.41
&,0.497600324894382E+04, 0.295943321382081E+04 C_ECMWF_31.42
&,0.879415620848072E+03/ C_ECMWF_31.43
C_ECMWF_31.44
DATA BK_ECMWF_31 / C_ECMWF_31.45
& 0.996138729444707E+00, 0.982621745531320E+00 C_ECMWF_31.46
&,0.958574149638797E+00, 0.925924138660846E+00 C_ECMWF_31.47
&,0.886279752489540E+00, 0.840990676094138E+00 C_ECMWF_31.48
&,0.791201680132733E+00, 0.737902771477229E+00 C_ECMWF_31.49
&,0.681971468329504E+00, 0.624206260436122E+00 C_ECMWF_31.50
&,0.565358422012556E+00, 0.506153009322551E+00 C_ECMWF_31.51
&,0.447304636427745E+00, 0.389528580005730E+00 C_ECMWF_31.52
&,0.333542474805819E+00, 0.280063961920927E+00 C_ECMWF_31.53
&,0.229799981421672E+00, 0.183431266650151E+00 C_ECMWF_31.54
&,0.141589262660035E+00, 0.104826762957438E+00 C_ECMWF_31.55
&,0.735830915251995E-01, 0.481402343652541E-01 C_ECMWF_31.56
&,0.285753243044531E-01, 0.147052501718621E-01 C_ECMWF_31.57
&,0.602519524620794E-02, 0.164082635987922E-02 C_ECMWF_31.58
&,0.192708137852118E-03, 0.000000000000000E+00 C_ECMWF_31.59
&,0.000000000000000E+00, 0.000000000000000E+00 C_ECMWF_31.60
&,0.000000000000000E+00/ C_ECMWF_31.61
C_ECMWF_31.62
DATA AKH_ECMWF_31 / C_ECMWF_31.63
& 0.000000000000000E+00, 0.000000000000000E+00 C_ECMWF_31.64
&,0.000000000000000E+00, 0.720635833740234E+02 C_ECMWF_31.65
&,0.271626464843750E+03, 0.638148925781250E+03 C_ECMWF_31.66
&,0.119588989257813E+04, 0.195480517578125E+04 C_ECMWF_31.67
&,0.291156933593750E+04, 0.405071777343750E+04 C_ECMWF_31.68
&,0.534591406250000E+04, 0.676133984375000E+04 C_ECMWF_31.69
&,0.825321093750000E+04, 0.977140625000000E+04 C_ECMWF_31.70
&,0.112612304687500E+05, 0.126652929687500E+05 C_ECMWF_31.71
&,0.139255195312500E+05, 0.149852695312500E+05 C_ECMWF_31.72
&,0.157915976562500E+05, 0.162976210937500E+05 C_ECMWF_31.73
&,0.164650039062500E+05, 0.162666093750000E+05 C_ECMWF_31.74
&,0.156892070312500E+05, 0.147363554687500E+05 C_ECMWF_31.75
&,0.134313945312500E+05, 0.118205390625000E+05 C_ECMWF_31.76
&,0.997613671875000E+04, 0.800000000000000E+04 C_ECMWF_31.77
&,0.600000000000000E+04, 0.400000000000000E+04 C_ECMWF_31.78
&,0.200000000000000E+04, 0.500000081956387E+02/ C_ECMWF_31.79
C_ECMWF_31.80
DATA BKH_ECMWF_31 / C_ECMWF_31.81
& 0.100000000000000E+01, 0.992281496524811E+00 C_ECMWF_31.82
&,0.972985208034515E+00, 0.944213211536407E+00 C_ECMWF_31.83
&,0.907715857028961E+00, 0.864955842494965E+00 C_ECMWF_31.84
&,0.817166984081268E+00, 0.765405237674713E+00 C_ECMWF_31.85
&,0.710594415664673E+00, 0.653564572334290E+00 C_ECMWF_31.86
&,0.595084249973297E+00, 0.535886585712433E+00 C_ECMWF_31.87
&,0.476688146591187E+00, 0.418202280998230E+00 C_ECMWF_31.88
&,0.361145019531250E+00, 0.306235373020172E+00 C_ECMWF_31.89
&,0.254188597202301E+00, 0.205703258514404E+00 C_ECMWF_31.90
&,0.161441504955292E+00, 0.122003614902496E+00 C_ECMWF_31.91
&,0.878949761390686E-01, 0.594876408576965E-01 C_ECMWF_31.92
&,0.369748584926128E-01, 0.203191563487053E-01 C_ECMWF_31.93
&,0.919413194060326E-02, 0.291970069520175E-02 C_ECMWF_31.94
&,0.390858156606555E-03, 0.000000000000000E+00 C_ECMWF_31.95
&,0.000000000000000E+00, 0.000000000000000E+00 C_ECMWF_31.96
&,0.000000000000000E+00, 0.000000000000000E+00/ C_ECMWF_31.97
!----------------------------------------------------------------------- C_ECMWF_31.98