7 integer,
parameter :: kind_sngl_prec = 4 &
10 &, kind_qdt_prec = 8 &
12 &, kind_qdt_prec = 16 &
16 &, kind_io4 = kind_sngl_prec &
17 &, kind_ior = kind_dbl_prec &
18 &, kind_grid = kind_dbl_prec
22 integer,
parameter :: kind_phys = kind_dbl_prec
24 integer,
parameter :: kind_phys = kind_sngl_prec
27 integer,
parameter :: kind_io8 = kind_phys &
31 integer,
parameter :: kind_dyn = kind_sngl_prec
33 integer,
parameter :: kind_dyn = kind_dbl_prec
37 real(kind=kind_phys),
parameter :: mprec = 1.e-12
38 real(kind=kind_phys),
parameter :: grib_undef = 9.99e20