TEST1_VSH Function

public function TEST1_VSH(NTH)

Test 1's target quantity computed directly from DOT products of VSH_TOR/VSH_POL_DN/VSH_POL_UP values -- must agree with TEST1_ANALYTIC to machine precision.

Returns: Complex array of size NTH, matching TEST1_ANALYTIC's grid.

Arguments

Type IntentOptional Attributes Name
integer(kind=i4), intent(in) :: NTH

Number of colatitude samples over .

Return Value complex(kind=dp), DIMENSION(NTH)


Calls

proc~~test1_vsh~~CallsGraph proc~test1_vsh TEST1_VSH interface~dot DOT proc~test1_vsh->interface~dot interface~vsh_pol_dn VSH_POL_DN proc~test1_vsh->interface~vsh_pol_dn interface~vsh_pol_up VSH_POL_UP proc~test1_vsh->interface~vsh_pol_up interface~vsh_tor VSH_TOR proc~test1_vsh->interface~vsh_tor proc~dot_dp DOT_DP interface~dot->proc~dot_dp proc~vsh_pol_dn_dp VSH_POL_DN_DP interface~vsh_pol_dn->proc~vsh_pol_dn_dp proc~vsh_pol_up_dp VSH_POL_UP_DP interface~vsh_pol_up->proc~vsh_pol_up_dp proc~vsh_tor_dp VSH_TOR_DP interface~vsh_tor->proc~vsh_tor_dp dcos dcos proc~vsh_pol_dn_dp->dcos dsin dsin proc~vsh_pol_dn_dp->dsin interface~assoc_legendre_and_deriv ASSOC_LEGENDRE_AND_DERIV proc~vsh_pol_dn_dp->interface~assoc_legendre_and_deriv interface~log_fact LOG_FACT proc~vsh_pol_dn_dp->interface~log_fact proc~vsh_pol_up_dp->dcos proc~vsh_pol_up_dp->dsin proc~vsh_pol_up_dp->interface~assoc_legendre_and_deriv proc~vsh_pol_up_dp->interface~log_fact interface~pvsh_tor PVSH_TOR proc~vsh_tor_dp->interface~pvsh_tor proc~assoc_legendre_and_deriv_dp ASSOC_LEGENDRE_AND_DERIV_DP interface~assoc_legendre_and_deriv->proc~assoc_legendre_and_deriv_dp proc~log_fact_dp LOG_FACT_DP interface~log_fact->proc~log_fact_dp proc~pvsh_tor_dp PVSH_TOR_DP interface~pvsh_tor->proc~pvsh_tor_dp proc~assoc_legendre_and_deriv_dp->interface~log_fact proc~pvsh_tor_dp->dcos proc~pvsh_tor_dp->dsin proc~pvsh_tor_dp->interface~assoc_legendre_and_deriv proc~pvsh_tor_dp->interface~log_fact

Called by

proc~~test1_vsh~~CalledByGraph proc~test1_vsh TEST1_VSH program~main MAIN program~main->proc~test1_vsh

Source Code

  FUNCTION TEST1_VSH(NTH)
  IMPLICIT NONE
  INTEGER(KIND=i4), INTENT(IN) :: NTH
  INTEGER(KIND=i4) :: I
  REAL(KIND=dp) :: TH,PH
  COMPLEX(KIND=dp), DIMENSION(NTH) :: TEST1_VSH

  PH = 0.123d0   !- arbitrary choice
  DO I=1,NTH
    TH = (I-1)*pi/(NTH-1)
    TEST1_VSH(I) = DOT(VSH_TOR(2,0,TH,PH),VSH_TOR(1,1,TH,PH))* &
         DOT(VSH_POL_DN(1,-1,TH,PH),CONJG(VSH_POL_UP(0,0,TH,PH)))
  ENDDO
  RETURN
  END FUNCTION TEST1_VSH