FSCAD Subroutine

public subroutine FSCAD(KGL, KF_UV, KF_SCALARS, KF_SCDERS, PUV, PSCALAR, PNSDERS, PEWDERS, PUVDERS)

*** FSCAD - Division by acos(theta), east-west derivatives - adjoint

• Interface. ---------- CALL FSCAD(..) Explicit arguments : PUV - u and v -------------------- PSCALAR - scalar valued varaibles PNSDERS - N-S derivative of S.V.V. PEWDERS - E-W derivative of S.V.V. PUVDERS - E-W derivative of u and v 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
integer(kind=JPIM),	intent(in)			::	KGL
integer(kind=JPIM),	intent(in)			::	KF_UV
integer(kind=JPIM),	intent(in)			::	KF_SCALARS
integer(kind=JPIM),	intent(in)			::	KF_SCDERS
real(kind=JPRB),	intent(inout)			::	PUV(:,:)
real(kind=JPRB),	intent(inout)			::	PSCALAR(:,:)
real(kind=JPRB),	intent(inout)			::	PNSDERS(:,:)
real(kind=JPRB),	intent(inout)			::	PEWDERS(:,:)
real(kind=JPRB),	intent(inout)			::	PUVDERS(:,:)