FSC Subroutine

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

Uses

  • proc~~fsc~~UsesGraph proc~fsc FSC PARKIND1 PARKIND1 proc~fsc->PARKIND1 module~tpm_distr TPM_DISTR proc~fsc->module~tpm_distr module~tpm_fields TPM_FIELDS proc~fsc->module~tpm_fields module~tpm_flt TPM_FLT proc~fsc->module~tpm_flt module~tpm_geometry TPM_GEOMETRY proc~fsc->module~tpm_geometry module~tpm_trans TPM_TRANS proc~fsc->module~tpm_trans EC_PARKIND EC_PARKIND module~tpm_distr->EC_PARKIND module~tpm_fields->EC_PARKIND module~tpm_flt->PARKIND1 module~butterfly_alg_mod BUTTERFLY_ALG_MOD module~tpm_flt->module~butterfly_alg_mod module~seefmm_mix seefmm_mix module~tpm_flt->module~seefmm_mix module~tpm_geometry->EC_PARKIND module~tpm_trans->PARKIND1 module~butterfly_alg_mod->PARKIND1 module~ectrans_blas_mod ECTRANS_BLAS_MOD module~butterfly_alg_mod->module~ectrans_blas_mod module~interpol_decomp_mod INTERPOL_DECOMP_MOD module~butterfly_alg_mod->module~interpol_decomp_mod module~sharedmem_mod SHAREDMEM_MOD module~butterfly_alg_mod->module~sharedmem_mod ecsort_mix ecsort_mix module~seefmm_mix->ecsort_mix module~wts500_mod WTS500_MOD module~seefmm_mix->module~wts500_mod parkind1 parkind1 module~seefmm_mix->parkind1 module~ectrans_blas_mod->EC_PARKIND module~interpol_decomp_mod->EC_PARKIND iso_c_binding iso_c_binding module~sharedmem_mod->iso_c_binding

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

  • Interface. ---------- CALL FSC(..) 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. 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
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(out) :: PEWDERS(:,:)
real(kind=JPRB), intent(out) :: PUVDERS(:,:)

Called by

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