SUWAVEDI_MOD Module


Subroutines

public subroutine SUWAVEDI(KSMAX, KTMAX, KPRTRW, KMYSETW, KASM0, KSPOLEGL, KPROCM, KUMPP, KSPEC, KSPEC2, KSPEC2MX, KPOSSP, KMYMS, KPTRMS, KALLMS, KDIM0G)

*** *SUWAVEDI * - Routine to initialize spectral wave distribution

Read more…

Arguments

Type IntentOptional Attributes Name
integer(kind=JPIM), intent(in) :: KSMAX
integer(kind=JPIM), intent(in) :: KTMAX
integer(kind=JPIM), intent(in) :: KPRTRW
integer(kind=JPIM), intent(in) :: KMYSETW
integer(kind=JPIM), intent(out), optional :: KASM0(0:KSMAX)
integer(kind=JPIM), intent(out), optional :: KSPOLEGL
integer(kind=JPIM), intent(out), optional :: KPROCM(0:KSMAX)
integer(kind=JPIM), intent(out), optional :: KUMPP(KPRTRW)
integer(kind=JPIM), intent(out), optional :: KSPEC
integer(kind=JPIM), intent(out), optional :: KSPEC2
integer(kind=JPIM), intent(out), optional :: KSPEC2MX
integer(kind=JPIM), intent(out), optional :: KPOSSP(KPRTRW+1)
integer(kind=JPIM), intent(out), optional :: KMYMS(KSMAX+1)
integer(kind=JPIM), intent(out), optional :: KPTRMS(KPRTRW)
integer(kind=JPIM), intent(out), optional :: KALLMS(KSMAX+1)
integer(kind=JPIM), intent(out), optional :: KDIM0G(0:KSMAX)