TEST2_VSH Function

public function TEST2_VSH(NTH)

Test 2's target quantity computed directly from DOT products of PVSH_POL/PVSH_TOR/PVSH_RAD values -- must agree with TEST2_ANALYTIC to machine precision.

Returns: Complex array of size NTH, matching TEST2_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~~test2_vsh~~CallsGraph proc~test2_vsh TEST2_VSH interface~dot DOT proc~test2_vsh->interface~dot interface~pvsh_pol PVSH_POL proc~test2_vsh->interface~pvsh_pol interface~pvsh_rad PVSH_RAD proc~test2_vsh->interface~pvsh_rad interface~pvsh_tor PVSH_TOR proc~test2_vsh->interface~pvsh_tor proc~dot_dp DOT_DP interface~dot->proc~dot_dp proc~pvsh_pol_dp PVSH_POL_DP interface~pvsh_pol->proc~pvsh_pol_dp proc~pvsh_rad_dp PVSH_RAD_DP interface~pvsh_rad->proc~pvsh_rad_dp proc~pvsh_tor_dp PVSH_TOR_DP interface~pvsh_tor->proc~pvsh_tor_dp dcos dcos proc~pvsh_pol_dp->dcos dsin dsin proc~pvsh_pol_dp->dsin interface~assoc_legendre_and_deriv ASSOC_LEGENDRE_AND_DERIV proc~pvsh_pol_dp->interface~assoc_legendre_and_deriv interface~log_fact LOG_FACT proc~pvsh_pol_dp->interface~log_fact interface~ssh SSH proc~pvsh_rad_dp->interface~ssh 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 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~ssh_dp SSH_DP interface~ssh->proc~ssh_dp proc~assoc_legendre_and_deriv_dp->interface~log_fact proc~ssh_dp->dcos proc~ssh_dp->interface~log_fact interface~assoc_legendre ASSOC_LEGENDRE proc~ssh_dp->interface~assoc_legendre proc~assoc_legendre_dp ASSOC_LEGENDRE_DP interface~assoc_legendre->proc~assoc_legendre_dp proc~assoc_legendre_dp->interface~log_fact

Called by

proc~~test2_vsh~~CalledByGraph proc~test2_vsh TEST2_VSH program~main MAIN program~main->proc~test2_vsh

Source Code

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

  PH = 1.006d0   !- arbitrary choice
  DO I=1,NTH
    TH = (I-1)*pi/(NTH-1)
    TEST2_VSH(I) = DOT(PVSH_POL(2,0,TH,PH),PVSH_TOR(3,2,TH,PH))* &
         DOT(PVSH_RAD(1,0,TH,PH),CONJG(PVSH_RAD(2,-2,TH,PH)))
  ENDDO
  RETURN
  END FUNCTION TEST2_VSH