ESMF_LocStreamEx Program

Variables

Type Attributes Name Initial
character(len=ESMF_MAXSTR) :: failMsg
character(len=ESMF_MAXSTR) :: testname
integer, parameter :: ESMF_Coord1 = 1
integer, parameter :: ESMF_Coord2 = 2
integer, parameter :: ESMF_Coord3 = 3
integer, parameter :: GridLatSize = 20
integer, parameter :: GridLonSize = 20
integer :: clbnd(2)
integer :: cubnd(2)
integer :: finalrc
integer :: i
integer :: i1
integer :: i2
integer :: localPet
integer :: numLocations
integer :: numLocationsOnThisPet
integer :: petCount
integer :: rc
integer :: result
real(kind=ESMF_KIND_R8) :: DEG2RAD
real(kind=ESMF_KIND_R8) :: expected
real(kind=ESMF_KIND_R8), pointer :: farrayPtr(:,:)
real(kind=ESMF_KIND_R8), pointer :: farrayPtr1D(:)
real(kind=ESMF_KIND_R8), pointer :: farrayPtrLatC(:,:)
real(kind=ESMF_KIND_R8), pointer :: farrayPtrLonC(:,:)
real(kind=ESMF_KIND_R8), pointer :: lat(:)
real(kind=ESMF_KIND_R8), pointer :: latArray(:)
real(kind=ESMF_KIND_R8), pointer :: lon(:)
real(kind=ESMF_KIND_R8), pointer :: lonArray(:)
real(kind=ESMF_KIND_R8) :: phi
real(kind=ESMF_KIND_R8), pointer :: temperature(:)
real(kind=ESMF_KIND_R8) :: theta
real(kind=ESMF_KIND_R8) :: x
real(kind=ESMF_KIND_R8) :: y
real(kind=ESMF_KIND_R8) :: z
type(ESMF_ArraySpec) :: arrayspec
type(ESMF_Field) :: dstField
type(ESMF_Field) :: field_temperature
type(ESMF_Field) :: srcField
type(ESMF_Grid) :: grid
type(ESMF_LocStream) :: locstream
type(ESMF_LocStream) :: newlocstream
type(ESMF_RouteHandle) :: routeHandle
type(ESMF_VM) :: vm