Commit 767c83a8 authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

Docu update

parent c28aee64
......@@ -9,7 +9,7 @@ First go to the \href{http://www.mpimet.mpg.de/cdi}{\tt download} page
if you do not already have it.
To take full advantage of {\CDI}'s features the following additional
library should be installed.
library should be installed:
\begin{itemize}
\item Unidata \href{http://www.unidata.ucar.edu/packages/netcdf/index.html}{netCDF} library
......
! This file was automatically created, don't edit!
!
! Fortran interface for CDI library version 1.2.1
! Fortran interface for CDI library version 1.3.0
!
! Author:
! -------
! Uwe Schulzweida, MPI-MET, Hamburg, November 2008
! Uwe Schulzweida, MPI-MET, Hamburg, January 2009
!
INTEGER CDI_UNDEFID
......@@ -855,17 +855,6 @@
! INTEGER levID)
EXTERNAL vlistInqFlag
INTEGER vlistFlagVar
! (INTEGER vlistID,
! INTEGER varID)
EXTERNAL vlistFlagVar
INTEGER vlistFlagLevel
! (INTEGER vlistID,
! INTEGER varID,
! INTEGER levelID)
EXTERNAL vlistFlagLevel
INTEGER vlistFindVar
! (INTEGER vlistID,
! INTEGER fvarID)
......@@ -877,6 +866,17 @@
! INTEGER flevelID)
EXTERNAL vlistFindLevel
INTEGER vlistMergedVar
! (INTEGER vlistID,
! INTEGER varID)
EXTERNAL vlistMergedVar
INTEGER vlistMergedLevel
! (INTEGER vlistID,
! INTEGER varID,
! INTEGER levelID)
EXTERNAL vlistMergedLevel
!
! VLIST attributes
!
......@@ -1223,7 +1223,7 @@
EXTERNAL gridDefGMEni3
!
! Lambert grid
! Lambert Conformal Conic grid
!
! gridDefLCC
! (INTEGER gridID,
......@@ -1251,6 +1251,23 @@
! INTEGER scanflag)
EXTERNAL gridInqLCC
!
! Lambert Azimuthal Equal Area grid
!
! gridDefLaea
! (INTEGER gridID,
! DOUBLEPRECISION earth_radius,
! DOUBLEPRECISION lon_0,
! DOUBLEPRECISION lat_0)
EXTERNAL gridDefLaea
! gridInqLaea
! (INTEGER gridID,
! DOUBLEPRECISION earth_radius,
! DOUBLEPRECISION lon_0,
! DOUBLEPRECISION lat_0)
EXTERNAL gridInqLaea
! gridDefArea
! (INTEGER gridID,
! DOUBLEPRECISION area)
......
......@@ -178,10 +178,10 @@ FCALLSCSUB4 (vlistDefIndex, VLISTDEFINDEX, vlistdefindex, INT, INT, INT, INT)
FCALLSCFUN3 (INT, vlistInqIndex, VLISTINQINDEX, vlistinqindex, INT, INT, INT)
FCALLSCSUB4 (vlistDefFlag, VLISTDEFFLAG, vlistdefflag, INT, INT, INT, INT)
FCALLSCFUN3 (INT, vlistInqFlag, VLISTINQFLAG, vlistinqflag, INT, INT, INT)
FCALLSCFUN2 (INT, vlistMergedVar, VLISTMERGEDVAR, vlistmergedvar, INT, INT)
FCALLSCFUN3 (INT, vlistMergedLevel, VLISTMERGEDLEVEL, vlistmergedlevel, INT, INT, INT)
FCALLSCFUN2 (INT, vlistFindVar, VLISTFINDVAR, vlistfindvar, INT, INT)
FCALLSCFUN3 (INT, vlistFindLevel, VLISTFINDLEVEL, vlistfindlevel, INT, INT, INT)
FCALLSCFUN2 (INT, vlistMergedVar, VLISTMERGEDVAR, vlistmergedvar, INT, INT)
FCALLSCFUN3 (INT, vlistMergedLevel, VLISTMERGEDLEVEL, vlistmergedlevel, INT, INT, INT)
/* VLIST attributes */
......@@ -259,10 +259,15 @@ FCALLSCSUB2 (gridDefGMEni2, GRIDDEFGMENI2, griddefgmeni2, INT, INT)
FCALLSCFUN1 (INT, gridInqGMEni3, GRIDINQGMENI3, gridinqgmeni3, INT)
FCALLSCSUB2 (gridDefGMEni3, GRIDDEFGMENI3, griddefgmeni3, INT, INT)
/* Lambert grid */
/* Lambert Conformal Conic grid */
FCALLSCSUB10 (gridDefLCC, GRIDDEFLCC, griddeflcc, INT, DOUBLE, DOUBLE, DOUBLE, DOUBLE, DOUBLE, DOUBLE, DOUBLE, INT, INT)
FCALLSCSUB10 (gridInqLCC, GRIDINQLCC, gridinqlcc, INT, PDOUBLE, PDOUBLE, PDOUBLE, PDOUBLE, PDOUBLE, PDOUBLE, PDOUBLE, PINT, PINT)
/* Lambert Azimuthal Equal Area grid */
FCALLSCSUB4 (gridDefLaea, GRIDDEFLAEA, griddeflaea, INT, DOUBLE, DOUBLE, DOUBLE)
FCALLSCSUB4 (gridInqLaea, GRIDINQLAEA, gridinqlaea, INT, PDOUBLE, PDOUBLE, PDOUBLE)
FCALLSCSUB2 (gridDefArea, GRIDDEFAREA, griddefarea, INT, PDOUBLE)
FCALLSCSUB2 (gridInqArea, GRIDINQAREA, gridinqarea, INT, PDOUBLE)
FCALLSCFUN1 (INT, gridHasArea, GRIDHASAREA, gridhasarea, INT)
......
......@@ -1460,7 +1460,13 @@ void cdfDefLonLat2D(int streamID, int gridID)
cdf_def_dim(fileID, ydimname, ydimlen, &ydimID);
if ( gridInqXboundsPtr(gridID) || gridInqYboundsPtr(gridID) )
cdf_def_dim(fileID, "nv", nvertex, &nvdimID);
{
int status;
status = nc_inq_dimid(fileID, "nv", &nvdimID);
if ( status != NC_NOERR )
cdf_def_dim(fileID, "nv", nvertex, &nvdimID);
}
dimIDs[0] = ydimID;
dimIDs[1] = xdimID;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment