FSC Subroutine

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

Uses

  • proc~~fsc~2~~UsesGraph proc~fsc~2 FSC module~tpm_dim TPM_DIM proc~fsc~2->module~tpm_dim module~tpm_distr TPM_DISTR proc~fsc~2->module~tpm_distr module~tpm_fields TPM_FIELDS proc~fsc~2->module~tpm_fields module~tpm_geometry TPM_GEOMETRY proc~fsc~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

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

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

    Method.

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

    1.1 U AND V. 1.2 N-S DERIVATIVES

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

    2.1 U AND V.

    2.2 SCALAR VARIABLES

Arguments

Type IntentOptional Attributes Name
type(BUFFERED_ALLOCATOR), intent(in) :: ALLOCATOR
type(FSC_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