SUWAVEDI_MOD Module


Used by

  • module~~suwavedi_mod~~UsedByGraph module~suwavedi_mod SUWAVEDI_MOD proc~dist_spec DIST_SPEC proc~dist_spec->module~suwavedi_mod proc~dist_spec~2 DIST_SPEC proc~dist_spec~2->module~suwavedi_mod proc~gath_spec GATH_SPEC proc~gath_spec->module~suwavedi_mod proc~gath_spec~2 GATH_SPEC proc~gath_spec~2->module~suwavedi_mod proc~ini_spec_dist INI_SPEC_DIST proc~ini_spec_dist->module~suwavedi_mod proc~ini_spec_dist~2 INI_SPEC_DIST proc~ini_spec_dist~2->module~suwavedi_mod proc~sump_trans_preleg SUMP_TRANS_PRELEG proc~sump_trans_preleg->module~suwavedi_mod proc~sump_trans_preleg~2 SUMP_TRANS_PRELEG proc~sump_trans_preleg~2->module~suwavedi_mod

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)