w3snlsmd.F90 File Reference

Nonlinear interaction based ‘smoother’ for high frequencies. More...

Go to the source code of this file.

Modules
module	w3snlsmd
	Nonlinear interaction based ‘smoother’ for high frequencies.

Functions/Subroutines
subroutine	w3snlsmd::w3snls (A, CG, WN, DEPTH, UABS, DT, SNL, AA)
	High-frequeny filter based on the nonlinear interactions for an uresolved quadruplet. More...
subroutine	expand (PSPC, SPEC)
	Expand spectrum to simplify indirect addressing. More...
subroutine	w3snlsmd::insnls
	Initializations for the Snl / filter source term for high frequencies. More...

Variables
real, parameter	w3snlsmd::abmax = 0.25

Detailed Description

Nonlinear interaction based ‘smoother’ for high frequencies.

Author

H. L. Tolman

Date

13-Jul-2012

Definition in file w3snlsmd.F90.

Function/Subroutine Documentation

expand()

subroutine w3snls::expand	(	real, dimension(0:nth+1,0:nfr+2), intent(out)	PSPC,
		real, dimension(0:nth+1,0:nfr+2), intent(out)	SPEC
	)

Expand spectrum to simplify indirect addressing.

Parameters

[out]	PSPC	Expanded spectrum.
[out]	SPEC	Expanded spectrum.

Author

H. L. Tolman

Date

23-Jul-2008

Definition at line 598 of file w3snlsmd.F90.

      !/
      !/                  +-----------------------------------+
      !/                  | WAVEWATCH-III           NOAA/NCEP |
      !/                  |           H. L. Tolman            |
      !/                  |                        FORTRAN 90 |
      !/                  | Last update :         23-Jul-2008 |
      !/                  +-----------------------------------+
      !/
      !  1. Purpose :
      !
      !     Expand spectrum to simplify indirect addressing.
      !
      !  3. Parameters :
      !
      !     Parameter list
      !     ----------------------------------------------------------------
      !       PSPC    R.A.  O   Expanded spectrum.
      !       SPEC    R.A.  O   Expanded spectrum.
      !     ----------------------------------------------------------------
      !
      ! 10. Source code :
      !
      !/ ------------------------------------------------------------------- /
      IMPLICIT NONE
      !/
      !/ Parameter list
      !/
      REAL, INTENT(OUT)       :: PSPC(0:NTH+1,0:NFR+2),               &
           SPEC(0:NTH+1,0:NFR+2)
      !/
      !/ Local parameters
      !/
      INTEGER                 :: IFR, ITH
      !/
      !/ ------------------------------------------------------------------- /
      !
      spec(:,0) = 0.
      !
      spec(1:nth,1:nfr) = a
      spec(1:nth,nfr+1) = spec(1:nth,nfr) * fachfa
      spec(1:nth,nfr+2) = spec(1:nth,nfr+1) * fachfa
      !
      spec(nth+1,1:nfr+2) = spec( 1 ,1:nfr+2)
      spec(  0  ,1:nfr+2) = spec(nth,1:nfr+2)
      !
      DO ifr=1, nfr+2
        pspc(:,ifr) = spec(:,ifr) / xwn(ifr)
      END DO
      !
      RETURN
      !/
      !/ End of EXPAND ----------------------------------------------------- /
      !/

References w3gdatmd::fachfa.