rearrange_undef_rad Subroutine
public subroutine rearrange_undef_rad(skip_thres, nr_in, nr_out_org, nt, undef_grid, r_org, rh_org, thetad_org, Vra_org, nr_out, nn_grid, r, rh, thetad, Vra)
rearrange the radial grids: 1. skip radii with few azimuthal sampling (less than "skip_thres") 2. rearrange the radial coordinate. [Note1]: r, rh, thetad, and Vra must be given by the same as the array number in the original. (that is, size(r_org) == size(r).) [Note2]: nr_out_org >= nr_out. Undef value is given in r, rh, thetad, and Vra outside nr_out.
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | skip_thres |
threshold for unused radius |
||
| integer, | intent(in) | :: | nr_in |
innermost array number in radius |
||
| integer, | intent(in) | :: | nr_out_org |
outermost array number in radius (orig) |
||
| integer, | intent(in) | :: | nt |
azimuthal array number |
||
| logical, | intent(in), | dimension(nr_in:nr_out_org,1:nt) | :: | undef_grid |
flag of undefined grid (.true. is undef) |
|
| double precision, | intent(in), | dimension(nr_in:nr_out_org) | :: | r_org |
velocity radius (original) [m] |
|
| double precision, | intent(in), | dimension(nr_in:nr_out_org+1) | :: | rh_org |
potential radius (original) [m] |
|
| double precision, | intent(in), | dimension(nr_in:nr_out_org,1:nt) | :: | thetad_org |
azimuthal angle from radar (original) [rad] |
|
| double precision, | intent(in), | dimension(nr_in:nr_out_org,1:nt) | :: | Vra_org |
Doppler velocity (original) [m/s] |
|
| integer, | intent(out) | :: | nr_out |
outermost array number in radius (skip) |
||
| integer, | intent(out), | dimension(nr_in:nr_out_org) | :: | nn_grid |
grid number in rearranged each radius |
|
| double precision, | intent(out), | dimension(nr_in:nr_out_org) | :: | r |
velocity radius (skip) [m] |
|
| double precision, | intent(out), | dimension(nr_in:nr_out_org+1) | :: | rh |
potential radius (skip) [m] |
|
| double precision, | intent(out), | dimension(nr_in:nr_out_org,1:nt) | :: | thetad |
azimuthal angle from radar (skip) [rad] |
|
| double precision, | intent(out), | dimension(nr_in:nr_out_org,1:nt) | :: | Vra |
Doppler velocity (skip) [m/s] |