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 3086 del file grid_transform_class.F90. RETURN ENDIF IF (innz /= outnz) THEN CALL l4f_category_log(this%category,l4f_error,"horizontal interpolation") CALL l4f_category_log(this%category,l4f_error,"inconsistent vert. sizes: "//& t2c(innz)//" /= "//t2c(outnz)) CALL raise_error() RETURN ENDIF 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