sptranf0.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	sptranf0 (IROMB, MAXWV, IDRT, IMAX, JMAX, JB, JE, EPS, EPSTOP, ENN1, ELONN1, EON, EONTOP, AFFT, CLAT, SLAT, WLAT, PLN, PLNTOP)
	This subprogram performs an initialization for subprogram sptranf(). More...

Detailed Description

Sptranf spectral initialization

Author

IREDELL

Date

96-02-29

Definition in file sptranf0.f.

Function/Subroutine Documentation

sptranf0()

subroutine sptranf0	(		IROMB,
			MAXWV,
			IDRT,
			IMAX,
			JMAX,
			JB,
			JE,
		real, dimension((maxwv+1)*((iromb+1)*maxwv+2)/2)	EPS,
		real, dimension(maxwv+1)	EPSTOP,
		real, dimension((maxwv+1)*((iromb+1)*maxwv+2)/2)	ENN1,
		real, dimension((maxwv+1)*((iromb+1)*maxwv+2)/2)	ELONN1,
		real, dimension((maxwv+1)*((iromb+1)*maxwv+2)/2)	EON,
		real, dimension(maxwv+1)	EONTOP,
		real(8), dimension(50000+4*imax)	AFFT,
		real, dimension(jb:je)	CLAT,
		real, dimension(jb:je)	SLAT,
		real, dimension(jb:je)	WLAT,
		real, dimension((maxwv+1)*((iromb+1)*maxwv+2)/2,jb:je)	PLN,
		real, dimension(maxwv+1,jb:je)	PLNTOP
	)

This subprogram performs an initialization for subprogram sptranf().

Use this subprogram outside the sptranf family context at your own risk.

Parameters

IROMB	- INTEGER SPECTRAL DOMAIN SHAPE (0 FOR TRIANGULAR, 1 FOR RHOMBOIDAL)
MAXWV	- INTEGER SPECTRAL TRUNCATION
IDRT	- INTEGER GRID IDENTIFIER (IDRT=4 FOR GAUSSIAN GRID, IDRT=0 FOR EQUALLY-SPACED GRID INCLUDING POLES, IDRT=256 FOR EQUALLY-SPACED GRID EXCLUDING POLES)
IMAX	- INTEGER EVEN NUMBER OF LONGITUDES
JMAX	- INTEGER NUMBER OF LATITUDES
JB	- INTEGER LATITUDE INDEX (FROM POLE) TO BEGIN TRANSFORM
JE	- INTEGER LATITUDE INDEX (FROM POLE) TO END TRANSFORM
EPS	- REAL ((MAXWV+1)*((IROMB+1)*MAXWV+2)/2)
EPSTOP	- REAL (MAXWV+1)
ENN1	- REAL ((MAXWV+1)*((IROMB+1)*MAXWV+2)/2)
ELONN1	- REAL ((MAXWV+1)*((IROMB+1)*MAXWV+2)/2)
EON	- REAL ((MAXWV+1)*((IROMB+1)*MAXWV+2)/2)
EONTOP	- REAL (MAXWV+1)
AFFT	- REAL(8) (50000+4*IMAX) AUXILIARY ARRAY IF IDIR=0
CLAT	- REAL (JB:JE) COSINES OF LATITUDE
SLAT	- REAL (JB:JE) SINES OF LATITUDE
WLAT	- REAL (JB:JE) GAUSSIAN WEIGHTS
PLN	- REAL ((MAXWV+1)*((IROMB+1)*MAXWV+2)/2,JB:JE) LEGENDRE POLYNOMIALS
PLNTOP	- REAL (MAXWV+1,JB:JE) LEGENDRE POLYNOMIAL OVER TOP

SUBPROGRAMS CALLED:

• spwget() GET WAVE-SPACE CONSTANTS
• spffte() PERFORM FAST FOURIER TRANSFORM
• splat() COMPUTE LATITUDE FUNCTIONS
• splegend() COMPUTE LEGENDRE POLYNOMIALS

Definition at line 44 of file sptranf0.f.