INI_SPEC_DIST Subroutine

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

Uses

  • proc~~ini_spec_dist~~UsesGraph proc~ini_spec_dist INI_SPEC_DIST PARKIND1 PARKIND1 proc~ini_spec_dist->PARKIND1 YOMHOOK YOMHOOK proc~ini_spec_dist->YOMHOOK module~suwavedi_mod SUWAVEDI_MOD proc~ini_spec_dist->module~suwavedi_mod

*** INI_SPEC_DIST - Initialize spectral wave distribution

  • Interface. ---------- CALL INI_SPEC_DIST(...)

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)

Calls

proc~~ini_spec_dist~~CallsGraph proc~ini_spec_dist INI_SPEC_DIST dr_hook dr_hook proc~ini_spec_dist->dr_hook proc~suwavedi SUWAVEDI proc~ini_spec_dist->proc~suwavedi