Commit a162449f authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

Renamed ISEC2_RowLonPtr to ISEC2_ReducedPointsPtr.

parent 285d6d8b
! This file was automatically generated, don't edit!
!
! Fortran interface for CDI library version 1.9.7
! Fortran interface for CDI library version 1.9.8
!
! Author:
! -------
! Uwe Schulzweida, MPI-MET, Hamburg, June 2019
! Uwe Schulzweida, MPI-MET, Hamburg, July 2019
!
INTEGER CDI_MAX_NAME
......@@ -1978,16 +1978,16 @@
! DOUBLEPRECISION ybounds(*))
EXTERNAL gridInqYboundsPart
! gridDefRowlon
! gridDefReducedPoints
! (INTEGER gridID,
! INTEGER nrowlon,
! INTEGER rowlon(*))
EXTERNAL gridDefRowlon
! INTEGER reducedPointsSize,
! INTEGER reducedPoints(*))
EXTERNAL gridDefReducedPoints
! gridInqRowlon
! gridInqReducedPoints
! (INTEGER gridID,
! INTEGER rowlon(*))
EXTERNAL gridInqRowlon
! INTEGER reducedPoints(*))
EXTERNAL gridInqReducedPoints
! gridChangeType
! (INTEGER gridID,
......
......@@ -594,8 +594,8 @@ static int gridInqYboundsPart_fwrap(int gridID, int start, int size, double ybou
return size_t_c2f(v);
}
FCALLSCFUN4 (INT, gridInqYboundsPart_fwrap, GRIDINQYBOUNDSPART, gridinqyboundspart, INT, INT, INT, DOUBLEV)
FCALLSCSUB3 (gridDefReducedPoints, GRIDDEFROWLON, griddefreducedPoints, INT, INT, INTV)
FCALLSCSUB2 (gridInqReducedPoints, GRIDINQROWLON, gridinqreducedPoints, INT, INTV)
FCALLSCSUB3 (gridDefReducedPoints, GRIDDEFREDUCEDPOINTS, griddefreducedpoints, INT, INT, INTV)
FCALLSCSUB2 (gridInqReducedPoints, GRIDINQREDUCEDPOINTS, gridinqreducedpoints, INT, INTV)
FCALLSCSUB2 (gridChangeType, GRIDCHANGETYPE, gridchangetype, INT, INT)
FCALLSCSUB2 (gridDefComplexPacking, GRIDDEFCOMPLEXPACKING, griddefcomplexpacking, INT, INT)
FCALLSCFUN1 (INT, gridInqComplexPacking, GRIDINQCOMPLEXPACKING, gridinqcomplexpacking, INT)
......
......@@ -15,7 +15,8 @@
#endif
//#include "config.h"
#define VERSION "1.9.7"
#define VERSION "1.9.8"
typedef struct
{
size_t naline;
......
......@@ -256,7 +256,7 @@ bool cgribexGetGrid(stream_t *streamptr, int *isec2, int *isec4, grid_t *grid, i
{
int nlon = 0;
for ( int ilat = 0; ilat < ISEC2_NumLat; ++ilat )
if ( ISEC2_RowLon(ilat) > nlon ) nlon = ISEC2_RowLon(ilat);
if ( ISEC2_ReducedPoints(ilat) > nlon ) nlon = ISEC2_ReducedPoints(ilat);
gridtype = GRID_GAUSSIAN;
ISEC2_NumLon = nlon;
ISEC4_NumValues = nlon*ISEC2_NumLat;
......@@ -355,7 +355,7 @@ bool cgribexGetGrid(stream_t *streamptr, int *isec2, int *isec4, grid_t *grid, i
uvRelativeToGrid = gribbyte_get_bit(ISEC2_ResFlag, 5);
grid->np = ISEC2_NumPar;
grid->size = (size_t)ISEC4_NumValues;
grid->reducedPoints = ISEC2_RowLonPtr;
grid->reducedPoints = ISEC2_ReducedPointsPtr;
grid->reducedPointsSize = (size_t)ISEC2_NumLat;
grid->y.size = (size_t)ISEC2_NumLat;
grid->x.inc = 0;
......@@ -1603,7 +1603,7 @@ void cgribexDefGridRegular(int *isec2, double *fsec2, int gridID, int gridtype,
{
ISEC2_Reduced = true;
nlon = 0;
gridInqReducedPoints(gridID, ISEC2_RowLonPtr);
gridInqReducedPoints(gridID, ISEC2_ReducedPointsPtr);
}
else
{
......
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