WTS500 Subroutine

public subroutine WTS500(PX, PW, KN)

Uses

    • EC_PARKIND
  • proc~~wts500~~UsesGraph proc~wts500 WTS500 EC_PARKIND EC_PARKIND proc~wts500->EC_PARKIND

Arguments

Type IntentOptional Attributes Name
real(kind=JPRD), intent(out) :: PX(:)
real(kind=JPRD), intent(out) :: PW(:)
integer(kind=JPIM), intent(in) :: KN

Calls

proc~~wts500~~CallsGraph proc~wts500 WTS500 abor1 abor1 proc~wts500->abor1

Called by

proc~~wts500~~CalledByGraph proc~wts500 WTS500 proc~setup_seefmm setup_seefmm proc~setup_seefmm->proc~wts500 proc~setup_seefmm~2 setup_seefmm proc~setup_seefmm~2->proc~wts500 proc~suleg SULEG proc~suleg->proc~setup_seefmm proc~suleg~2 SULEG proc~suleg~2->proc~setup_seefmm proc~setup_trans SETUP_TRANS proc~setup_trans->proc~suleg proc~setup_trans~2 SETUP_TRANS proc~setup_trans~2->proc~suleg