*** LEDIR - Direct Legendre transform.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer(kind=JPIM), | intent(in) | :: | KM | |||
integer(kind=JPIM), | intent(in) | :: | KMLOC | |||
integer(kind=JPIM), | intent(in) | :: | KFC | |||
integer(kind=JPIM), | intent(in) | :: | KIFC | |||
integer(kind=JPIM), | intent(in) | :: | KSL | |||
integer(kind=JPIM), | intent(in) | :: | KDGLU | |||
integer(kind=JPIM), | intent(in) | :: | KLED2 | |||
real(kind=JPRB), | intent(in) | :: | PAIA(:,:) | |||
real(kind=JPRB), | intent(in) | :: | PSIA(:,:) | |||
real(kind=JPRB), | intent(out) | :: | POA1(:,:) | |||
real(kind=JPRB), | intent(in) | :: | PW(KDGLU+KSL-1) |