libsim Versione 7.2.1

◆ grid_transform_get_val()

subroutine 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]thisobject to examine
output_level_autoarray of auto-generated output levels
[out]point_maskmask array indicating the input points that are kept in the output, for metamorphosis transformations
[out]point_indexarray of indices indicating the polygon to which every input point has been assigned, if applicable
[out]output_point_indexarray of indices indicating the polygon to which every output point has been assigned, if applicable
[out]levshiftshift between input and output levels for vertint
[out]levusednumber of input levels used for vertint

Definizione alla linea 3036 del file grid_transform_class.F90.

3038 RETURN
3039 ENDIF
3040
3041ENDIF
3042
3043#ifdef DEBUG
3044call l4f_category_log(this%category,l4f_debug, &
3045 "start grid_transform_compute "//trim(this%trans%trans_type)//':'// &
3046 trim(this%trans%sub_type))
3047#endif
3048
3049IF (this%trans%trans_type == 'zoom') THEN
3050
3051 field_out(this%outinx:this%outfnx, &
3052 this%outiny:this%outfny,:) = &
3053 field_in(this%iniox:this%infox, &
3054 this%inioy:this%infoy,:)
3055
3056ELSE IF (this%trans%trans_type == 'boxregrid') THEN
3057
3058 IF (this%trans%sub_type == 'average') THEN
3059 IF (vartype == var_dir360) THEN
3060 DO k = 1, innz
3061 jj = 0
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
3064 jj = jj+1
3065 ii = 0
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
3068 ii = ii+1
3069 navg = count(field_in(i:ie,j:je,k) /= rmiss)
3070 IF (navg > 0) THEN
3071 field_out(ii,jj,k) = find_prevailing_direction(field_in(i:ie,j:je,k), &

Generated with Doxygen.