EINV_TRANSAD Subroutine

subroutine EINV_TRANSAD(PSPVOR, PSPDIV, PSPSCALAR, PSPSC3A, PSPSC3B, PSPSC2, FSPGL_PROC, LDSCDERS, LDVORGP, LDDIVGP, LDUVDER, KPROMA, KVSETUV, KVSETSC, KRESOL, KVSETSC3A, KVSETSC3B, KVSETSC2, PGP, PGPUV, PGP3A, PGP3B, PGP2, PMEANU, PMEANV)

*** EINV_TRANSAD - Inverse spectral transform - adjoint.

• Interface. ---------- CALL EINV_TRANSAD(...)

Arguments

Type	Intent	Optional	Attributes		Name
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(:,:)
real				::	FSPGL_PROC
logical,	intent(in),	optional		::	LDSCDERS
logical,	intent(in),	optional		::	LDVORGP
logical,	intent(in),	optional		::	LDDIVGP
logical,	intent(in),	optional		::	LDUVDER
integer(kind=JPIM),	intent(in),	optional		::	KPROMA
integer(kind=JPIM),	intent(in),	optional		::	KVSETUV(:)
integer(kind=JPIM),	intent(in),	optional		::	KVSETSC(:)
integer(kind=JPIM),	intent(in),	optional		::	KRESOL
integer(kind=JPIM),	intent(in),	optional		::	KVSETSC3A(:)
integer(kind=JPIM),	intent(in),	optional		::	KVSETSC3B(:)
integer(kind=JPIM),	intent(in),	optional		::	KVSETSC2(:)
real(kind=JPRB),	intent(in),	optional		::	PGP(:,:,:)
real(kind=JPRB),	intent(in),	optional		::	PGPUV(:,:,:,:)
real(kind=JPRB),	intent(in),	optional		::	PGP3A(:,:,:,:)
real(kind=JPRB),	intent(in),	optional		::	PGP3B(:,:,:,:)
real(kind=JPRB),	intent(in),	optional		::	PGP2(:,:,:)
real(kind=JPRB),	intent(out),	optional		::	PMEANU(:)
real(kind=JPRB),	intent(out),	optional		::	PMEANV(:)