Skip to content
GitLab
Menu
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
3f3ac7a3
Commit
3f3ac7a3
authored
Apr 09, 2017
by
Uwe Schulzweida
Browse files
Fortran interface update.
parent
f999f454
Changes
3
Hide whitespace changes
Inline
Side-by-side
src/cdi.inc
View file @
3f3ac7a3
!
This
file
was
automatically
generated
,
don
'
t
edit
!
!
!
Fortran
interface
for
CDI
library
version
1.8.
0
!
Fortran
interface
for
CDI
library
version
1.8.
1
!
!
Author
:
!
-------
!
Uwe
Schulzweida
,
MPI
-
MET
,
Hamburg
,
March
2017
!
Uwe
Schulzweida
,
MPI
-
MET
,
Hamburg
,
April
2017
!
INTEGER
CDI_MAX_NAME
...
...
@@ -1846,28 +1846,24 @@
!
!
gridDefParamLCC
!
(
INTEGER
gridID
,
!
DOUBLEPRECISION
originLon
,
!
DOUBLEPRECISION
originLat
,
!
DOUBLEPRECISION
lonParY
,
!
DOUBLEPRECISION
lat1
,
!
DOUBLEPRECISION
lat2
,
!
DOUBLEPRECISION
xinc
,
!
DOUBLEPRECISION
yinc
,
!
INTEGER
projflag
,
!
INTEGER
scanflag
)
!
DOUBLEPRECISION
a
,
!
DOUBLEPRECISION
rf
,
!
DOUBLEPRECISION
xval_0
,
!
DOUBLEPRECISION
yval_0
,
!
DOUBLEPRECISION
lon_0
,
!
DOUBLEPRECISION
lat_1
,
!
DOUBLEPRECISION
lat_2
)
EXTERNAL
gridDefParamLCC
!
gridInqParamLCC
!
(
INTEGER
gridID
,
!
DOUBLEPRECISION
originLon
,
!
DOUBLEPRECISION
originLat
,
!
DOUBLEPRECISION
lonParY
,
!
DOUBLEPRECISION
lat1
,
!
DOUBLEPRECISION
lat2
,
!
DOUBLEPRECISION
xinc
,
!
DOUBLEPRECISION
yinc
,
!
INTEGER
projflag
,
!
INTEGER
scanflag
)
!
DOUBLEPRECISION
a
,
!
DOUBLEPRECISION
rf
,
!
DOUBLEPRECISION
xval_0
,
!
DOUBLEPRECISION
yval_0
,
!
DOUBLEPRECISION
lon_0
,
!
DOUBLEPRECISION
lat_1
,
!
DOUBLEPRECISION
lat_2
)
EXTERNAL
gridInqParamLCC
!
gridDefArea
...
...
src/cdiFortran.c
View file @
3f3ac7a3
...
...
@@ -397,8 +397,8 @@ FCALLSCSUB5 (gridInqParamGME, GRIDINQPARAMGME, gridinqparamgme, INT, PINT, PINT,
/* Lambert Conformal Conic grid (GRIB version) */
FCALLSCSUB
10
(
gridDefParamLCC
,
GRIDDEFPARAMLCC
,
griddefparamlcc
,
INT
,
DOUBLE
,
DOUBLE
,
DOUBLE
,
DOUBLE
,
DOUBLE
,
DOUBLE
,
DOUBLE
,
INT
,
INT
)
FCALLSCSUB
10
(
gridInqParamLCC
,
GRIDINQPARAMLCC
,
gridinqparamlcc
,
INT
,
PDOUBLE
,
PDOUBLE
,
PDOUBLE
,
PDOUBLE
,
PDOUBLE
,
PDOUBLE
,
PDOUBLE
,
PINT
,
PINT
)
FCALLSCSUB
8
(
gridDefParamLCC
,
GRIDDEFPARAMLCC
,
griddefparamlcc
,
INT
,
DOUBLE
,
DOUBLE
,
DOUBLE
,
DOUBLE
,
DOUBLE
,
DOUBLE
,
DOUBLE
)
FCALLSCSUB
8
(
gridInqParamLCC
,
GRIDINQPARAMLCC
,
gridinqparamlcc
,
INT
,
PDOUBLE
,
PDOUBLE
,
PDOUBLE
,
PDOUBLE
,
PDOUBLE
,
PDOUBLE
,
PDOUBLE
)
FCALLSCSUB2
(
gridDefArea
,
GRIDDEFAREA
,
griddefarea
,
INT
,
DOUBLEV
)
FCALLSCSUB2
(
gridInqArea
,
GRIDINQAREA
,
gridinqarea
,
INT
,
DOUBLEV
)
FCALLSCFUN1
(
INT
,
gridHasArea
,
GRIDHASAREA
,
gridhasarea
,
INT
)
...
...
src/make_fint.c
View file @
3f3ac7a3
...
...
@@ -15,7 +15,7 @@
#endif
//#include "config.h"
#define VERSION "1.8.
0
"
#define VERSION "1.8.
1
"
typedef
struct
{
size_t
naline
;
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a 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