FSCAD Subroutine

public subroutine FSCAD(ALLOCATOR, HFSC, PREEL_COMPLEX, KF_FS, KF_UV, KF_SCALARS, KUV_OFFSET, KSCALARS_OFFSET, KSCALARS_NSDER_OFFSET, KUV_EWDER_OFFSET, KSCALARS_EWDER_OFFSET)

*** FSCAD - Adjoint of division by acos(theta), east-west derivatives computation

• Interface. ---------- CALL FSCAD(..) Explicit arguments : KF_FS - total stride -------------------- KF_UV - # uv layers KF_SCALARS - # scalar layers *_OFFSET - offset of the respective layer

  Method.

  ---

  1. EAST-WEST DERIVATIVES ---------------------

  2.1 U AND V.

  2.2 SCALAR VARIABLES

  1. DIVIDE U V AND N-S DERIVATIVES BY A*COS(THETA) ----------------------------------------------

  1.1 U AND V.

  1.2 N-S DERIVATIVES

Arguments

Type	Intent	Optional	Attributes		Name
type(BUFFERED_ALLOCATOR),	intent(in)			::	ALLOCATOR
type(FSCAD_HANDLE),	intent(in)			::	HFSC
real(kind=JPRBT),	intent(inout)			::	PREEL_COMPLEX(:)
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)			::	KUV_OFFSET
integer(kind=JPIM),	intent(in)			::	KSCALARS_OFFSET
integer(kind=JPIM),	intent(in)			::	KSCALARS_NSDER_OFFSET
integer(kind=JPIM),	intent(in)			::	KUV_EWDER_OFFSET
integer(kind=JPIM),	intent(in)			::	KSCALARS_EWDER_OFFSET