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