grid_transform_get_val transform_get_val

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  ) 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 3098 del file grid_transform_class.F90. ENDIF #ifdef DEBUG call l4f_category_log(this%category,l4f_debug, & "start grid_transform_compute "//trim(this%trans%trans_type)//':'// & trim(this%trans%sub_type)) #endif IF (this%trans%trans_type == 'zoom') THEN field_out(this%outinx:this%outfnx, & this%outiny:this%outfny,:) = & field_in(this%iniox:this%infox, & this%inioy:this%infoy,:) ELSE IF (this%trans%trans_type == 'boxregrid') THEN IF (this%trans%sub_type == 'average') THEN IF (vartype == var_dir360) THEN DO k = 1, innz IF (.NOT.lzlist(k)) cycle jj = 0 DO j = 1, this%inny - this%trans%box_info%npy + 1, this%trans%box_info%npy je = j+this%trans%box_info%npy-1 jj = jj+1 ii = 0 DO i = 1, this%innx - this%trans%box_info%npx + 1, this%trans%box_info%npx ie = i+this%trans%box_info%npx-1 ii = ii+1 navg = count(field_in(i:ie,j:je,k) /= rmiss) IF (navg > 0) THEN field_out(ii,jj,k) = find_prevailing_direction(field_in(i:ie,j:je,k), & 0.0, 360.0, 5.0)