FSC Subroutine

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

Uses

  • proc~~fsc~2~~UsesGraph proc~fsc~2 FSC PARKIND1 PARKIND1 proc~fsc~2->PARKIND1 module~tpm_distr TPM_DISTR proc~fsc~2->module~tpm_distr module~tpm_fields~2 TPM_FIELDS proc~fsc~2->module~tpm_fields~2 module~tpm_flt~2 TPM_FLT proc~fsc~2->module~tpm_flt~2 module~tpm_geometry~2 TPM_GEOMETRY proc~fsc~2->module~tpm_geometry~2 module~tpm_trans~2 TPM_TRANS proc~fsc~2->module~tpm_trans~2 EC_PARKIND EC_PARKIND module~tpm_distr->EC_PARKIND iso_c_binding iso_c_binding module~tpm_fields~2->iso_c_binding module~parkind_ectrans PARKIND_ECTRANS module~tpm_fields~2->module~parkind_ectrans module~tpm_flt~2->module~parkind_ectrans module~seefmm_mix~2 seefmm_mix module~tpm_flt~2->module~seefmm_mix~2 module~tpm_geometry~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~tpm_trans~2->module~parkind_ectrans module~growing_allocator_mod->iso_c_binding module~parkind_ectrans->PARKIND1 module~seefmm_mix~2->module~parkind_ectrans ecsort_mix ecsort_mix module~seefmm_mix~2->ecsort_mix module~wts500_mod~2 WTS500_MOD module~seefmm_mix~2->module~wts500_mod~2

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