recover_undef_rad Subroutine
public subroutine recover_undef_rad(nrotmin, nrot, ndivmin, ndiv, nr_in, nr_out, nr_out_org, nt, undef, undef_grid, nn_grid, VTtot_rt_t, VRtot_rt_t, VRT0_rt_t, VDR0_rt_t, VRTn_rt_t, VRRn_rt_t, VDTm_rt_t, VDRm_rt_t, VRT0_GVTD_rt_t, VDR0_GVTD_rt_t, VRTns_r, VRTnc_r, VRRns_r, VRRnc_r, Vn_0_rt_t, phin_rt_t, zetan_rt_t, zetans_r, zetanc_r)
recover the retrieved values from the rearranged to original radii.
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | nrotmin |
minimum wavenumber for rotational components |
||
| integer, | intent(in) | :: | nrot |
maximum wavenumber for rotational components |
||
| integer, | intent(in) | :: | ndivmin |
minimum wavenumber for divergent components |
||
| integer, | intent(in) | :: | ndiv |
maximum wavenumber for divergent components |
||
| integer, | intent(in) | :: | nr_in |
innermost array number in radius |
||
| integer, | intent(in) | :: | nr_out |
outermost array number in radius (skip) |
||
| integer, | intent(in) | :: | nr_out_org |
outermost array number in radius (orig) |
||
| integer, | intent(in) | :: | nt |
azimuthal array number |
||
| double precision, | intent(in) | :: | undef |
undefined value |
||
| logical, | intent(in), | dimension(nr_in:nr_out_org,1:nt) | :: | undef_grid |
flag of undefined grid (.true. is undef) |
|
| integer, | intent(in), | dimension(nr_in:nr_out_org) | :: | nn_grid |
grid number in rearranged each radius |
|
| double precision, | intent(inout), | dimension(nr_in:nr_out_org,1:nt) | :: | VTtot_rt_t | ||
| double precision, | intent(inout), | dimension(nr_in:nr_out_org,1:nt) | :: | VRtot_rt_t | ||
| double precision, | intent(inout), | dimension(nr_in:nr_out_org,1:nt) | :: | VRT0_rt_t | ||
| double precision, | intent(inout), | dimension(nr_in:nr_out_org,1:nt) | :: | VDR0_rt_t | ||
| double precision, | intent(inout), | dimension(nrotmin:nrot,nr_in:nr_out_org,1:nt) | :: | VRTn_rt_t | ||
| double precision, | intent(inout), | dimension(nrotmin:nrot,nr_in:nr_out_org,1:nt) | :: | VRRn_rt_t | ||
| double precision, | intent(inout), | dimension(ndivmin:ndiv,nr_in:nr_out_org,1:nt) | :: | VDTm_rt_t | ||
| double precision, | intent(inout), | dimension(ndivmin:ndiv,nr_in:nr_out_org,1:nt) | :: | VDRm_rt_t | ||
| double precision, | intent(inout), | dimension(nr_in:nr_out_org,1:nt) | :: | VRT0_GVTD_rt_t | ||
| double precision, | intent(inout), | dimension(nr_in:nr_out_org,1:nt) | :: | VDR0_GVTD_rt_t | ||
| double precision, | intent(inout), | dimension(nrotmin:nrot,nr_in:nr_out_org) | :: | VRTns_r | ||
| double precision, | intent(inout), | dimension(nrotmin:nrot,nr_in:nr_out_org) | :: | VRTnc_r | ||
| double precision, | intent(inout), | dimension(nrotmin:nrot,nr_in:nr_out_org) | :: | VRRns_r | ||
| double precision, | intent(inout), | dimension(nrotmin:nrot,nr_in:nr_out_org) | :: | VRRnc_r | ||
| double precision, | intent(inout), | dimension(nr_in:nr_out_org,1:nt) | :: | Vn_0_rt_t | ||
| double precision, | intent(inout), | dimension(nrotmin:nrot,nr_in:nr_out_org,1:nt) | :: | phin_rt_t | ||
| double precision, | intent(inout), | dimension(nrotmin:nrot,nr_in:nr_out_org,1:nt) | :: | zetan_rt_t | ||
| double precision, | intent(inout), | dimension(nrotmin:nrot,nr_in:nr_out_org) | :: | zetans_r | ||
| double precision, | intent(inout), | dimension(nrotmin:nrot,nr_in:nr_out_org) | :: | zetanc_r |