Commit 61deacdd authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

gridPrint: add LAMBERT grid support

parent ff86e729
......@@ -266,7 +266,7 @@ static void printGridInfo(int vlistID)
fprintf(stdout, "longitude : first = %.9g last = %.9g", lonfirst, lonlast);
if ( !DBL_IS_EQUAL(loninc, 0) )
fprintf(stdout, " inc = %.9g", loninc);
if ( gridIsCyclic(gridID) )
if ( gridIsCircular(gridID) )
fprintf(stdout, " circular");
fprintf(stdout, "\n");
}
......@@ -335,7 +335,7 @@ static void printGridInfo(int vlistID)
fprintf(stdout, "%*s", nbyte0, "");
fprintf(stdout, "longitude : first = %.9g last = %.9g", xfirst, xlast);
if ( gridIsCyclic(gridID) )
if ( gridIsCircular(gridID) )
fprintf(stdout, " circular");
fprintf(stdout, "\n");
fprintf(stdout, "%*s", nbyte0, "");
......@@ -368,7 +368,7 @@ static void printGridInfo(int vlistID)
else
{
fprintf(stdout, "size : dim = %d nx = %d ny = %d\n", gridsize, xsize, ysize);
if ( gridIsCyclic(gridID) )
if ( gridIsCircular(gridID) )
{
fprintf(stdout, "%*s", nbyte0, "");
fprintf(stdout, "longitude : circular\n");
......
......@@ -3121,6 +3121,24 @@ void gridPrint(int gridID, int opt)
}
fprintf(fp, "\n");
free(rowlon);
break;
}
case GRID_LAMBERT:
{
double originLon, originLat, lonParY, lat1, lat2, xincm, yincm;
gridInqLambert(gridID, &originLon, &originLat, &lonParY, &lat1, &lat2, &xincm, &yincm);
fprintf(fp, "xsize : %d\n", xsize);
fprintf(fp, "ysize : %d\n", ysize);
fprintf(fp, "originLon : %g\n", originLon);
fprintf(fp, "originLat : %g\n", originLat);
fprintf(fp, "lonParY : %g\n", lonParY);
fprintf(fp, "lat1 : %g\n", lat1);
fprintf(fp, "lat2 : %g\n", lat2);
fprintf(fp, "xinc : %g\n", xincm);
fprintf(fp, "yinc : %g\n", yincm);
break;
}
case GRID_SPECTRAL:
......
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