spwget.f

Go to the documentation of this file.

C> @file
C> @brief Get wave-space constants.
C> @author Iredell @date 96-02-29
 
C> This subprogram gets wave-space constants.
C>
C> @param IROMB spectral domain shape (0 for triangular, 1 for rhomboidal)
C> @param MAXWV spectral truncation
C> @param EPS 
C> @param EPSTOP 
C> @param ENN1 
C> @param ELONN1 
C> @param EON 
C> @param EONTOP 
C>
C> @author Iredell @date 96-02-29      
      SUBROUTINE spwget(IROMB,MAXWV,EPS,EPSTOP,ENN1,ELONN1,EON,EONTOP)
      REAL EPS((MAXWV+1)*((IROMB+1)*MAXWV+2)/2),EPSTOP(MAXWV+1)
      REAL ENN1((MAXWV+1)*((IROMB+1)*MAXWV+2)/2)
      REAL ELONN1((MAXWV+1)*((IROMB+1)*MAXWV+2)/2)
      REAL EON((MAXWV+1)*((IROMB+1)*MAXWV+2)/2),EONTOP(MAXWV+1)
 
      mx=(maxwv+1)*((iromb+1)*maxwv+2)/2
      mxtop=maxwv+1
      CALL speps(iromb,maxwv,eps,epstop,enn1,elonn1,eon,eontop)
      END