Commit 9e637cfb authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

Fortran interface update.

parent b2675aa3
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
! !
! Author: ! Author:
! ------- ! -------
! Uwe Schulzweida, MPI-MET, Hamburg, June 2020 ! Uwe Schulzweida, MPI-MET, Hamburg, November 2020
! !
INTEGER CDI_MAX_NAME INTEGER CDI_MAX_NAME
...@@ -306,6 +306,8 @@ ...@@ -306,6 +306,8 @@
PARAMETER (ZAXIS_REFERENCE = 25) PARAMETER (ZAXIS_REFERENCE = 25)
INTEGER ZAXIS_CHAR INTEGER ZAXIS_CHAR
PARAMETER (ZAXIS_CHAR = 26) PARAMETER (ZAXIS_CHAR = 26)
INTEGER ZAXIS_TROPOPAUSE
PARAMETER (ZAXIS_TROPOPAUSE = 27)
! !
! SUBTYPE types ! SUBTYPE types
! !
...@@ -2615,9 +2617,3 @@ ...@@ -2615,9 +2617,3 @@
! INTEGER revision_version) ! INTEGER revision_version)
EXTERNAL gribapiLibraryVersion EXTERNAL gribapiLibraryVersion
! gaussianLatitudes
! (DOUBLEPRECISION latitudes,
! DOUBLEPRECISION weights,
! INTEGER nlat)
EXTERNAL gaussianLatitudes
/* Automatically generated by make_fint.c, don't edit! */ /* Automatically generated by make_fint.c, don't edit! */
#ifdef HAVE_CONFIG_H #ifdef HAVE_CONFIG_H
# include "config.h" #include "config.h"
#endif #endif
#ifndef CDI_H_ #ifndef CDI_H_
...@@ -848,11 +848,6 @@ FCALLSCFUN3 (INT, subtypeInqTile, SUBTYPEINQTILE, subtypeinqtile, INT, INT, INT) ...@@ -848,11 +848,6 @@ FCALLSCFUN3 (INT, subtypeInqTile, SUBTYPEINQTILE, subtypeinqtile, INT, INT, INT)
FCALLSCFUN4 (INT, subtypeInqAttribute, SUBTYPEINQATTRIBUTE, subtypeinqattribute, INT, INT, STRING, PINT) FCALLSCFUN4 (INT, subtypeInqAttribute, SUBTYPEINQATTRIBUTE, subtypeinqattribute, INT, INT, STRING, PINT)
FCALLSCFUN2 (INT, vlistInqVarSubtype, VLISTINQVARSUBTYPE, vlistinqvarsubtype, INT, INT) FCALLSCFUN2 (INT, vlistInqVarSubtype, VLISTINQVARSUBTYPE, vlistinqvarsubtype, INT, INT)
FCALLSCSUB3 (gribapiLibraryVersion, GRIBAPILIBRARYVERSION, gribapilibraryversion, PINT, PINT, PINT) 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__ #if defined __clang__
# pragma GCC diagnostic pop # pragma GCC diagnostic pop
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment