latlon2xyz2 Subroutine

private subroutine latlon2xyz2(lon, lat, p3)

Arguments

Type IntentOptional Attributes Name
real(kind=ESMF_KIND_R8), intent(in) :: lon
real(kind=ESMF_KIND_R8), intent(in) :: lat
real(kind=ESMF_KIND_R8), intent(out) :: p3(3)

Source Code

 subroutine latlon2xyz2(lon, lat, p3)
 real(ESMF_KIND_R8), intent(in):: lon, lat
 real(ESMF_KIND_R8), intent(out):: p3(3)
 real(ESMF_KIND_R8) e(2)

    e(1) = lon;    e(2) = lat
    call latlon2xyz(e, p3)

 end subroutine latlon2xyz2