77   auto gridIDsp = vlist_get_first_spectral_grid(vlistID1);  in Spectral()  local
94           if (gridIDsp != -1)  in Spectral()
95             if (ntr != gridInqTrunc(gridIDsp)) gridIDsp = -1;  in Spectral()
97           if (gridIDsp == -1)  in Spectral()
99               gridIDsp = gridCreate(GRID_SPECTRAL, (ntr + 1) * (ntr + 2));  in Spectral()
100               gridDefTrunc(gridIDsp, ntr);  in Spectral()
101               gridDefComplexPacking(gridIDsp, 1);  in Spectral()
104           if (gridIDsp == -1 && gridInqType(vlistGrid(vlistID1, 0)) == GRID_GAUSSIAN_REDUCED)  in Spectral()
107           if (gridIDsp == -1) cdo_abort("Computation of spherical harmonics failed!");  in Spectral()
109           gridID2 = gridIDsp;  in Spectral()
117       if (gridIDsp == -1) cdo_warning("No spectral data found!");  in Spectral()
119       gridID1 = gridIDsp;  in Spectral()
127               if (gridInqTrunc(gridIDsp) != ntr) gridIDgp = -1;  in Spectral()
133               snprintf(gridname, sizeof(gridname), "t%s%dgrid", ctype, gridInqTrunc(gridIDsp));  in Spectral()
147       gridID1 = gridIDsp;  in Spectral()
155           gridIDsp = gridCreate(GRID_SPECTRAL, nsp);  in Spectral()
156           gridDefTrunc(gridIDsp, ntr);  in Spectral()
157           gridDefComplexPacking(gridIDsp, 1);  in Spectral()
162       gridID2 = gridIDsp;  in Spectral()
166       gridID1 = gridIDsp;  in Spectral()
186       gridID2 = gridIDsp;  in Spectral()