FSCAD Subroutine

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

Uses

  • proc~~fscad~2~~UsesGraph proc~fscad~2 FSCAD PARKIND1 PARKIND1 proc~fscad~2->PARKIND1 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 module~tpm_trans TPM_TRANS proc~fscad~2->module~tpm_trans EC_PARKIND EC_PARKIND module~tpm_distr->EC_PARKIND module~tpm_fields->EC_PARKIND module~tpm_geometry->EC_PARKIND module~tpm_trans->PARKIND1

*** 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 IntentOptional 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(:,:)