Variables | |
integer, parameter | kind_sngl_prec = 4 |
integer, parameter | kind_dbl_prec = 8 # ifdef __PGI |
integer, parameter | kind_phys = kind_dbl_prec |
integer, parameter | kind_io8 = kind_phys #ifdef OVERLOAD_R4 |
integer, parameter | kind_dyn = kind_sngl_prec |
real(kind=kind_phys), parameter | mprec = 1.e-12 |
real(kind=kind_phys), parameter | grib_undef = 9.99e20 |