diff --git a/ChangeLog b/ChangeLog index 6e14033aed9cec7489e4ae0f33de84fee0053aee..1eae8f3e7f3620fa1bc825588b6268638f1ed5b1 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,4 +1,4 @@ -2009-??-?? Uwe Schulzweida <Uwe.Schulzweida@zmaw.de> +2009-06-10 Uwe Schulzweida <Uwe.Schulzweida@zmaw.de> * added env CDI_SORTNAME to sort netCDF names * added support for rotated grids on south pole [request: Beate Geyer] diff --git a/src/cdi.inc b/src/cdi.inc index 43be7b32715817dbefd64f60bc27548fd276ce71..02b4d9aaef7c4cfb85db21394e56463efae97c4b 100644 --- a/src/cdi.inc +++ b/src/cdi.inc @@ -1,10 +1,10 @@ ! This file was automatically created, don't edit! ! -! Fortran interface for CDI library version 1.3.0 +! Fortran interface for CDI library version 1.3.2 ! ! Author: ! ------- -! Uwe Schulzweida, MPI-MET, Hamburg, April 2009 +! Uwe Schulzweida, MPI-MET, Hamburg, June 2009 ! INTEGER CDI_UNDEFID @@ -1178,6 +1178,15 @@ ! DOUBLEPRECISION angle) EXTERNAL gridDefAngle + DOUBLEPRECISION gridInqNpole +! (INTEGER gridID) + EXTERNAL gridInqNpole + +! gridDefNpole +! (INTEGER gridID, +! DOUBLEPRECISION npole) + EXTERNAL gridDefNpole + ! gridDefTrunc ! (INTEGER gridID, ! INTEGER trunc) diff --git a/src/cdiFortran.c b/src/cdiFortran.c index 7327843d520751fc1503da2b63f04fad93695c6f..17c4c03601191a05e99976131532ee14f4b9243f 100644 --- a/src/cdiFortran.c +++ b/src/cdiFortran.c @@ -245,6 +245,8 @@ 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)