for a latitude pair (northern and southern hemispheres).
Vector components are multiplied by cosine of latitude.
PROGRAM HISTORY LOG:
- 91-10-31 MARK IREDELL
- 94-08-01 MARK IREDELL MOVED ZONAL WAVENUMBER LOOP INSIDE
- 1998-12-15 IREDELL OPENMP DIRECTIVES INSERTED
- Parameters
-
| I | - INTEGER SPECTRAL DOMAIN SHAPE (0 FOR TRIANGULAR, 1 FOR RHOMBOIDAL) |
| M | - INTEGER SPECTRAL TRUNCATION |
| IM | - INTEGER EVEN NUMBER OF FOURIER COEFFICIENTS |
| IX | - INTEGER DIMENSION OF FOURIER COEFFICIENTS (IX>=IM+2) |
| NC | - INTEGER DIMENSION OF SPECTRAL COEFFICIENTS (NC>=(M+1)*((I+1)*M+2)) |
| NCTOP | - INTEGER DIMENSION OF SPECTRAL COEFFICIENTS OVER TOP (NCTOP>=2*(M+1)) |
| KM | - INTEGER NUMBER OF FIELDS |
| WGT | - REAL GAUSSIAN WEIGHT |
| CLAT | - REAL COSINE OF LATITUDE |
| PLN | - REAL ((M+1)*((I+1)*M+2)/2) LEGENDRE POLYNOMIALS |
| PLNTOP | - REAL (M+1) LEGENDRE POLYNOMIAL OVER TOP |
| MP | - INTEGER (KM) IDENTIFIERS (0 FOR SCALAR, 1 FOR VECTOR) |
| F | - REAL (IX,2,KM) FOURIER COEFFICIENTS COMBINED |
| SPC | - REAL (NC,KM) SPECTRAL COEFFICIENTS |
| SPCTOP | - REAL (NCTOP,KM) SPECTRAL COEFFICIENTS OVER TOP |
1.8.17