FSCAD Subroutine

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

Uses

  • proc~~fscad~2~~UsesGraph proc~fscad~2 FSCAD module~tpm_dim TPM_DIM proc~fscad~2->module~tpm_dim module~tpm_distr TPM_DISTR proc~fscad~2->module~tpm_distr module~tpm_fields TPM_FIELDS proc~fscad~2->module~tpm_fields module~tpm_geometry TPM_GEOMETRY proc~fscad~2->module~tpm_geometry EC_PARKIND EC_PARKIND module~tpm_dim->EC_PARKIND module~tpm_distr->EC_PARKIND module~tpm_fields->EC_PARKIND module~tpm_geometry->EC_PARKIND

*** 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 IntentOptional Attributes Name
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