get_gnomonic_local_coords Subroutine

private subroutine get_gnomonic_local_coords(grid_type, im, start, lon, lat)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: grid_type
integer, intent(in) :: im
integer, intent(in) :: start(:)
real(kind=ESMF_KIND_R8), intent(out) :: lon(:,:)
real(kind=ESMF_KIND_R8), intent(out) :: lat(:,:)

Calls

proc~~get_gnomonic_local_coords~~CallsGraph proc~get_gnomonic_local_coords get_gnomonic_local_coords proc~get_gnomonic_angl_coords get_gnomonic_angl_coords proc~get_gnomonic_local_coords->proc~get_gnomonic_angl_coords proc~get_gnomonic_dist_coords get_gnomonic_dist_coords proc~get_gnomonic_local_coords->proc~get_gnomonic_dist_coords proc~get_gnomonic_ed_coords get_gnomonic_ed_coords proc~get_gnomonic_local_coords->proc~get_gnomonic_ed_coords proc~cart_to_latlon_new cart_to_latlon_new proc~get_gnomonic_angl_coords->proc~cart_to_latlon_new proc~get_gnomonic_dist_coords->proc~cart_to_latlon_new proc~get_gnomonic_ed_coords->proc~cart_to_latlon_new

Called by

proc~~get_gnomonic_local_coords~~CalledByGraph proc~get_gnomonic_local_coords get_gnomonic_local_coords proc~esmf_utilcreatecscoordspar ESMF_UtilCreateCSCoordsPar proc~esmf_utilcreatecscoordspar->proc~get_gnomonic_local_coords proc~esmf_gridcreatecubedsphereireg ESMF_GridCreateCubedSphereIReg proc~esmf_gridcreatecubedsphereireg->proc~esmf_utilcreatecscoordspar proc~esmf_gridcreatecubedspherereg ESMF_GridCreateCubedSphereReg proc~esmf_gridcreatecubedspherereg->proc~esmf_utilcreatecscoordspar interface~esmf_gridcreatecubedsphere ESMF_GridCreateCubedSphere interface~esmf_gridcreatecubedsphere->proc~esmf_gridcreatecubedsphereireg interface~esmf_gridcreatecubedsphere->proc~esmf_gridcreatecubedspherereg proc~createfields createFields proc~createfields->interface~esmf_gridcreatecubedsphere proc~f_esmf_gridcreatecubedsphere f_esmf_gridcreatecubedsphere proc~f_esmf_gridcreatecubedsphere->interface~esmf_gridcreatecubedsphere proc~iocomputestsetup IOCompUTestSetup proc~iocomputestsetup->interface~esmf_gridcreatecubedsphere proc~test_bilinear_regrid_csgrid test_bilinear_regrid_csgrid proc~test_bilinear_regrid_csgrid->interface~esmf_gridcreatecubedsphere proc~test_bilinear_regrid_csgrid_sph_rad test_bilinear_regrid_csgrid_sph_rad proc~test_bilinear_regrid_csgrid_sph_rad->interface~esmf_gridcreatecubedsphere proc~test_conserve_regrid_csgrid test_conserve_regrid_csgrid proc~test_conserve_regrid_csgrid->interface~esmf_gridcreatecubedsphere proc~test_csgridtogrid test_CSGridToGrid proc~test_csgridtogrid->interface~esmf_gridcreatecubedsphere proc~test_csgridtogrid_2nd test_CSGridToGrid_2nd proc~test_csgridtogrid_2nd->interface~esmf_gridcreatecubedsphere proc~test_csgridtogridwmasks test_CSGridToGridWMasks proc~test_csgridtogridwmasks->interface~esmf_gridcreatecubedsphere proc~test_mesh_dual_w_bilinear test_mesh_dual_w_bilinear proc~test_mesh_dual_w_bilinear->interface~esmf_gridcreatecubedsphere proc~test_nearest_regrid_csgrid test_nearest_regrid_csgrid proc~test_nearest_regrid_csgrid->interface~esmf_gridcreatecubedsphere proc~test_nearest_regrid_csmesh test_nearest_regrid_csmesh proc~test_nearest_regrid_csmesh->interface~esmf_gridcreatecubedsphere proc~test_patch_regrid_csgrid test_patch_regrid_csgrid proc~test_patch_regrid_csgrid->interface~esmf_gridcreatecubedsphere proc~test_sph_vec_blnr_csg_to_llg test_sph_vec_blnr_csG_to_llG proc~test_sph_vec_blnr_csg_to_llg->interface~esmf_gridcreatecubedsphere proc~test_sph_vec_blnr_csg_to_llg_p test_sph_vec_blnr_csG_to_llG_p proc~test_sph_vec_blnr_csg_to_llg_p->interface~esmf_gridcreatecubedsphere program~esmf_gridcreateex ESMF_GridCreateEx program~esmf_gridcreateex->interface~esmf_gridcreatecubedsphere program~esmf_gridcreateutest ESMF_GridCreateUTest program~esmf_gridcreateutest->interface~esmf_gridcreatecubedsphere

Source Code

  subroutine get_gnomonic_local_coords(grid_type, im, start, lon, lat)
     integer, intent(in) :: grid_type
     integer, intent(in) :: im
     integer, intent(in) :: start(:)
     real(ESMF_KIND_R8), intent(out):: lon(:,:)
     real(ESMF_KIND_R8), intent(out):: lat(:,:)

     integer i, j

     select case (grid_type)
     case (0)
        call get_gnomonic_ed_coords(im, start, lon, lat)
     case (1)
        call get_gnomonic_dist_coords(im, start, lon, lat)
     case (2)
        call get_gnomonic_angl_coords(im, start, lon, lat)
     end select

     if (grid_type < 3) then
        lon = lon - pi
     end if

  end subroutine get_gnomonic_local_coords