ELTDIR Subroutine

public subroutine ELTDIR(KM, KMLOC, KF_FS, KF_UV, KF_SCALARS, KLED2, PSPVOR, PSPDIV, PSPSCALAR, PSPSC3A, PSPSC3B, PSPSC2, KFLDPTRUV, KFLDPTRSC, PSPMEANU, PSPMEANV)

*** ELTDIR - Control of Direct Legendre transform step

• Interface. ---------- CALL ELTDIR(...)

  1. PREPARE WORK ARRAYS. --------------------

  2. PERIODICIZATION IN Y DIRECTION ------------------------------

  3. DIRECT LEGENDRE TRANSFORM. --------------------------

  4. COMPUTE VORTICITY AND DIVERGENCE AND STORE MEAN WIND ON TASK OWNING WAVE 0 --------------------------------------------------------------------------

  5. UPDATE SPECTRAL ARRAYS. -----------------------

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=JPIM),	intent(in)			::	KM
integer(kind=JPIM),	intent(in)			::	KMLOC
integer(kind=JPIM),	intent(in)			::	KF_FS
integer(kind=JPIM),	intent(in)			::	KF_UV
integer(kind=JPIM),	intent(in)			::	KF_SCALARS
integer(kind=JPIM),	intent(in)			::	KLED2
real(kind=JPRB),	intent(out),	optional		::	PSPVOR(:,:)
real(kind=JPRB),	intent(out),	optional		::	PSPDIV(:,:)
real(kind=JPRB),	intent(out),	optional		::	PSPSCALAR(:,:)
real(kind=JPRB),	intent(out),	optional		::	PSPSC3A(:,:,:)
real(kind=JPRB),	intent(out),	optional		::	PSPSC3B(:,:,:)
real(kind=JPRB),	intent(out),	optional		::	PSPSC2(:,:)
integer(kind=JPIM),	intent(in),	optional		::	KFLDPTRUV(:)
integer(kind=JPIM),	intent(in),	optional		::	KFLDPTRSC(:)
real(kind=JPRB),	intent(out),	optional		::	PSPMEANU(:)
real(kind=JPRB),	intent(out),	optional		::	PSPMEANV(:)