global_cycle
1.13.0
|
Module containing utility routines. More...
Functions/Subroutines | |
subroutine, public | remap_coef (is, ie, js, je, im, jm, lon, lat, id1, id2, jdc, s2c, agrid) |
Generate the weights and index of the grids used in the bilinear interpolation. More... | |
Module containing utility routines.
subroutine, public utils::remap_coef | ( | integer, intent(in) | is, |
integer, intent(in) | ie, | ||
integer, intent(in) | js, | ||
integer, intent(in) | je, | ||
integer, intent(in) | im, | ||
integer, intent(in) | jm, | ||
real, dimension(im), intent(in) | lon, | ||
real, dimension(jm), intent(in) | lat, | ||
integer, dimension(is:ie,js:je), intent(out) | id1, | ||
integer, dimension(is:ie,js:je), intent(out) | id2, | ||
integer, dimension(is:ie,js:je), intent(out) | jdc, | ||
real, dimension(is:ie,js:je,4), intent(out) | s2c, | ||
real, dimension(is:ie,js:je,2), intent(in) | agrid | ||
) |
Generate the weights and index of the grids used in the bilinear interpolation.
This routine was taken from the forecast model - ./atmos_cubed_sphere/tools/fv_treat_da_inc.f90.
[in] | is | Start index in x-direction of the source array. |
[in] | ie | End index in x-direction of the source array. |
[in] | js | Start index in y-direction of the source array. |
[in] | je | End index in y-direction of the source array. |
[in] | im | x-dimension of the source array. |
[in] | jm | y-dimension of the source array. |
[in] | lon | 1-d array of longitudes (in radians). |
[in] | lat | 1-d array of latitudes (in radians). |
[in] | agrid | 2-d array for lon [agrid(:,:,1)] & lat [agrid(:,:,2)] (in radians). |
[out] | s2c | Bi-linear interpolation weights of the four nearby grids of the source array. |
[out] | id1 | Index 1 in x-direction of the nearby grids of the source array. |
[out] | id2 | Index 2 in x-direction of the nearby grids of the source array. |
[out] | jdc | Index in y-direction of the nearby grid of the source array. |
Definition at line 40 of file utils.F90.
Referenced by adjust_nsst(), land_increments::gaussian_to_fv3_interp(), and intp_tile().