sptgpt.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	sptgpt (IROMB, MAXWV, KMAX, NMAX, KWSKIP, KGSKIP, NRSKIP, NGSKIP, RLAT, RLON, WAVE, GP)
	This subprogram performs a spherical transform from spectral coefficients of scalar quantities to specified sets of station points on the globe. More...

Detailed Description

Transform spectral scalar to station points

Author

IREDELL

Date

96-02-29

Definition in file sptgpt.f.

Function/Subroutine Documentation

sptgpt()

subroutine sptgpt	(		IROMB,
			MAXWV,
			KMAX,
			NMAX,
			KWSKIP,
			KGSKIP,
			NRSKIP,
			NGSKIP,
		real, dimension(*)	RLAT,
		real, dimension(*)	RLON,
		real, dimension(*)	WAVE,
		real, dimension(*)	GP
	)

This subprogram performs a spherical transform from spectral coefficients of scalar quantities to specified sets of station points on the globe.

The wave-space can be either triangular or rhomboidal. The wave and point fields may have general indexing, but each wave field is in sequential 'ibm order', i.e. with zonal wavenumber as the slower index. The transforms are all multiprocessed over stations. Transform several fields at a time to improve vectorization. Subprogram can be called from a multiprocessing environment.

PROGRAM HISTORY LOG:

• 96-02-29 IREDELL
• 1998-12-15 IREDELL OPENMP DIRECTIVES INSERTED
• 2003-06-30 IREDELL USE SPFFTPT

Parameters

IROMB	- INTEGER SPECTRAL DOMAIN SHAPE (0 FOR TRIANGULAR, 1 FOR RHOMBOIDAL)
MAXWV	- INTEGER SPECTRAL TRUNCATION
KMAX	- INTEGER NUMBER OF FIELDS TO TRANSFORM.
NMAX	- INTEGER NUMBER OF STATION POINTS TO RETURN
KWSKIP	- INTEGER SKIP NUMBER BETWEEN WAVE FIELDS (DEFAULTS TO (MAXWV+1)*((IROMB+1)*MAXWV+2) IF KWSKIP=0)
KGSKIP	- INTEGER SKIP NUMBER BETWEEN STATION POINT SETS (DEFAULTS TO NMAX IF KGSKIP=0)
NRSKIP	- INTEGER SKIP NUMBER BETWEEN STATION LATS AND LONS (DEFAULTS TO 1 IF NRSKIP=0)
NGSKIP	- INTEGER SKIP NUMBER BETWEEN STATION POINTS (DEFAULTS TO 1 IF NGSKIP=0)
RLAT	- REAL (*) STATION LATITUDES IN DEGREES
RLON	- REAL (*) STATION LONGITUDES IN DEGREES
WAVE	- REAL (*) WAVE FIELDS
GP	- REAL (*) STATION POINT SETS

SUBPROGRAMS CALLED:

• SPWGET() GET WAVE-SPACE CONSTANTS
• SPLEGEND() COMPUTE LEGENDRE POLYNOMIALS
• SPSYNTH() SYNTHESIZE FOURIER FROM SPECTRAL
• SPFFTPT() POINTWISE FOURIER TRANSFORM

Definition at line 48 of file sptgpt.f.