spsynth.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	spsynth (I, M, IM, IX, NC, NCTOP, KM, CLAT, PLN, PLNTOP, MP, SPC, SPCTOP, F)
	SYNTHESIZES FOURIER COEFFICIENTS FROM SPECTRAL COEFFICIENTS FOR A LATITUDE PAIR (NORTHERN AND SOUTHERN HEMISPHERES). More...

Detailed Description

Synthesize fourier from spectral

Author

IREDELL

Date

92-10-31

Definition in file spsynth.f.

Function/Subroutine Documentation

spsynth()

subroutine spsynth	(		I,
			M,
			IM,
			IX,
			NC,
			NCTOP,
			KM,
			CLAT,
		real, dimension((m+1)*((i+1)*m+2)/2)	PLN,
		real, dimension(m+1)	PLNTOP,
		integer, dimension(km)	MP,
		real, dimension(nc,km)	SPC,
		real, dimension(nctop,km)	SPCTOP,
		real, dimension(ix,2,km)	F
	)

SYNTHESIZES FOURIER COEFFICIENTS FROM SPECTRAL COEFFICIENTS FOR A LATITUDE PAIR (NORTHERN AND SOUTHERN HEMISPHERES).

VECTOR COMPONENTS ARE DIVIDED BY COSINE OF LATITUDE.

PROGRAM HISTORY LOG:

• 91-10-31 MARK IREDELL
• 1998-12-18 MARK IREDELL INCLUDE SCALAR AND GRADIENT OPTION

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
CLAT	- REAL COSINE OF LATITUDE
PLN	- REAL ((M+1)*((I+1)*M+2)/2) LEGENDRE POLYNOMIAL
PLNTOP	- REAL (M+1) LEGENDRE POLYNOMIAL OVER TOP
SPC	- REAL (NC,KM) SPECTRAL COEFFICIENTS
SPCTOP	- REAL (NCTOP,KM) SPECTRAL COEFFICIENTS OVER TOP
MP	- INTEGER (KM) IDENTIFIERS (0 FOR SCALAR, 1 FOR VECTOR, OR 10 FOR SCALAR AND GRADIENT)
F	- REAL (IX,2,KM) FOURIER COEFFICIENTS FOR LATITUDE PAIR

Definition at line 35 of file spsynth.f.