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
00b1797e
Commit
00b1797e
authored
Jun 11, 2009
by
Uwe Schulzweida
Browse files
No commit message
No commit message
parent
406a5760
Changes
3
Hide whitespace changes
Inline
Side-by-side
src/cdi.h
View file @
00b1797e
...
...
@@ -534,8 +534,6 @@ double gridInqYpole(int gridID);
void
gridDefYpole
(
int
gridID
,
double
ypole
);
double
gridInqAngle
(
int
gridID
);
void
gridDefAngle
(
int
gridID
,
double
angle
);
double
gridInqNpole
(
int
gridID
);
void
gridDefNpole
(
int
gridID
,
double
npole
);
void
gridDefTrunc
(
int
gridID
,
int
trunc
);
int
gridInqTrunc
(
int
gridID
);
/* Hexagonal GME grid */
...
...
src/cdi.inc
View file @
00b1797e
...
...
@@ -1178,15 +1178,6 @@
!
DOUBLEPRECISION
angle
)
EXTERNAL
gridDefAngle
DOUBLEPRECISION
gridInqNpole
!
(
INTEGER
gridID
)
EXTERNAL
gridInqNpole
!
gridDefNpole
!
(
INTEGER
gridID
,
!
DOUBLEPRECISION
npole
)
EXTERNAL
gridDefNpole
!
gridDefTrunc
!
(
INTEGER
gridID
,
!
INTEGER
trunc
)
...
...
src/cdiFortran.c
View file @
00b1797e
...
...
@@ -245,8 +245,6 @@ FCALLSCFUN1 (DOUBLE, gridInqYpole, GRIDINQYPOLE, gridinqypole, INT)
FCALLSCSUB2
(
gridDefYpole
,
GRIDDEFYPOLE
,
griddefypole
,
INT
,
DOUBLE
)
FCALLSCFUN1
(
DOUBLE
,
gridInqAngle
,
GRIDINQANGLE
,
gridinqangle
,
INT
)
FCALLSCSUB2
(
gridDefAngle
,
GRIDDEFANGLE
,
griddefangle
,
INT
,
DOUBLE
)
FCALLSCFUN1
(
DOUBLE
,
gridInqNpole
,
GRIDINQNPOLE
,
gridinqnpole
,
INT
)
FCALLSCSUB2
(
gridDefNpole
,
GRIDDEFNPOLE
,
griddefnpole
,
INT
,
DOUBLE
)
FCALLSCSUB2
(
gridDefTrunc
,
GRIDDEFTRUNC
,
griddeftrunc
,
INT
,
INT
)
FCALLSCFUN1
(
INT
,
gridInqTrunc
,
GRIDINQTRUNC
,
gridinqtrunc
,
INT
)
...
...
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