Commit bcbab308 by Uwe Schulzweida

### docu update

parent 1bb223ef
 ... ... @@ -38,16 +38,16 @@ Here is an example using {\tt gridCreate} to create a regular lon/lat Grid: #include "cdi.h" ... #define NLON 12 #define NLAT 6 #define nlon 12 #define nlat 6 ... double lons[NLON] = {0, 30, 60, 90, 120, 150, 180, 210, 240, 270, 300, 330}; double lats[NLAT] = {-75, -45, -15, 15, 45, 75}; double lons[nlon] = {0, 30, 60, 90, 120, 150, 180, 210, 240, 270, 300, 330}; double lats[nlat] = {-75, -45, -15, 15, 45, 75}; int gridID; ... gridID = gridCreate(GRID_LONLAT, NLON*NLAT); gridDefXsize(gridID, NLON); gridDefYsize(gridID, NLAT); gridID = gridCreate(GRID_LONLAT, nlon*nlat); gridDefXsize(gridID, nlon); gridDefYsize(gridID, nlat); gridDefXvals(gridID, lons); gridDefYvals(gridID, lats); ... ... ...
 ... ... @@ -38,12 +38,12 @@ Here is an example using {\tt zaxisCreate} to create a pressure level Z-axis: #include "cdi.h" ... #define NLEV 5 #define nlev 5 ... double levs[NLEV] = {101300, 92500, 85000, 50000, 20000}; double levs[nlev] = {101300, 92500, 85000, 50000, 20000}; int zaxisID; ... zaxisID = zaxisCreate(ZAXIS_PRESSURE, NLEV); zaxisID = zaxisCreate(ZAXIS_PRESSURE, nlev); zaxisDefLevels(zaxisID, levs); ... \end{lstlisting} ... ...
 ... ... @@ -38,16 +38,16 @@ Here is an example using {\tt gridCreate} to create a regular lon/lat Grid: INCLUDE 'cdi.h' ... #define NLON 12 #define NLAT 6 #define nlon 12 #define nlat 6 ... REAL*8 lons(NLON) = (/0, 30, 60, 90, 120, 150, 180, 210, 240, 270, 300, 330/) REAL*8 lats(NLAT) = (/-75, -45, -15, 15, 45, 75/) REAL*8 lons(nlon) = (/0, 30, 60, 90, 120, 150, 180, 210, 240, 270, 300, 330/) REAL*8 lats(nlat) = (/-75, -45, -15, 15, 45, 75/) INTEGER gridID ... gridID = gridCreate(GRID_LONLAT, NLON*NLAT) CALL gridDefXsize(gridID, NLON) CALL gridDefYsize(gridID, NLAT) gridID = gridCreate(GRID_LONLAT, nlon*nlat) CALL gridDefXsize(gridID, nlon) CALL gridDefYsize(gridID, nlat) CALL gridDefXvals(gridID, lons) CALL gridDefYvals(gridID, lats) ... ... ...
 ... ... @@ -38,12 +38,12 @@ Here is an example using {\tt zaxisCreate} to create a pressure level Z-axis: INCLUDE 'cdi.h' ... #define NLEV 5 #define nlev 5 ... REAL*8 levs(NLEV) = (/101300, 92500, 85000, 50000, 20000/) REAL*8 levs(nlev) = (/101300, 92500, 85000, 50000, 20000/) INTEGER zaxisID ... zaxisID = zaxisCreate(ZAXIS_PRESSURE, NLEV) zaxisID = zaxisCreate(ZAXIS_PRESSURE, nlev) CALL zaxisDefLevels(zaxisID, levs) ... \end{lstlisting} ... ...
 #include #include "cdi.h" #define NLON 12 /* Number of longitudes */ #define NLAT 6 /* Number of latitudes */ #define NLEV 5 /* Number of levels */ #define NTIME 3 /* Number of time steps */ int nlon = 12; /* Number of longitudes */ int nlat = 6; /* Number of latitudes */ int nlev = 5; /* Number of levels */ int nts = 3; /* Number of time steps */ int main(void) { int taxisID, vlistID1, vlistID2, varID1, varID2, streamID1, streamID2, tsID; int nmiss, vdate, vtime; double var1[NLON*NLAT]; double var2[NLON*NLAT*NLEV]; double var1[nlon*nlat]; double var2[nlon*nlat*nlev]; /* Open the input dataset */ ... ... @@ -45,7 +45,7 @@ int main(void) streamDefVlist(streamID2, vlistID2); /* Loop over the number of time steps */ for ( tsID = 0; tsID < NTIME; tsID++ ) for ( tsID = 0; tsID < nts; tsID++ ) { /* Inquire the input time step */ streamInqTimestep(streamID1, tsID); ... ...
 ... ... @@ -4,16 +4,16 @@ INCLUDE 'cdi.inc' INTEGER NLON, NLAT, NLEV, NTIME PARAMETER (NLON = 12) ! Number of longitudes PARAMETER (NLAT = 6) ! Number of latitudes PARAMETER (NLEV = 5) ! Number of levels PARAMETER (NTIME = 3) ! Number of time steps INTEGER nlon, nlat, nlev, nts PARAMETER (nlon = 12) ! Number of longitudes PARAMETER (nlat = 6) ! Number of latitudes PARAMETER (nlev = 5) ! Number of levels PARAMETER (nts = 3) ! Number of time steps INTEGER gridID, zaxisID1, zaxisID2, taxisID, tsID INTEGER vlistID1, vlistID2, varID1, varID2, streamID1, streamID2 INTEGER i, nmiss, status, vdate, vtime REAL*8 var1(NLON*NLAT), var2(NLON*NLAT*NLEV) REAL*8 var1(nlon*nlat), var2(nlon*nlat*nlev) ! Open the input dataset streamID1 = streamOpenRead("example.nc") ... ... @@ -44,7 +44,7 @@ CALL streamDefVlist(streamID2, vlistID2) ! Loop over the number of time steps DO tsID = 0, NTIME-1 DO tsID = 0, nts-1 ! Inquire the input time step */ status = streamInqTimestep(streamID1, tsID) ... ...
 #include #include "cdi.h" #define NLON 12 /* Number of longitudes */ #define NLAT 6 /* Number of latitudes */ #define NLEV 5 /* Number of levels */ #define NTIME 3 /* Number of time steps */ int nlon = 12; /* Number of longitudes */ int nlat = 6; /* Number of latitudes */ int nlev = 5; /* Number of levels */ int nts = 3; /* Number of time steps */ int main(void) { int taxisID, vlistID, varID1, varID2, streamID, tsID; int nmiss, vdate, vtime; double var1[NLON*NLAT]; double var2[NLON*NLAT*NLEV]; double var1[nlon*nlat]; double var2[nlon*nlat*nlev]; /* Open the dataset */ ... ... @@ -33,7 +33,7 @@ int main(void) taxisID = vlistInqTaxis(vlistID); /* Loop over the number of time steps */ for ( tsID = 0; tsID < NTIME; tsID++ ) for ( tsID = 0; tsID < nts; tsID++ ) { /* Inquire the time step */ streamInqTimestep(streamID, tsID); ... ...
 ... ... @@ -4,16 +4,16 @@ INCLUDE 'cdi.inc' INTEGER NLON, NLAT, NLEV, NTIME PARAMETER (NLON = 12) ! Number of longitudes PARAMETER (NLAT = 6) ! Number of latitudes PARAMETER (NLEV = 5) ! Number of levels PARAMETER (NTIME = 3) ! Number of time steps INTEGER nlon, nlat, nlev, nts PARAMETER (nlon = 12) ! Number of longitudes PARAMETER (nlat = 6) ! Number of latitudes PARAMETER (nlev = 5) ! Number of levels PARAMETER (nts = 3) ! Number of time steps INTEGER gridID, zaxisID1, zaxisID2, taxisID INTEGER vlistID, varID1, varID2, streamID, tsID INTEGER nmiss, status, vdate, vtime REAL*8 var1(NLON*NLAT), var2(NLON*NLAT*NLEV) REAL*8 var1(nlon*nlat), var2(nlon*nlat*nlev) ! Open the dataset streamID = streamOpenRead("example.nc") ... ... @@ -33,7 +33,7 @@ taxisID = vlistInqTaxis(vlistID) ! Loop over the number of time steps DO tsID = 0, NTIME-1 DO tsID = 0, nts-1 ! Inquire the time step status = streamInqTimestep(streamID, tsID) ... ...
 #include #include "cdi.h" #define NLON 12 /* Number of longitudes */ #define NLAT 6 /* Number of latitudes */ #define NLEV 5 /* Number of levels */ #define NTIME 3 /* Number of time steps */ #define nlon 12 /* Number of longitudes */ #define nlat 6 /* Number of latitudes */ #define nlev 5 /* Number of levels */ #define nts 3 /* Number of time steps */ int main(void) { int gridID, zaxisID1, zaxisID2, taxisID; int vlistID, varID1, varID2, streamID, tsID; int i, nmiss = 0; double lons[NLON] = {0, 30, 60, 90, 120, 150, 180, 210, 240, 270, 300, 330}; double lats[NLAT] = {-75, -45, -15, 15, 45, 75}; double levs[NLEV] = {101300, 92500, 85000, 50000, 20000}; double var1[NLON*NLAT]; double var2[NLON*NLAT*NLEV]; double lons[nlon] = {0, 30, 60, 90, 120, 150, 180, 210, 240, 270, 300, 330}; double lats[nlat] = {-75, -45, -15, 15, 45, 75}; double levs[nlev] = {101300, 92500, 85000, 50000, 20000}; double var1[nlon*nlat]; double var2[nlon*nlat*nlev]; /* Create a regular lon/lat grid */ gridID = gridCreate(GRID_LONLAT, NLON*NLAT); gridDefXsize(gridID, NLON); gridDefYsize(gridID, NLAT); gridID = gridCreate(GRID_LONLAT, nlon*nlat); gridDefXsize(gridID, nlon); gridDefYsize(gridID, nlat); gridDefXvals(gridID, lons); gridDefYvals(gridID, lats); ... ... @@ -29,7 +29,7 @@ int main(void) zaxisID1 = zaxisCreate(ZAXIS_SURFACE, 1); /* Create a pressure level Z-axis */ zaxisID2 = zaxisCreate(ZAXIS_PRESSURE, NLEV); zaxisID2 = zaxisCreate(ZAXIS_PRESSURE, nlev); zaxisDefLevels(zaxisID2, levs); /* Create a variable list */ ... ... @@ -61,7 +61,7 @@ int main(void) streamDefVlist(streamID, vlistID); /* Loop over the number of time steps */ for ( tsID = 0; tsID < NTIME; tsID++ ) for ( tsID = 0; tsID < nts; tsID++ ) { /* Set the verification date to 1985-01-01 + tsID */ taxisDefVdate(taxisID, 19850101+tsID); ... ... @@ -71,8 +71,8 @@ int main(void) streamDefTimestep(streamID, tsID); /* Init var1 and var2 */ for ( i = 0; i < NLON*NLAT; i++ ) var1[i] = 1.1; for ( i = 0; i < NLON*NLAT*NLEV; i++ ) var2[i] = 2.2; for ( i = 0; i < nlon*nlat; i++ ) var1[i] = 1.1; for ( i = 0; i < nlon*nlat*nlev; i++ ) var2[i] = 2.2; /* Write var1 and var2 */ streamWriteVar(streamID, varID1, var1, nmiss); ... ...
 ... ... @@ -4,17 +4,17 @@ INCLUDE 'cdi.inc' INTEGER NLON, NLAT, NLEV, NTIME PARAMETER (NLON = 12) ! Number of longitudes PARAMETER (NLAT = 6) ! Number of latitudes PARAMETER (NLEV = 5) ! Number of levels PARAMETER (NTIME = 3) ! Number of time steps INTEGER nlon, nlat, nlev, nts PARAMETER (nlon = 12) ! Number of longitudes PARAMETER (nlat = 6) ! Number of latitudes PARAMETER (nlev = 5) ! Number of levels PARAMETER (nts = 3) ! Number of time steps INTEGER gridID, zaxisID1, zaxisID2, taxisID INTEGER vlistID, varID1, varID2, streamID, tsID INTEGER i, nmiss, status REAL*8 lons(NLON), lats(NLAT), levs(NLEV) REAL*8 var1(NLON*NLAT), var2(NLON*NLAT*NLEV) REAL*8 lons(nlon), lats(nlat), levs(nlev) REAL*8 var1(nlon*nlat), var2(nlon*nlat*nlev) DATA lons /0, 30, 60, 90, 120, 150, 180, 210, 240, 270, 300, 330/ DATA lats /-75, -45, -15, 15, 45, 75/ ... ... @@ -23,9 +23,9 @@ nmiss = 0 ! Create a regular lon/lat grid gridID = gridCreate(GRID_LONLAT, NLON*NLAT) CALL gridDefXsize(gridID, NLON) CALL gridDefYsize(gridID, NLAT) gridID = gridCreate(GRID_LONLAT, nlon*nlat) CALL gridDefXsize(gridID, nlon) CALL gridDefYsize(gridID, nlat) CALL gridDefXvals(gridID, lons) CALL gridDefYvals(gridID, lats) ... ... @@ -33,7 +33,7 @@ zaxisID1 = zaxisCreate(ZAXIS_SURFACE, 1) ! Create a pressure level Z-axis zaxisID2 = zaxisCreate(ZAXIS_PRESSURE, NLEV) zaxisID2 = zaxisCreate(ZAXIS_PRESSURE, nlev) CALL zaxisDefLevels(zaxisID2, levs) ! Create a variable list ... ... @@ -64,7 +64,7 @@ CALL streamDefVlist(streamID, vlistID) ! Loop over the number of time steps DO tsID = 0, NTIME-1 DO tsID = 0, nts-1 ! Set the verification date to 1985-01-01 + tsID CALL taxisDefVdate(taxisID, 19850101+tsID) ! Set the verification time to 12:00:00 ... ... @@ -73,10 +73,10 @@ status = streamDefTimestep(streamID, tsID) ! Init var1 and var2 DO i = 1, NLON*NLAT DO i = 1, nlon*nlat var1(i) = 1.1 END DO DO i = 1, NLON*NLAT*NLEV DO i = 1, nlon*nlat*nlev var2(i) = 2.2 END DO ... ...
 ... ... @@ -5,17 +5,17 @@ IMPLICIT NONE INTEGER NLON, NLAT, NLEV, NTIME PARAMETER (NLON = 12) ! Number of longitudes PARAMETER (NLAT = 6) ! Number of latitudes PARAMETER (NLEV = 5) ! Number of levels PARAMETER (NTIME = 3) ! Number of time steps INTEGER nlon, nlat, nlev, nts PARAMETER (nlon = 12) ! Number of longitudes PARAMETER (nlat = 6) ! Number of latitudes PARAMETER (nlev = 5) ! Number of levels PARAMETER (nts = 3) ! Number of time steps INTEGER gridID, zaxisID1, zaxisID2, taxisID INTEGER vlistID, varID1, varID2, streamID, tsID INTEGER i, nmiss, status DOUBLE PRECISION lons(NLON), lats(NLAT), levs(NLEV) DOUBLE PRECISION var1(NLON*NLAT), var2(NLON*NLAT*NLEV) DOUBLE PRECISION lons(nlon), lats(nlat), levs(nlev) DOUBLE PRECISION var1(nlon*nlat), var2(nlon*nlat*nlev) CHARACTER(len=256) :: varname DATA lons /0, 30, 60, 90, 120, 150, 180, 210, 240, 270, 300, 330/ ... ... @@ -25,9 +25,9 @@ nmiss = 0 ! Create a regular lon/lat grid gridID = gridCreate(GRID_LONLAT, NLON*NLAT) CALL gridDefXsize(gridID, NLON) CALL gridDefYsize(gridID, NLAT) gridID = gridCreate(GRID_LOnlat, nlon*nlat) CALL gridDefXsize(gridID, nlon) CALL gridDefYsize(gridID, nlat) CALL gridDefXvals(gridID, lons) CALL gridDefYvals(gridID, lats) ... ... @@ -35,7 +35,7 @@ zaxisID1 = zaxisCreate(ZAXIS_SURFACE, 1) ! Create a pressure level Z-axis zaxisID2 = zaxisCreate(ZAXIS_PRESSURE, NLEV) zaxisID2 = zaxisCreate(ZAXIS_PRESSURE, nlev) CALL zaxisDefLevels(zaxisID2, levs) ! Create a variable list ... ... @@ -67,7 +67,7 @@ CALL streamDefVlist(streamID, vlistID) ! Loop over the number of time steps DO tsID = 0, NTIME-1 DO tsID = 0, nts-1 ! Set the verification date to 1985-01-01 + tsID CALL taxisDefVdate(taxisID, 19850101+tsID) ! Set the verification time to 12:00 ... ... @@ -76,10 +76,10 @@ status = streamDefTimestep(streamID, tsID) ! Init var1 and var2 DO i = 1, NLON*NLAT DO i = 1, nlon*nlat var1(i) = 1.1 END DO DO i = 1, NLON*NLAT*NLEV DO i = 1, nlon*nlat*nlev var2(i) = 2.2 END DO ... ...
 ! This file was automatically created, don't edit! ! ! Fortran interface for CDI library version 1.4.6 ! Fortran interface for CDI library version 1.4.7 ! ! Author: ! ------- ! Uwe Schulzweida, MPI-MET, Hamburg, September 2010 ! Uwe Schulzweida, MPI-MET, Hamburg, November 2010 ! INTEGER CDI_UNDEFID ... ...
 ... ... @@ -487,16 +487,16 @@ Here is an example using @func{gridCreate} to create a regular lon/lat Grid: @Source #include "cdi.h" ... #define NLON 12 #define NLAT 6 #define nlon 12 #define nlat 6 ... double lons[NLON] = {0, 30, 60, 90, 120, 150, 180, 210, 240, 270, 300, 330}; double lats[NLAT] = {-75, -45, -15, 15, 45, 75}; double lons[nlon] = {0, 30, 60, 90, 120, 150, 180, 210, 240, 270, 300, 330}; double lats[nlat] = {-75, -45, -15, 15, 45, 75}; int gridID; ... gridID = gridCreate(GRID_LONLAT, NLON*NLAT); gridDefXsize(gridID, NLON); gridDefYsize(gridID, NLAT); gridID = gridCreate(GRID_LONLAT, nlon*nlat); gridDefXsize(gridID, nlon); gridDefYsize(gridID, nlat); gridDefXvals(gridID, lons); gridDefYvals(gridID, lats); ... ... ...
 ... ... @@ -323,12 +323,12 @@ Here is an example using @func{zaxisCreate} to create a pressure level Z-axis: @Source #include "cdi.h" ... #define NLEV 5 #define nlev 5 ... double levs[NLEV] = {101300, 92500, 85000, 50000, 20000}; double levs[nlev] = {101300, 92500, 85000, 50000, 20000}; int zaxisID; ... zaxisID = zaxisCreate(ZAXIS_PRESSURE, NLEV); zaxisID = zaxisCreate(ZAXIS_PRESSURE, nlev); zaxisDefLevels(zaxisID, levs); ... @EndSource ... ...
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!