Aquila-Consortium/libsharp2
0
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add phi0 parameter to sharp_make_gauss_geom_info()

Browse source
This commit is contained in:
Martin Reinecke 2012-11-22 23:02:42 +01:00
parent 329f08b7b4
commit 6bbd0f46f5
9 changed files with 20 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libsharp/sharp_geomhelpers.c
View file

@ -173,15 +173,15 @@ static void makeweights (int bw, double *weights)
}
}
void sharp_make_gauss_geom_info (int nrings, int nphi, int stride_lon,
int stride_lat, sharp_geom_info **geom_info)
void sharp_make_gauss_geom_info (int nrings, int nphi, double phi0,
int stride_lon, int stride_lat, sharp_geom_info **geom_info)
{
const double pi=3.141592653589793238462643383279502884197;
double *theta=RALLOC(double,nrings);
double *weight=RALLOC(double,nrings);
int *nph=RALLOC(int,nrings);
double *phi0=RALLOC(double,nrings);
double *phi0_=RALLOC(double,nrings);
ptrdiff_t *ofs=RALLOC(ptrdiff_t,nrings);
int *stride_=RALLOC(int,nrings);
@ -190,19 +190,19 @@ void sharp_make_gauss_geom_info (int nrings, int nphi, int stride_lon,
{
theta[m] = acos(-theta[m]);
nph[m]=nphi;
phi0[m]=0;
phi0_[m]=phi0;
ofs[m]=(ptrdiff_t)m*stride_lat;
stride_[m]=stride_lon;
weight[m]*=2*pi/nphi;
}
sharp_make_geom_info (nrings, nph, ofs, stride_, phi0, theta, NULL, weight,
sharp_make_geom_info (nrings, nph, ofs, stride_, phi0_, theta, NULL, weight,
geom_info);
DEALLOC(theta);
DEALLOC(weight);
DEALLOC(nph);
DEALLOC(phi0);
DEALLOC(phi0_);
DEALLOC(ofs);
DEALLOC(stride_);
}