scrip_remap_conservative.f File Reference

Go to the source code of this file.

Modules
module	scrip_remap_conservative

Functions/Subroutines
subroutine	scrip_remap_conservative::remap_conserv (l_master, l_test)
subroutine	scrip_remap_conservative::cellblock_integrate (ibegin, iend, grid_num, phi_or_theta)
subroutine	scrip_remap_conservative::cell_integrate (cell_add, grid_num, phi_or_theta)
subroutine	scrip_remap_conservative::modify_polar_cell (ncorners, nalloc, cell_corner_lat, cell_corner_lon)
subroutine	scrip_remap_conservative::intersection (seg_cell_id, seg_grid_id, beglat, beglon, endlat, endlon, begseg, begedge, cell_id, ncorners, cell_corner_lat, cell_corner_lon, cell_grid_id, intrsct_lat, intrsct_lon, intedge, sinang2, lcoinc, lthresh)
subroutine	scrip_remap_conservative::pole_intersection (location, ncorners, cell_corners_lat, cell_corners_lon, cell_grid_id, beglat, beglon, endlat, endlon, begseg, begedge, intedge, intrsct_lat, intrsct_lon, sinang2, lcoinc, lthresh)
subroutine	scrip_remap_conservative::line_integral (phi_or_theta, weights, num_wts, in_phi1, in_phi2, theta1, theta2, grid1_lat, grid1_lon, grid2_lat, grid2_lon)
subroutine	scrip_remap_conservative::line_integral_phi (weights, num_wts, in_phi1, in_phi2, theta1, theta2, grid1_lat, grid1_lon, grid2_lat, grid2_lon)
subroutine	scrip_remap_conservative::line_integral_theta (weights, num_wts, in_phi1, in_phi2, theta1, theta2, grid1_lat, grid1_lon, grid2_lat, grid2_lon)
subroutine	scrip_remap_conservative::store_link_cnsrv (add1, add2, weights)
subroutine	scrip_remap_conservative::locate_segstart (cell_grid_num, cell, beglat, beglon, endlat, endlon, offset, srch_grid_num, cont_cell, lboundary, edgeid)
subroutine	scrip_remap_conservative::locate_point (ptlat, ptlon, cell, cell_grid_num, srch_grid_num, cont_cell, lboundary, edgeid)
subroutine	scrip_remap_conservative::ptincell (ptlat, ptlon, cell_add, ncorners, cell_corner_lat, cell_corner_lon, cell_center_lat, cell_center_lon, cell_grid_id, inpoly, lboundary, edgeid)
subroutine	scrip_remap_conservative::ptinpoly (ptx, pty, ncorners, cell_corner_x, cell_corner_y, latlon, inpoly, lboundary, edgeid)
subroutine	scrip_remap_conservative::ptinpolarpoly (ptx, pty, ncorners, cell_corner_x, cell_corner_y, latlon, whichpole, inpoly, lboundary, edgeid)
subroutine	scrip_remap_conservative::ptinpolygen (ptx, pty, ncorners, cell_corner_x, cell_corner_y, cell_center_x, cell_center_y, latlon, inpoly, lboundary, edgeid)
subroutine	scrip_remap_conservative::ptinpolygen2 (ptx, pty, ncorners, cell_corner_x, cell_corner_y, latlon, inpoly, lboundary, edgeid)
subroutine	scrip_remap_conservative::get_srch_cells (cell_add, cell_grid_num, srch_grid_num, num_srch_cells, srch_add, srch_corners, srch_corner_lat, srch_corner_lon, srch_center_lat, srch_center_lon)
subroutine	scrip_remap_conservative::find_adj_cell (cell_add, edge_id, cell_grid_num, adj_add)
subroutine	scrip_remap_conservative::converge_to_bdry (cell_add, cell_grid_num, ncorners, cell_corner_lat, cell_corner_lon, cell_center_lat, cell_center_lon, inpt_lat, inpt_lon, outpt_lat, outpt_lon, bpt_lat, bpt_lon, bedgeid)

Variables
integer(scrip_i4)	scrip_remap_conservative::nthreads =2
integer(scrip_i4), save	scrip_remap_conservative::avoid_pole_count = 0
real(scrip_r8), save	scrip_remap_conservative::avoid_pole_offset = tiny
integer(scrip_i4), dimension(:,:), allocatable, save	scrip_remap_conservative::link_add1
integer(scrip_i4), dimension(:,:), allocatable, save	scrip_remap_conservative::link_add2
logical(scrip_logical), save	scrip_remap_conservative::first_call_store_link_cnsrv = .true.
logical(scrip_logical), save	scrip_remap_conservative::first_call_locate_segstart = .true.
integer(scrip_i4), save	scrip_remap_conservative::last_cell_locate_segstart =0
integer(scrip_i4), save	scrip_remap_conservative::last_cell_grid_num_locate_segstart =0
integer(scrip_i4), save	scrip_remap_conservative::last_srch_grid_num_locate_segstart =0
integer(scrip_i4), save	scrip_remap_conservative::num_srch_cells_locate_segstart =0
integer(scrip_i4), save	scrip_remap_conservative::srch_corners_locate_segstart
integer(scrip_i4), dimension(:), allocatable, save	scrip_remap_conservative::srch_add_locate_segstart
real(scrip_r8), dimension(:,:), allocatable, save	scrip_remap_conservative::srch_corner_lat_locate_segstart
real(scrip_r8), dimension(:,:), allocatable, save	scrip_remap_conservative::srch_corner_lon_locate_segstart
real(scrip_r8), dimension(:), allocatable, save	scrip_remap_conservative::srch_center_lat_locate_segstart
real(scrip_r8), dimension(:), allocatable, save	scrip_remap_conservative::srch_center_lon_locate_segstart
logical(scrip_logical), save	scrip_remap_conservative::first_call_locate_point = .true.
integer(scrip_i4), save	scrip_remap_conservative::last_cell_locate_point =0
integer(scrip_i4), save	scrip_remap_conservative::last_cell_grid_num_locate_point =0
integer(scrip_i4), save	scrip_remap_conservative::last_srch_grid_num_locate_point =0
integer(scrip_i4), save	scrip_remap_conservative::num_srch_cell_locate_points =0
integer(scrip_i4), save	scrip_remap_conservative::srch_corners_locate_point
integer(scrip_i4), dimension(:), allocatable, save	scrip_remap_conservative::srch_add_locate_point
real(scrip_r8), dimension(:,:), allocatable, save	scrip_remap_conservative::srch_corner_lat_locate_point
real(scrip_r8), dimension(:,:), allocatable, save	scrip_remap_conservative::srch_corner_lon_locate_point
real(scrip_r8), dimension(:), allocatable, save	scrip_remap_conservative::srch_center_lat_locate_point
real(scrip_r8), dimension(:), allocatable, save	scrip_remap_conservative::srch_center_lon_locate_point
integer(scrip_i4), save	scrip_remap_conservative::num_srch_cells_loc_get_srch_cells
integer(scrip_i4), save	scrip_remap_conservative::srch_corners_loc_get_srch_cells
integer(scrip_i4), dimension(:), allocatable, save	scrip_remap_conservative::srch_add_loc_get_srch_cells
real(scrip_r8), dimension(:,:), allocatable, save	scrip_remap_conservative::srch_corner_lat_loc_get_srch_cells
real(scrip_r8), dimension(:,:), allocatable, save	scrip_remap_conservative::srch_corner_lon_loc_get_srch_cells
real(scrip_r8), dimension(:), allocatable, save	scrip_remap_conservative::srch_center_lat_loc_get_srch_cells
real(scrip_r8), dimension(:), allocatable, save	scrip_remap_conservative::srch_center_lon_loc_get_srch_cells
integer(scrip_i4), save	scrip_remap_conservative::last_cell_add_get_srch_cells
integer(scrip_i4), save	scrip_remap_conservative::last_cell_grid_num_get_srch_cells
integer(scrip_i4), save	scrip_remap_conservative::last_srch_grid_num_get_srch_cells
logical(scrip_logical), save	scrip_remap_conservative::first_call_get_srch_cells =.true.
logical(scrip_logical), save	scrip_remap_conservative::first_call_find_adj_cell =.true.
integer(scrip_i4), save	scrip_remap_conservative::last_cell_find_adj_cell
integer(scrip_i4), save	scrip_remap_conservative::last_cell_grid_num_find_adj_cell
integer(scrip_i4), save	scrip_remap_conservative::num_srch_cells_find_adj_cell
integer(scrip_i4), save	scrip_remap_conservative::srch_corners_find_adj_cell
integer(scrip_i4), dimension(:), allocatable, save	scrip_remap_conservative::srch_add_find_adj_cell
real(scrip_r8), dimension(:,:), allocatable, save	scrip_remap_conservative::srch_corner_lat_find_adj_cell
real(scrip_r8), dimension(:,:), allocatable, save	scrip_remap_conservative::srch_corner_lon_find_adj_cell
real(scrip_r8), dimension(:), allocatable, save	scrip_remap_conservative::srch_center_lat_find_adj_cell
real(scrip_r8), dimension(:), allocatable, save	scrip_remap_conservative::srch_center_lon_find_adj_cell