Commit 38f3e5fc authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

Merge declaration and initialization.

parent b03b6e51
...@@ -1997,8 +1997,7 @@ void fc2gp(double *restrict trig, long *restrict ifax, double *restrict fc, doub ...@@ -1997,8 +1997,7 @@ void fc2gp(double *restrict trig, long *restrict ifax, double *restrict fc, doub
long jump = (nlon + 2); long jump = (nlon + 2);
long lot = nlev * nlat; long lot = nlev * nlat;
long nx = nlon + 1; long nx = (nlon%2 == 1) ? nlon : nlon+1;
if ( nlon%2 == 1 ) nx = nlon;
long nblox = 1 + (lot-1)/NFFT; long nblox = 1 + (lot-1)/NFFT;
long nvex = lot - (nblox-1)*NFFT; long nvex = lot - (nblox-1)*NFFT;
long nvex0 = nvex; long nvex0 = nvex;
......
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