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~~UsesGraph proc~fsc FSC module~parkind_ectrans PARKIND_ECTRANS proc~fsc->module~parkind_ectrans module~tpm_dim TPM_DIM proc~fsc->module~tpm_dim module~tpm_distr TPM_DISTR proc~fsc->module~tpm_distr module~tpm_fields~2 TPM_FIELDS proc~fsc->module~tpm_fields~2 module~tpm_gen~2 TPM_GEN proc~fsc->module~tpm_gen~2 module~tpm_geometry~2 TPM_GEOMETRY proc~fsc->module~tpm_geometry~2 module~tpm_trans~2 TPM_TRANS proc~fsc->module~tpm_trans~2 PARKIND1 PARKIND1 module~parkind_ectrans->PARKIND1 module~tpm_dim->PARKIND1 EC_PARKIND EC_PARKIND module~tpm_distr->EC_PARKIND module~tpm_fields~2->module~parkind_ectrans iso_c_binding iso_c_binding module~tpm_fields~2->iso_c_binding module~tpm_gen~2->module~parkind_ectrans module~tpm_geometry~2->module~parkind_ectrans module~tpm_trans~2->module~parkind_ectrans module~tpm_trans~2->iso_c_binding module~growing_allocator_mod GROWING_ALLOCATOR_MOD module~tpm_trans~2->module~growing_allocator_mod module~growing_allocator_mod->iso_c_binding

*** 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

Calls

proc~~fsc~~CallsGraph proc~fsc FSC d_nstagtf d_nstagtf proc~fsc->d_nstagtf

Called by

proc~~fsc~~CalledByGraph proc~fsc FSC proc~ftinv_ctl FTINV_CTL proc~ftinv_ctl->proc~fsc proc~inv_trans_ctl INV_TRANS_CTL proc~inv_trans_ctl->proc~fsc proc~inv_trans INV_TRANS proc~inv_trans->proc~inv_trans_ctl proc~inv_trans_ctl~2 INV_TRANS_CTL proc~inv_trans_ctl~2->proc~ftinv_ctl proc~inv_trans~2 INV_TRANS proc~inv_trans~2->proc~inv_trans_ctl