spwget.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	spwget (IROMB, MAXWV, EPS, EPSTOP, ENN1, ELONN1, EON, EONTOP)
	This subprogram gets wave-space constants. More...

Detailed Description

Get wave-space constants

Author

IREDELL

Date

96-02-29

Definition in file spwget.f.

Function/Subroutine Documentation

spwget()

subroutine spwget	(		IROMB,
			MAXWV,
		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
	)

This subprogram gets wave-space constants.

Parameters

IROMB	- INTEGER SPECTRAL DOMAIN SHAPE (0 FOR TRIANGULAR, 1 FOR RHOMBOIDAL)
MAXWV	- INTEGER SPECTRAL TRUNCATION
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)

SUBPROGRAMS CALLED:

• speps() Compute utility spectral fields

Definition at line 22 of file spwget.f.