|
◆ grid_transform_get_val()
subroutine grid_transform_class::grid_transform_get_val |
( |
type(grid_transform), intent(in) |
this, |
|
|
type(vol7d_level), dimension(:), optional, pointer |
output_level_auto, |
|
|
logical, dimension(:), intent(out), optional, allocatable |
point_mask, |
|
|
integer, dimension(:), intent(out), optional, allocatable |
point_index, |
|
|
integer, dimension(:), intent(out), optional, allocatable |
output_point_index, |
|
|
integer, intent(out), optional |
levshift, |
|
|
integer, intent(out), optional |
levused |
|
) |
| |
|
private |
Method for returning the contents of the object.
Only a few selected memebrs of grid_transform object can be queried, this is mainly for use by volgrid6d_class, rather than for public use.
- Parametri
-
[in] | this | object to examine |
| output_level_auto | array of auto-generated output levels |
[out] | point_mask | mask array indicating the input points that are kept in the output, for metamorphosis transformations |
[out] | point_index | array of indices indicating the polygon to which every input point has been assigned, if applicable |
[out] | output_point_index | array of indices indicating the polygon to which every output point has been assigned, if applicable |
[out] | levshift | shift between input and output levels for vertint |
[out] | levused | number of input levels used for vertint |
Definizione alla linea 3048 del file grid_transform_class.F90.
3049 IF (this%trans%trans_type == 'zoom') THEN 3051 field_out(this%outinx:this%outfnx, & 3052 this%outiny:this%outfny,:) = & 3053 field_in(this%iniox:this%infox, & 3054 this%inioy:this%infoy,:) 3056 ELSE IF (this%trans%trans_type == 'boxregrid') THEN 3058 IF (this%trans%sub_type == 'average') THEN 3059 IF (vartype == var_dir360) THEN 3062 DO j = 1, this%inny - this%trans%box_info%npy + 1, this%trans%box_info%npy 3063 je = j+this%trans%box_info%npy-1 3066 DO i = 1, this%innx - this%trans%box_info%npx + 1, this%trans%box_info%npx 3067 ie = i+this%trans%box_info%npx-1 3069 navg = count(field_in(i:ie,j:je,k) /= rmiss) 3071 field_out(ii,jj,k) = find_prevailing_direction(field_in(i:ie,j:je,k), & 3081 DO j = 1, this%inny - this%trans%box_info%npy + 1, this%trans%box_info%npy
|