diff --git a/fortran/eccodes_constants.h b/fortran/eccodes_constants.h index bb1e4030f..94daa6603 100644 --- a/fortran/eccodes_constants.h +++ b/fortran/eccodes_constants.h @@ -65,5 +65,3 @@ integer, parameter,public :: CODES_END_OF_FILE = -1 integer, parameter,public :: CODES_SUCCESS = 0 integer, parameter,public :: CODES_NULL = -1 - real(8), parameter,public :: CODES_MISSING_DOUBLE = -1.D+100 - integer(4), parameter,public :: CODES_MISSING_LONG = 2147483647 diff --git a/fortran/eccodes_f90_head.f90 b/fortran/eccodes_f90_head.f90 index 06cb7866f..bb1fcbd2c 100644 --- a/fortran/eccodes_f90_head.f90 +++ b/fortran/eccodes_f90_head.f90 @@ -17,6 +17,9 @@ module eccodes include "eccodes_constants.h" include "eccodes_visibility.h" + real(8), parameter,public :: CODES_MISSING_DOUBLE = -1.D+100 + integer(4), parameter,public :: CODES_MISSING_LONG = 2147483647 + integer, parameter,public :: CODES_PRODUCT_ANY = 0 integer, parameter,public :: CODES_PRODUCT_GRIB = 1 integer, parameter,public :: CODES_PRODUCT_BUFR = 2 diff --git a/fortran/grib_api_constants.h b/fortran/grib_api_constants.h index a011688fc..67d94151d 100644 --- a/fortran/grib_api_constants.h +++ b/fortran/grib_api_constants.h @@ -65,5 +65,3 @@ integer, parameter,public :: GRIB_END_OF_FILE = -1 integer, parameter,public :: GRIB_SUCCESS = 0 integer, parameter,public :: GRIB_NULL = -1 - real(8), parameter,public :: GRIB_MISSING_DOUBLE = -1.D+100 - integer(4), parameter,public :: GRIB_MISSING_LONG = 2147483647 diff --git a/fortran/grib_f90_head.f90 b/fortran/grib_f90_head.f90 index 7df844fbe..7e8b9e990 100644 --- a/fortran/grib_f90_head.f90 +++ b/fortran/grib_f90_head.f90 @@ -18,6 +18,10 @@ module grib_api include "grib_api_externals.h" include "grib_api_visibility.h" + real(8), parameter,public :: GRIB_MISSING_DOUBLE = -1.D+100 + integer(4), parameter,public :: GRIB_MISSING_LONG = 2147483647 + + !> Create a new message in memory from an integer or character array containting the coded message. !> !> The message can be accessed through its gribid and it will be available\n