Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
mpim-sw
libcdi
Commits
81beea69
Commit
81beea69
authored
Feb 16, 2010
by
Uwe Schulzweida
Browse files
gauaw: define func
parent
42f84568
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/gaussgrid.c
View file @
81beea69
...
...
@@ -3,6 +3,8 @@
#include
<stdio.h>
#include
<stdlib.h>
#include
"dmemory.h"
static
void
cpledn
(
int
kn
,
int
kodd
,
double
*
pfn
,
double
pdx
,
int
kflag
,
double
*
pw
,
double
*
pdxn
,
double
*
pxmod
)
...
...
@@ -102,14 +104,13 @@ void gawl(double *pfn, double *pl, double *pw, int kn, int *kiter)
static
void
gauaw
(
int
kn
,
double
*
pl
,
double
*
pw
)
{
/*
* 1.0 Initialize Fourier coefficients for ordinary Legendre polynomials
*
* Belousov, Swarztrauber, and ECHAM use zfn(0,0) = sqrt(2)
* IFS normalisation chosen to be 0.5*Integral(Pnm**2) = 1 (zfn(0,0) = 2.0)
*/
static
const
char
*
func
=
"gauaw"
;
double
*
zfn
,
*
zfnlat
;
double
z
,
zfnn
;
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment