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

Renamed gridDefRowlon() to gridDefReducedPoints().

parent ae05e6c7
......@@ -996,7 +996,7 @@ void gridDefYbounds(int gridID, const double ybounds[]);
size_t gridInqYbounds(int gridID, double ybounds[]);
size_t gridInqYboundsPart(int gridID, int start, size_t size, double ybounds[]);
void gridDefRowlon(int gridID, int nrowlon, const int rowlon[]);
void gridDefReducedPoints(int gridID, int nrowlon, const int rowlon[]);
void gridInqReducedPoints(int gridID, int rowlon[]);
void gridChangeType(int gridID, int gridtype);
......
......@@ -594,7 +594,7 @@ 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 (gridDefRowlon, GRIDDEFROWLON, griddefrowlon, INT, INT, INTV)
FCALLSCSUB3 (gridDefReducedPoints, GRIDDEFROWLON, griddefrowlon, INT, INT, INTV)
FCALLSCSUB2 (gridInqReducedPoints, GRIDINQROWLON, gridinqrowlon, INT, INTV)
FCALLSCSUB2 (gridChangeType, GRIDCHANGETYPE, gridchangetype, INT, INT)
FCALLSCSUB2 (gridDefComplexPacking, GRIDDEFCOMPLEXPACKING, griddefcomplexpacking, INT, INT)
......
......@@ -1388,7 +1388,7 @@ int gridInqNP(int gridID)
@EndFunction
*/
void gridDefRowlon(int gridID, int nrowlon, const int rowlon[])
void gridDefReducedPoints(int gridID, int nrowlon, const int rowlon[])
{
grid_t *gridptr = grid_to_pointer(gridID);
......@@ -2833,7 +2833,7 @@ int gridGenerate(const grid_t *grid)
if ( gridtype == GRID_PROJECTION )
gridptr->name = strdup(grid->name);
if ( gridtype == GRID_GAUSSIAN_REDUCED )
gridDefRowlon(gridID, grid->y.size, grid->rowlon);
gridDefReducedPoints(gridID, grid->y.size, grid->rowlon);
gridptr->trunc = grid->trunc;
gridptr->lcomplex = grid->lcomplex;
gridptr->gme.nd = grid->gme.nd;
......
......@@ -560,7 +560,7 @@ module mo_cdi
public :: gridDefYbounds
public :: gridInqYbounds
public :: gridInqYboundsPart
public :: gridDefRowlon
public :: gridDefReducedPoints
public :: gridInqReducedPoints
public :: gridChangeType
public :: gridDefComplexPacking
......@@ -2325,13 +2325,13 @@ module mo_cdi
integer(c_size_t) :: f_result
end function gridInqYboundsPart
subroutine gridDefRowlon(gridID_dummy, nrowlon_dummy, rowlon_dummy) bind(c,&
& name = 'gridDefRowlon')
subroutine gridDefReducedPoints(gridID_dummy, nrowlon_dummy, rowlon_dummy) bind(c,&
& name = 'gridDefReducedPoints')
import c_int
integer(c_int), value :: gridID_dummy
integer(c_int), value :: nrowlon_dummy
integer(c_int), intent(in) :: rowlon_dummy(*)
end subroutine gridDefRowlon
end subroutine gridDefReducedPoints
subroutine gridInqReducedPoints(gridID_dummy, rowlon_dummy) bind(c, name =&
& 'gridInqReducedPoints')
......
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