Fortran interface update.

src/cdi.inc

@@ -4,7 +4,7 @@
 !
 ! Author:
 ! -------
-! Uwe Schulzweida, MPI-MET, Hamburg,   June 2020
+! Uwe Schulzweida, MPI-MET, Hamburg,   November 2020
 !
 
       INTEGER    CDI_MAX_NAME
@@ -306,6 +306,8 @@
       PARAMETER (ZAXIS_REFERENCE        = 25)
       INTEGER    ZAXIS_CHAR
       PARAMETER (ZAXIS_CHAR             = 26)
+      INTEGER    ZAXIS_TROPOPAUSE
+      PARAMETER (ZAXIS_TROPOPAUSE       = 27)
 !
 !  SUBTYPE types
 !
@@ -2615,9 +2617,3 @@
 !                                     INTEGER         revision_version)
       EXTERNAL        gribapiLibraryVersion
 
-!                     gaussianLatitudes
-!                                    (DOUBLEPRECISION latitudes,
-!                                     DOUBLEPRECISION weights,
-!                                     INTEGER         nlat)
-      EXTERNAL        gaussianLatitudes
-

src/cdiFortran.c

 /* Automatically generated by make_fint.c, don't edit! */
 
 #ifdef HAVE_CONFIG_H
-#  include "config.h"
+#include "config.h"
 #endif
 
 #ifndef CDI_H_
@@ -848,11 +848,6 @@ FCALLSCFUN3 (INT, subtypeInqTile, SUBTYPEINQTILE, subtypeinqtile, INT, INT, INT)
 FCALLSCFUN4 (INT, subtypeInqAttribute, SUBTYPEINQATTRIBUTE, subtypeinqattribute, INT, INT, STRING, PINT)
 FCALLSCFUN2 (INT, vlistInqVarSubtype, VLISTINQVARSUBTYPE, vlistinqvarsubtype, INT, INT)
 FCALLSCSUB3 (gribapiLibraryVersion, GRIBAPILIBRARYVERSION, gribapilibraryversion, PINT, PINT, PINT)
-static void gaussianLatitudes_fwrap(double *latitudes, double *weights, int nlat)
-{
-  gaussianLatitudes(latitudes, weights, (size_t)nlat);
-}
-FCALLSCSUB3 (gaussianLatitudes_fwrap, GAUSSIANLATITUDES, gaussianlatitudes, PDOUBLE, PDOUBLE, INT)
 
 #if defined __clang__
 #  pragma GCC diagnostic pop